打印直接预览

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 FromShowFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
 function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 
 function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
@@ -46,6 +48,36 @@ begin
   Result := JsonResult;
 end;
 
+function FromShowFr3(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, 13, '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 FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 type
   TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;

Delphi7/系统文件/演示终端/SYSTEMSET.ini

@@ -1,6 +1,6 @@
 [SERVER]
-服务器地址=101.132.143.144
+服务器地址=121.41.15.99
-数据库名称=ysyishudata
+数据库名称=YSFhKelong
 是否自动更新=1
-软件名称=演示程序
+软件名称=演示数据