Sacar datos de un pdf

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

Recuerdo haber mirado esto hace tiempo, y hay algunas herramientas gratuítas que te permiten, por ejemplo, extraer el texto de un PDF.
Si esto te sirve puedes llamar a alguna de estas herramientas (de consola algunas) y una vez obtenido el texto, parsear los datos que necesites.

[bucanero]

Hola,

Yo utilizo una DLL para extraer el contenido de los PDF, en concreto PDFtext.dll que es totalmente funcional en su versión shareware, solamente sale una ventana tipo popUp cada vez que se extrae el texto, por lo demas es bastante fácil de utilizar, sin dependencias a ADOBE o cualquier otro programa externo.

La web de descarga es http://www.is-soft.de/pdfanalyzer/mdownloads.html
y el uso es tan simple como:

Código Delphi [-]
 function GetPDFPageCount(const FileName:PWideChar):LongInt;  stdcall; external 'PDFtext.dll';
 function GetPDFText(const FileName: PWideChar;
    opt: LongInt=3;
    hw: LongInt=0;
    fast: LongInt=0;
    target: PWideChar=0;
    lspaces: LongInt=1;
    ptitel: PWideChar=0;
    pos:  LongInt=0;
    page: LongInt=0;
    clock: LongInt=0;
    blank: LongInt=0;
    ende: LongInt=0;
    wlist: LongInt=0): pWidechar; stdcall; external 'PDFtext.dll';

...

  texto:=GetPdfText(PWideChar(FileName));

Espero sea de utilidad
Un saludo

[anubis]

Gracias amigos.
Si, los pdf provienen de archivos xml tal cual están. No tengo los xml por eso me interesaba "algo" que pudiera leerlos y de ahi extraer los textos que necesito.
Como tienen la estructura xml ya tengo las referencias a buscar.

Voy a probar la dll que me pone bucanero a ver que sale..

muchas gracias de nuevo

[anubis]

Hola de nuevo,

Estoy intentando implementar el codigo de bucanero, pero me da error en la llamada.

Código Delphi [-]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public

    { public declarations }

      function GetPDFPageCount(const FileName:PWideChar):LongInt;  stdcall;
 function GetPDFText(const FileName: PWideChar;
    opt: LongInt=3;
    hw: LongInt=0;
    fast: LongInt=0;
    target: PWideChar=0;
    lspaces: LongInt=1;
    ptitel: PWideChar=0;
    pos:  LongInt=0;
    page: LongInt=0;
    clock: LongInt=0;
    blank: LongInt=0;
    ende: LongInt=0;
    wlist: LongInt=0): pWidechar; stdcall;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  filename:string;
  texto:string;
begin
 if opendialog1.Execute then
 begin
   filename:=opendialog1.FileName;
     texto:=GetPdfText(PWideChar(FileName));

 end;
end;
 function GetPDFPageCount(const FileName:PWideChar):LongInt;  stdcall; external 'PDFtext.dll';
 function GetPDFText(const FileName: PWideChar;
    opt: LongInt=3;
    hw: LongInt=0;
    fast: LongInt=0;
    target: PWideChar=0;
    lspaces: LongInt=1;
    ptitel: PWideChar=0;
    pos:  LongInt=0;
    page: LongInt=0;
    clock: LongInt=0;
    blank: LongInt=0;
    ende: LongInt=0;
    wlist: LongInt=0): pWidechar; stdcall; external 'PDFtext.dll';
end.

unit1.pas(58,44) Error: Incompatible types: got "ShortInt" expected "PWideChar"

También busqué en el ejemplo de la propia dll pero lo maneja un poco diferente.

[bucanero]

Hola Anubis

Tu código lo he probado y a mi me funciona correctamente, Imagino que si te da error podrá ser por la versión de la DLL, en mi caso estoy usando la 4.0.0, creo que en la web ya es posterior.

Voy a intentar hacer pruebas con la versión de la web y comento

[bucanero]

La ultima versión de la DLL es la misma que estoy utilizando yo, las pruebas las hice con la versión de 32 bits y con este PDF de ejemplo, el cual conseguí leer sin problemas:

http://www.ite.educacion.es/formacio...pdf/html11.pdf

la única diferencia respecto de tu código y el mio es que yo solo declaro las funciones en la parte de la INTERFACE, fuera del FORM

Código Delphi [-]
type
  TForm1  
    ...
  end;

  function GetPDFPageCount(const FileName:PWideChar):LongInt;  stdcall; external 'PDFtext.dll';
  function GetPDFText(const FileName: PWideChar;
    opt: LongInt=3;
    hw: LongInt=0;
    fast: LongInt=0;
    target: PWideChar=0;
    lspaces: LongInt=1;
    ptitel: PWideChar=0;
    pos:  LongInt=0;
    page: LongInt=0;
    clock: LongInt=0;
    blank: LongInt=0;
    ende: LongInt=0;
    wlist: LongInt=0): pWidechar; stdcall; external 'PDFtext.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  filename: string;
  texto: string;
begin
  if opendialog1.Execute then begin
    filename := opendialog1.FileName;
    texto := GetPdfText(PWideChar(filename));
    Memo1.Lines.Add(texto);
  end;
end;

end.

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

Así a primera vista, diría que las inicializaciones de target y ptitel son de un tipo incorrecto.