unit U_printPdf; interface uses Windows,forms; // formId =1 功能id //mRecid='文件表记录号' //printNumber=1 打印份数 //printFlag=1 '打印预览;0立即打印 //DataBaseStr function printPdf(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ; // formId =1 功能id //mRecid='文件表记录号' //printNumber=1 打印份数 //printFlag=1 '打印预览;0立即打印 //DataBaseStr function printReport(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ; // formId =1 功能id //mRecid='文件表记录号' //exportFileType=1 导出文件类型 pdf ,bmp ,jpg //DataBaseStr //返回结果,保存文件的记录号 主键 function exportFile(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;exportFileType:PChar;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'ExportFile' ; implementation end.