Cómo extraer un documento pdf de una tabla

[GustavoCruz]

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

[Casimiro Noteví]

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

[GustavoCruz]

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


Gustavo Cruz

[GustavoCruz]

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

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

Empezado por GustavoCruz

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

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

[GustavoCruz]

Empezado por Neftali

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

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

Gracis por vuestra ayuda

[Casimiro Noteví]

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(...);

[GustavoCruz]

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

Gracias por vuestro tiempo


Gustavo Cruz

[Casimiro Noteví]

Empezado por GustavoCruz

pero me sigue mostrando el error.

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

[GustavoCruz]

Empezado por Casimiro Notevi

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

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