Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Asignar contenido de campo Blob a un OleContainer (MsWord) (https://www.clubdelphi.com/foros/showthread.php?t=34696)

albeiro_ospina 18-08-2006 00:20:43

Asignar contenido de campo Blob a un OleContainer (MsWord)
 
Asignar contenido de campo Blob a un OleContainer (MsWord)


Hola a todos. Espero que me puedan ayudar en lo siguiente, ya que por más que busco en los foros, no encuentro solución.

Estoy tratando de guardar y modificar un documento word en un campo Blob, a través de un OleContainer.

Al guardar el campo, lo hago a través de un TQuery utilizando ParamByName('xx') y aparentemente lo guarda, pero al modificar el registro, no sé cómo asignar el contenido del campo blob al OleContainer :confused: :confused: para así poder modificar el texto word.

Utilizo Delphi 6

Agradezo las sugerencias que me puedan brindar

AGAG4 19-08-2006 21:13:24

Checa Esto...
 
Si lo que quieres es pasar el valor del campo blob a un documento en Word, checate los componentes de la paleta Server.

albeiro_ospina 22-08-2006 19:23:54

Gracias por responder!!!

Lo que necesito es mover el contenido de un campo Blob, a un TOleContainer, el cual en el momento de ser activado, despliega en pantalla el documento en word sin utilizar componentes de la paleta Servers porque necesito mostrar el documento dentro de la ventana de mi aplicación y no ejecutar word en una nueva ventana.

Me imagino que el comando para cargar el contenido de dicho campo sería algo como

Código:

OleContainer.LoadFromStream(IBQuery1.FieldByName('documento').As????)

charlie_wonka 23-08-2006 04:24:07

Hola, Yo uso Fibplus, y lo hago mas o menos asi , me imagino que con TIBQuery , es muy parecido o casi igual


Código Delphi [-] var FQry:TpFIBQuery; FFoto:TPicture; //.... //.... Begin //.... FFoto:=TPicture.Create; //.. //... if not ( FQry.FieldByName('FOTOGRAFIA').IsNull ) then Begin FFileName:= 'mi_archivo_jpg.jpg' ; FQry.FieldByName('FOTOGRAFIA').SaveToFile(FFileName); try try FFoto.LoadFromFile(FFileName); except on e:Exception do FFoto:=TPicture.Create; end; finally deletefile(FFileName); end; end; End //y ahora tienes un TPicture con la imagen de la base de datos ... //


Ahora puedes utilizar el TPicture para lo que quieras , por ejemplo mandarlo a un Stream y cargarlo


OleContainer.LoadFromStream(FMyStream....)

albeiro_ospina 28-08-2006 19:56:27

Gracias por responder.

Hice la prueba y efectivamente me funcionó utilizando un archivo intermedio para hacer SaveToFile y posteriormente un LoadFromStream


En ocasiones el OleContainer me está generando excepciones que no he detectado la causa, pero mi problema inicial ya quedó solucionado. Nuevamente: Gracias!!!


La franja horaria es GMT +2. Ahora son las 11:59:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi