python delphi通信_python + delphi dll 混合编程

本文为作者原创作品，转载请注明出处。

作者：汉学

实践中需要在 python 中生成报表，开始尝试使用 PIL 库向空报表图片中插入所需的文字，可是后插入的文字与原有文字不太和谐，后来想到可以使用 delphi 开发 DLL，在DLL中实现报表生成，并由 python 调用 DLL，实践结果如下：

一、用 delphi 开发 DLL

libraryfr;usesSysUtils,

Classes,

frxClass,//FastReport 基本类

frxExportImage; //导出为 jpg 的类

{$R *.res}

function ExportJpg(strName: PChar; showSeal: Boolean): Boolean; stdcall;varfr: TfrxReport;

feJpg: TfrxJPEGExport;beginfr := TfrxReport.Create(nil);if not fr.LoadFromFile('custom.fr3') then beginfr.Free;

Result :=False;

Exit;end;try

//------------- 准备报表内容----------------

//向报表中插入姓名

TfrxMemoView(fr.FindObject('m_Name')).Text:=strName;

TfrxMemoView(fr.FindObject('m_Sex')).Text:= '男';

TfrxMemoView(fr.FindObject('m_Date1')).Tex