Cómo extraer un documento pdf de una tabla

[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

[Casimiro Noteví]

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):

[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

[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