打印添加rmf

Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas

@@ -18,6 +18,8 @@ function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): P
 
 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;
@@ -80,5 +82,35 @@ begin
   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.