Cómo extraer un documento pdf de una tabla

[GustavoCruz]

Hola amigos del foro.

Mi pregunta es si ya tengo almacenado un documento pdf en una tabla, el campo es un blob sub_type 0, (no sé si está bien definido); cómo hago para extraerlo y mostrarlo en el programa pdf predeterminado en la máquina del cliente.

No estoy utilizando ningún componente, bueno sería tener uno; pero me gustaría más cómo estraerlo y visualizarlo en otro programa.


Mil Gracia por vuestro tiempo

GustavoCruz

[cecam]

Por ejemplo

Guardando el contenido del campo

    TBlobField(campo).SaveToFile(archivo);

y después abriendo el archivo

ShellExecute(0,nil,PChar(archivo),nil,nil,SW_NORMAL);

Saludos!

[GustavoCruz]

Gracias cecam, por tu rápida respuesta.

La variable "archivo" es de tipo String?,

Gracias por tu tiempo


Gustavo Cruz

[cecam]

Empezado por GustavoCruz

La variable "archivo" es de tipo String?,

Si.

Mirate la ayuda de TField.SaveTofile y de ShellExecute . . . verás todas las opciones y parametros.

Saludos!

[Neftali [Germán.Estévez]]

Segúramente ayudaría sabe cómo lo has guardado, para realizar la extracción de forma análoga.

[GustavoCruz]

Hola Neftali, gracias por tu respueta.

la inserción la logré realizar de la siguiente manera

Código Delphi [-]
with fDatos do
        begin
          qArchivos.Open;
          qArchivos.Append;
          qArchivosARCCODIGO.AsString:= hvccodigo.Text;
          TBlobField(qArchivosARCARCHIVO).LoadFromFile(hvcarchivo.FileName);
          qArchivos.Post;
        end;

Muchas gracias por tu coloboración


Gustavo Cruz