117 lines
3.3 KiB
ObjectPascal
117 lines
3.3 KiB
ObjectPascal
unit U_RPFun;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, cxStyles, cxCustomData,
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DBGrids, DB, cxDBData,
|
|
cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB, StrUtils, Midas,
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxTimeEdit,
|
|
cxTreeView, cxGrid, cxDBLookupComboBox, cxCalendar, cxCurrencyEdit,
|
|
cxGridExportLink, ExtCtrls, Buttons, DBClient, RTComboBox, cxDropDownEdit,
|
|
cxGridBandedTableView, cxGridDBBandedTableView, cxRichEdit, cxButtonEdit,
|
|
IniFiles, WinSock, IdHTTP, dxcore, cxTextEdit, FireDAC.Comp.Client, cxCheckBox,
|
|
Vcl.Clipbrd, cxMemo, dxLayoutControl;
|
|
|
|
function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
|
|
function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
|
|
function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
|
|
implementation
|
|
|
|
function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
type
|
|
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
|
|
var
|
|
Tf: TMyFunc;
|
|
Tp: TFarProc;
|
|
Th: Thandle;
|
|
JsonResult: PChar;
|
|
begin
|
|
Th := LoadLibrary('ReportPrint.dll');
|
|
if Th > 0 then
|
|
begin
|
|
Tp := GetProcAddress(Th, 'GetDllForm');
|
|
if Tp <> nil then
|
|
begin
|
|
Tf := TMyFunc(Tp);
|
|
JsonResult := Tf(Application, 11, 'FR3报表', DataBaseStr, JsonArgs);
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "读取调用号异常"}';
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "找不到ReportPrint.dll"}';
|
|
end;
|
|
Result := JsonResult;
|
|
end;
|
|
|
|
function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
type
|
|
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
|
|
var
|
|
Tf: TMyFunc;
|
|
Tp: TFarProc;
|
|
Th: Thandle;
|
|
JsonResult: PChar;
|
|
begin
|
|
Th := LoadLibrary('ReportPrint.dll');
|
|
if Th > 0 then
|
|
begin
|
|
Tp := GetProcAddress(Th, 'GetDllForm');
|
|
if Tp <> nil then
|
|
begin
|
|
Tf := TMyFunc(Tp);
|
|
JsonResult := Tf(Application, 12, 'FR3报表', DataBaseStr, JsonArgs);
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "读取调用号异常"}';
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "找不到ReportPrint.dll"}';
|
|
end;
|
|
Result := JsonResult;
|
|
end;
|
|
|
|
function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
|
|
type
|
|
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
|
|
var
|
|
Tf: TMyFunc;
|
|
Tp: TFarProc;
|
|
Th: Thandle;
|
|
JsonResult: PChar;
|
|
begin
|
|
Th := LoadLibrary('ReportPrint.dll');
|
|
if Th > 0 then
|
|
begin
|
|
Tp := GetProcAddress(Th, 'GetDllForm');
|
|
if Tp <> nil then
|
|
begin
|
|
Tf := TMyFunc(Tp);
|
|
JsonResult := Tf(Application, 21, 'Rmf报表', DataBaseStr, JsonArgs);
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "读取调用号异常"}';
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
JsonResult := '{"succsee":false,"message": "找不到ReportPrint.dll"}';
|
|
end;
|
|
Result := JsonResult;
|
|
end;
|
|
|
|
end.
|
|
|