Ver Mensaje Individual
  #5  
Antiguo 22-04-2025
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví 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