SaveToStream

[pablogarciau]

con este codigo mando un savetostream :
WITH OBJECT MantenArt():New(Self)
:cText := "Alta de Articulo "
::oArtDataSet:AddNew()
:RequestState()
:ShowModal()
IF :nModalResult == mrOK
If !:oFoto:oBkGnd = NIL
::oArtDataSet:Foto := :oFoto:oBkGnd:Savetostream() <---ERROR
End
::oArtDataSet:Update()
oFoto es un TBevel, oBkgnd es la imagen de fondo
lo estoy tratando de pasar a un campo BLOB de MySQL, ya probe tambien
con el tipo de columa TEXT LONGBLOB y LONGTEXT
y me manda el error de la imagen adjunta
ALGUNA ORIENTACION ?
MUCHAS GRACIAS
--

[jfgimenez]

Juan Pablo,
> con este codigo mando un savetostream :
>
> WITH OBJECT MantenArt():New(Self)
> :cText := "Alta de Articulo "
> ::oArtDataSet:AddNew()
> :RequestState()
> :ShowModal()
> IF :nModalResult == mrOK
> If !:oFoto:oBkGnd = NIL
> ::oArtDataSet:Foto := :oFoto:oBkGnd:Savetostream() <---ERROR
> End
> ::oArtDataSet:Update()
>
> oFoto es un TBevel, oBkgnd es la imagen de fondo
> lo estoy tratando de pasar a un campo BLOB de MySQL, ya probe tambien
> con el tipo de columa TEXT LONGBLOB y LONGTEXT
> y me manda el error de la imagen adjunta
>
> ALGUNA ORIENTACION ?
Por favor, pon sólo en una línea:
:oFoto:oBkGnd:Savetostream()
para comprobar si el problema está en SaveToStream() o en el dataset. Si el
problema es de SaveToStream(), por favor, envíanos la imagen que te da el
problema. Y si el fallo es del dataset, envíanos un ejemplo incluida la base
de datos (lo más reducida posible).
--
Un saludo,
José F. Giménez
http://www.xailer.com

[pablogarciau]

Jose F. Gimenez escribió:
> Por favor, pon sólo en una lí­nea:
>
> :oFoto:oBkGnd:Savetostream()
>
> para comprobar si el problema está en SaveToStream() o en el dataset. Si el
> problema es de SaveToStream(), por favor, enví­anos la imagen que te da el
> problema. Y si el fallo es del dataset, enví­anos un ejemplo incluida la base
> de datos (lo más reducida posible).
>
puse solo en la linea lo que me indicas y obtengo el mismo error, te
anexo las imagenes con las que probe
--

[jfgimenez]

Juan Pablo,
> puse solo en la linea lo que me indicas y obtengo el mismo error, te
> anexo las imagenes con las que probe
Gracias, voy a probarlo. Por cierto, las imágenes ¿cómo las has cargado,
desde recursos o desde fichero?
--
Un saludo,
José F. Giménez
http://www.xailer.com

[pablogarciau]

Jose F. Gimenez escribió:
> Gracias, voy a probarlo. Por cierto, las imágenes ¿cómo las has cargado,
> desde recursos o desde fichero?
>
Desde fichero
Saludos

[jfgimenez]

Juan Pablo,
por favor, prueba con este .obj
--
Un saludo,
José F. Giménez
http://www.xailer.com


Attached files ipicture.zip (3.7 KB)Â

[pablogarciau]

Jose F. Gimenez escribió:
> Juan Pablo,
>
> por favor, prueba con este .obj
>
Jose
Incluí­ el objeto y sigue el mismo error

[jfgimenez]

Juan Pablo,
por favor, prueba este proyecto (incluyendo el .obj que publiqué) y dime si
te funciona. A mí me está funcionando perfectamente.
--
Un saludo,
José F. Giménez
http://www.xailer.com


Attached files Images.zip (1.8 KB)Â

[pablogarciau]

Jose F. Gimenez escribió:
> Juan Pablo,
>
> por favor, prueba este proyecto (incluyendo el .obj que publiqué) y dime si
> te funciona. A mí­ me está funcionando perfectamente.
>
Modifique el que me enviaste y te lo regreso, pruebalo por favor
Saludos
--

[jfgimenez]

Juan Pablo,
el problema ahora es que estás llamando a :SaveToStream() después de que el
control (y el formulario) hayan sido destruidos, y por lo tanto, la imagen
ya no existe. Ten en cuenta que la destrucción del formulario ocurre justo
antes de volver de la llamada a :ShowModal().
Para evitar este problema puedes hacer una cosa muy sencilla: pon a .T. la
propiedad lHideOnClose de TForm1 y verás que ya funciona. Lo que hace esto
es que al cerrar el formulario no se destruye, sino que simplemente se
oculta. En este caso es también necesario llamar al método End() del
formulario cuando ya hayas terminado con todo, de lo contrario seguiría
existiendo. Por cierto, en el ejemplo tenías esa llamada a End(), pero sólo
hay que hacerlo cuando lHideOnClose = .T.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[pablogarciau]

Gracias Jose !!
ahora te molesto con esto, ya recibo el savetostream en una variable
local tipo caracter, incluso la paso al campo donde la quiero grabar
pero al hacer Datset:Update() recibo un error, supongo yo que sera por
el tipo de campo que estoy usando, mi pregunta es precisamente eso, cual
es el tipo de campo adecuado ?, TEXT, LONGTEXT, BLOB ?, es para MySQL
Te agradezco tu ayuda