pdfファイル中を検索について

解決


のりたま  2020-08-11 02:07:06  No: 148988  IP: [192.*.*.*]

こんにちは。

Windows 10 Pro 64bit
Delphi Berlin Ent

以上の環境で あるpdfファイルに記載されている例えば「Z」から始まる文字列を検索したいのですが
そのようなことが可能でしょうか?
もし、可能でしたらヒントでも構いませんので
ご案内頂ければ助かります。
よろしくお願いいたします。

編集 削除
のりたま  2020-08-11 05:35:43  No: 148989  IP: [192.*.*.*]

ネット検索していましたら、
xdoc2txt.exeというpdfファイルをテキストデータに変換するアプリをみつけました。

xdoc2txt.exe と 1.pdfを C:\TMPフォルダに入れて
以下のようにして実行したのですがtmp_1.txtファイルは作成されませんでした。
コマンドラインではtmp_1.txtファイルは作成されるのですが
何がおかしいのでしょうか?

ShellExecute(Handle, 'open', PChar('C:\TMP\xdoc2txt.exe'), PChar(' C:\TEMP\1.pdf' + ' > ' + 'C:\TMP\tmp1.txt'), nil, SW_NORMAL);

編集 削除
au  2020-08-11 07:40:27  No: 148990  IP: [192.*.*.*]

下記だとどうですか?
ShellExecute(Handle, 'open', PChar('C:\TMP\xdoc2txt.exe'), PChar(' -f C:\TEMP\1.pdf'), nil, SW_NORMAL);

編集 削除
Mr.XRAY  2020-08-11 23:09:19  No: 148991  IP: [192.*.*.*]

以下のようにしみてください.
引数に,変数ではない文字列を直接渡す場合は,
PChar でキャストしないようにします.
 
   
procedure TForm1.Button1Click(Sender: TObject);
var
  LCmdLine : string;
begin
  LCmdLine := '/c C:\TMP\xdoc2txt.exe C:\TEMP\1.pdf > C:\TMP\tmp1.txt';
  ShellExecute(Handle, '', 'cmd.exe', PChar(LCmdLine), nil, SW_HIDE);
end;

編集 削除
のりたま  2020-08-15 05:18:34  No: 148998  IP: [192.*.*.*]

auさん、Mr.XRAYさんご回答ありがとうございます。

編集 削除