Delphi提取PDF文本实例_DELPHI浏览PDF

Delphi提取PDF文本

60 浏览量更新于2023-03-16 评论 1 收藏 43KB PDF 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Delphi提取提取PDF文本实例文本实例

下面小编就为大家带来一篇Delphi提取PDF文本实例。小编觉得挺不错的，现在就分享给大家，也给大家做个参

考。一起跟随小编过来看看吧

生成PDF的控件很多，但解析的不是太多，pdf Toolkit可以，但测试的第一个复杂的pdf就报告错误，并且汉字乱码，可能使用

的版本或使用方法不对。

想起之前使用java调用的Apache名下的pdfBox库很好用，于是就用下载了pdfBox，使用Delphi来调用pdfBox解析pdf文本。

环境要求：环境要求：java运行环境运行环境

pdfBox应用包：应用包：pdfbox-app-2.0.6.jar

这里使用了DOS命令行来解析，然后调用解析结果。

首先是执行首先是执行DOS命令：命令：

procedure CheckResult(b: Boolean);

begin

if not b then

raise Exception.Create(SysErrorMessage(GetLastError));

end;

function RunDOS(const CommandLine: string): string;

var

HRead, HWrite: THandle;

StartInfo: TStartupInfo;

ProceInfo: TProcessInformation;

b: Boolean;

sa: TSecurityAttributes;

inS: THandleStream;

sRet: TStrings;

begin

Result := '';

FillChar(sa, sizeof(sa), 0);

//设置允许继承，否则在NT和2000下无法取得输出结果

sa.nLength := sizeof(sa);

sa.bInheritHandle := True;

sa.lpSecurityDescriptor := nil;

b := CreatePipe(HRead, HWrite, @sa, 0);

CheckResult(b);

FillChar(StartInfo, SizeOf(StartInfo), 0);

StartInfo.cb := SizeOf(StartInfo);

StartInfo.wShowWindow := SW_HIDE;

//使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式

StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;

StartInfo.hStdError := HWrite;

StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE); //HRead;

StartInfo.hStdOutput := HWrite;

b := CreateProcess(nil, //lpApplicationName: PChar

PChar(CommandLine), //lpCommandLine: PChar

nil, //lpProcessAttributes: PSecurityAttributes

nil, //lpThreadAttributes: PSecurityAttributes

True, //bInheritHandles: BOOL

CREATE_NEW_CONSOLE,

nil,

StartInfo,

ProceInfo);

CheckResult(b);

WaitForSingleObject(ProceInfo.hProcess, INFINITE);

inS := THandleStream.Create(HRead);

if inS.Size > 0 then

begin

sRet := TStringList.Create;

sRet.LoadFromStream(inS);

Result := sRet.Text;

sRet.Free;

end;

inS.Free;

CloseHandle(HRead);

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余1页未读，立即下载

weixin_38516956

粉丝: 6
资源: 973

会员权益专享

Delphi提取PDF文本实例

评论0

会员权益专享

最新资源

Delphi提取PDF文本实例

评论0

91OCR文字识别软件 3.6版

Delphi提取PDF文本.txt

DELPHI PDF文件打印

delphi读取pdf内容

delphi powerpdf 下载

delphi7 pdf插件

delphi powerpdf

delphi word转文本

delphi打印pdf总是默认打印机

delphi 操作pdf常用控件

delphi 读取pdf

delphi richedit实例

delphi pdfview 控件

delphi 提取资源文件

delphi7 pdf 显示文件

delphi 11 pdf

delphi pdf控件下载

从入门到精通 delphi 2006 pdf

delphi添加pdf图章 Quick PDF Library

delphi android 写文本

会员权益专享

最新资源