Asignar contenido de campo Blob a un OleContainer (MsWord)

[albeiro_ospina]

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 para así poder modificar el texto word.

Utilizo Delphi 6

Agradezo las sugerencias que me puedan brindar

[AGAG4]

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]

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

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

[charlie_wonka]

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]

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!!!