14 lines
437 B
ObjectPascal
14 lines
437 B
ObjectPascal
|
unit U_printPdf;
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
Windows,forms;
|
|||
|
|
// formId =1 <20><><EFBFBD><EFBFBD>id
|
|||
|
|
//mRecid='<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>'
|
|||
|
|
//printNumber=1 <20><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>
|
|||
|
|
//printFlag=1 '<27><>ӡԤ<D3A1><D4A4>;0<><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ
|
|||
|
|
//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' ;
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
end.
|