unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, SynPdf, StdCtrls, DebenuPDFLibraryDLL1111;typeTForm1 = class(TForm)btn1: TButton;edt1: TEdit;edt2: TEdit;lbl1: TLabel;procedure btn1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}// 读取pdf文本内容以及图片
function ReadPdf(const fileName, saveImagePath: string; var text: string;var imageFiles: string): string;
varrPdf: TDebenuPDFLibraryDLL1111;imageCount, i, j, num, keyStatus, FH, PR: Integer;
beginResult := '';num := 0;if Trim(fileName) = '' thenbeginResult := 'Path cannot be empty';Exit;end;if (Trim(saveImagePath) <> '') and (not DirectoryExists(saveImagePath)) thenbeginForceDirectories(saveImagePath); // 创建目录end;rPdf := TDebenuPDFLibraryDLL1111.Create('DebenuPDFLibraryDLL1111.dll'); // 库keyStatus := rPdf.UnlockKey('**********'); // 密钥 秘钥可以购买或者找我要if keyStatus <> 1 thenbeginResult := 'The library cannot be loaded or unlocked fails';Exit;end;tryrPdf.LoadFromFile(Trim(fileName), '');// 以直接访问模式打开文件并存储文件句柄FH := rPdf.DAOpenFile(fileName, '');for i := 1 to rPdf.DAGetPageCount(FH) dobeginrPdf.SelectPage(i); // 选区页text := text + rPdf.GetPageText(8); // 获取文本 8:更准确的文本提取算法if Trim(saveImagePath) <> '' thenbeginimageCount := rPdf.GetPageImageList(0); // 获取图片for j := 1 to rPdf.GetImageListCount(imageCount) do // 遍历当前页中的所有图片beginrPdf.SaveImageListItemDataToFile(imageCount, j, 0,saveImagePath + '\' + IntToStr(num) + '.png');imageFiles := imageFiles + saveImagePath + '\' + IntToStr(num)+ '.png ; ';inc(num);end;end;end;finallyrPdf.Free;end;
end;// 写pdf
function WritePdf(const fileName, text: string): string;
varwPdf: TDebenuPDFLibraryDLL1111;num, wStatus: Integer;
beginResult := '';if Trim(fileName) = '' thenbeginResult := 'Path cannot be empty';Exit;end;trywPdf := TDebenuPDFLibraryDLL1111.Create('DebenuPDFLibraryDLL1111.dll'); // 库trywStatus := wPdf.UnlockKey('*************'); // 密钥 if wStatus = 1 thenbeginnum := wPdf.AddTrueTypeSubsettedFont('FangSong', text, 0);wPdf.SelectFont(num);wPdf.DrawWrappedText(50, 750, 500, text);wPdf.SaveToFile(fileName);endelsebeginResult := 'The library cannot be loaded or unlocked fails';end;finallywPdf.Free;end;excepton e: Exception doResult := e.Message;end;
end;procedure TForm1.btn1Click(Sender: TObject);
vartext, imageFiles: string;
begintext := '';imageFiles := '';// showmessage(WritePdf(edt1.Text,edt2.Text));
  ShowMessage(ReadPdf(edt1.text, edt2.text, text, imageFiles));lbl1.Caption := text;ShowMessage(text);ShowMessage(imageFiles);
end;procedure TForm1.FormCreate(Sender: TObject);
begin//readAndWritePDf();
end;end.