Ver Mensaje Individual
  #5  
Antiguo Hace 1 Semana
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.405
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si es texto, también puedes usar pdftotext.exe (de Xpdf) y capturar la salida.
uses ShellAPI;
Código Delphi [-]
procedure ExtractWithXpdf;
var
  CommandLine: string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  CommandLine := 'pdftotext.exe documento.pdf salida.txt';
  
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  
  if CreateProcess(nil, PChar(CommandLine), nil, nil, False, 
     CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
  begin
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    
    // Leer el archivo de texto resultante
    Memo1.Lines.LoadFromFile('salida.txt');
  end;
end;
Responder Con Cita