Cómo extraer un documento pdf de una tabla
 

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

Por ejemplo

Guardando el contenido del campo

y después abriendo el archivo

Saludos!

Gracias cecam, por tu rápida respuesta.

La variable "archivo" es de tipo String?,

Gracias por tu tiempo


Gustavo Cruz

Si.

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

Saludos!

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

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

Pues la respuesta de cecam te viene perfecta.

Lo guardas en un fichero en tu disco:

Código Delphi [-]
TBlobField(campo).SaveToFile(archivo);

Y luego lo abres con el programa predeterminado:

Código Delphi [-]
ShellExecute(0,nil,pchar(archivo),nil,nil,SW_NORMAL):

Gracias por tu respuesta Casimiro Notevi pero eso no me está funcionando.
y no entiendo en dónde pueda estar el problema.

El mensaje de error que me muestra es: Unable to create file "".

este es el código:

Código Delphi [-]
var
  archivo: String;
begin
  with fDatos do
    begin
      //archivo := nil;
      qArchivos.Open;
      TBlobField(qArchivosARCARCHIVO).SaveToFile(archivo);
//      ShellExecute(0, nil, nil, nil, SW_NORMAL);
      ShowMessage(archivo);
      ShellExecute(0, 'Open', PChar(archivo), '', '', SW_SHOW)
    end;

Gracias por vuestro tiempo


Gustavo Cruz

A ver...

Código Delphi [-]
procedure TFrameDocumentosEscaner.grImagenesDblClick(Sender: TObject);
const
    _rundll32exe_           = 'RunDll32.exe';
    _ImageView_Fullscreen_  = 'ImageView_Fullscreen';
    _Shimgvwdll_            = 'SHIMGVW.DLL';
var
    cFile,
    cProgramaVisor, cRun, cParam : string;
    mFile : TFileName;
begin
  inherited;
    if qrImagenes.RecordCount=0 then
        exit;
    //
    cFile:='';
    cProgramaVisor:='';
    cRun:='';
    cParam:='';
    //
    // Cogemos el nombre del fichero y lo guardamos en disco para su posterior visionado
    if qrImagenes.FieldByName('NOMBREFICHERO').asString='' then // cogido del escaner y no tiene nombre fichero
        cFile := ExtractFilePath(ParamStr(0))+'tmp.jpg'
    else // codigo de fichero
        cFile := ExtractFilePath(ParamStr(0))+'tmp'+ExtractFileExt(qrImagenes.FieldByName('NOMBREFICHERO').asString);
    TBlobField(qrImagenes.FieldByName('IMAGEN')).SaveToFile( cFile );
    cProgramaVisor := BuscarEjecutableAsociado(cFile);
    //
    mFile := TFileName( #34+cFile+#34 );
    //
    if pos(_Shimgvwdll_,AnsiUpperCase(cProgramaVisor))>0 then
    begin
        cRun := cProgramaVisor;
        cProgramaVisor := ExtractFilePath(cProgramaVisor)+_rundll32exe_;
        cParam := cRun + ' '+_ImageView_Fullscreen_+' ';
        mFile := TFileName( cFile );    // con el visor por defecto de windows no admite las comillas
    end;
    //
    // mFile := TFileName( #34+cFile+#34 );
    if cRun<>'' then
        RunAndWaitShell( cProgramaVisor, cParam+mFile, Sw_ShowNormal )
    else
        RunAndWaitShell( cProgramaVisor, mFile,        Sw_ShowNormal );
    //
    // ahora lo borramos
    DeleteFile(cFile);
end;

Ahora a quitar cosas y a cambiar :D

Muchas gracias Casimiro Notevi, probaré y luego te comento.


Gustavo Cruz

Asegúrate de que el path del fichero es correcto. PArece que te está diciendo que lo puede extraer, pero no lo puede guardar.

Nada compañeros definitivamente no he podido hacerlo.

Así que como dijo Kiko. "Me doy..."

Gracias a todos por sus comentarios y respuestas. Quizás lo intente después

Gustavo Cruz

No, es eso ya medí cuenta el error lo muestra es al descargar los datos en la variable "archivo"

Gracis por vuestra ayuda

Pon el código que estás usando, basicamente sólo es localizar el registro, luego extraer el pdf a un fichero en disco y ejecutarlo.

Una vez posicionado en el registro, olvida todo lo que te he copiado antes, usa sólo esto:

TBlobField(qrArchivosARCARCHIVO).SaveToFile( FileName );
o bien
TBlobField(qrArchivos.FieldByName('ARCARCHIVO')).SaveToFile( FileName ); <-- como se llame tu campo

Asegúrate que en FileName llevas un nombre correcto.

Luego lo abres con el shellexecute(...);

Hola compañero foreros este es el código que tengo y según las indicaciones que me han dado pues debería funcionar.

Código Delphi [-]
procedure TfPrincipal.acListarClick(Sender: TObject);
var
    cFile : string;
    mFile : TFileName;
begin
  inherited;
    with fDatos do
      begin
        qArchivos.Open;
        TBlobField(qArchivos.FieldByName('arcarchivo')).SaveToFile( cFile );
        mFile := TFileName( #34+cFile+#34 );
      end;
end;

pero me sigue mostrando el error.
Y si se carga en un Stream. Aunque tampoco sé cómo se hace eso:confused:

Gracias por vuestro tiempo


Gustavo Cruz

¿Pero qué error te sale? y exactamente dónde? :confused:

El mensaje de error que me muestra es: Unable to create file "".

dónde?

aquí:

Código Delphi [-]
TBlobField(qArchivos.FieldByName('arcarchivo')).SaveToFile( cFile )

y no entiendo por qué sucede...:confused:

Normal, si no le has puesto un nombre :), asígnale uno:

Código Delphi [-]
cFile := 'c:\unnombre.pdf';

Gracias a Clubdelphi, por existir.

Porque si no, qué hariamos nosotros:D:D:D:D:D los que sufrimos de segera
nunca ví lo del nombre del archivo y así jamás me iba a mostrar el archivo.

Atentamente, y muy agradecido


GustavoCruz