Xailer & OZ Software

Hola,
A ver si el LoadFromStream lo hago funcionar bien:
WITH OBJECT ::oImage1 := TImageEditor():New( Self )
:SetBounds( 8, 8, 818, 610 )
:nAnchors := akALL
:lAutoScroll := .F.
:Create()
END
::oImage1:Load("miImagen.JPG")
c := oImage1:oPicture:MakeThumbNail( 500 , 600, gfJPEG )
::oImage1:oPicture := TPicture():LoadFromStream( c )
¿Serí­a así­? Si es así­... se me queda bloqueado... Y si no es así­... ¿como?
Lo que me interesa es, sobre la imagen que está en memoria en ese momento,
cambiar el tamaño, y mostrar la imagen con el tamaño ya cambiado.
Eso mismo me está funcionando de esta manera:
WITH OBJECT ::oImage1 := TImageEditor():New( Self )
:SetBounds( 8, 8, 818, 610 )
:nAnchors := akALL
:lAutoScroll := .F.
:Create()
END
::oImage1:Load("miImagen.JPG")
c := oImage1:oPicture:MakeThumbNail( 500 , 600, gfJPEG )
memowrit("c:imagen.jpg",c)
::oImage1:oPicture := TPicture():LoadFromFile( "c:imagen.jpg" )
Saludos y gracias,
José Luis Capel

Hola,
Al fina... ¿lo estoy haciendo mal?
¿Algún ejemplo de uso?
Saludos,
José Luis Capel
"José Luis Capel" escribió en el mensaje de
noticias:4faa5b4b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hola,
A ver si el LoadFromStream lo hago funcionar bien:
WITH OBJECT ::oImage1 := TImageEditor():New( Self )
:SetBounds( 8, 8, 818, 610 )
:nAnchors := akALL
:lAutoScroll := .F.
:Create()
END
::oImage1:Load("miImagen.JPG")
c := oImage1:oPicture:MakeThumbNail( 500 , 600, gfJPEG )
::oImage1:oPicture := TPicture():LoadFromStream( c )
¿Serí­a así­? Si es así­... se me queda bloqueado... Y si no es así­... ¿como?
Lo que me interesa es, sobre la imagen que está en memoria en ese momento,
cambiar el tamaño, y mostrar la imagen con el tamaño ya cambiado.
Eso mismo me está funcionando de esta manera:
WITH OBJECT ::oImage1 := TImageEditor():New( Self )
:SetBounds( 8, 8, 818, 610 )
:nAnchors := akALL
:lAutoScroll := .F.
:Create()
END
::oImage1:Load("miImagen.JPG")
c := oImage1:oPicture:MakeThumbNail( 500 , 600, gfJPEG )
memowrit("c:imagen.jpg",c)
::oImage1:oPicture := TPicture():LoadFromFile( "c:imagen.jpg" )
Saludos y gracias,
José Luis Capel

José Luis,
aquí­ tienes un ejemplo funcionando.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--