delphi call java jar

时间:2020-01-09
本文章向大家介绍delphi call java jar,主要包括delphi call java jar使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
function myJson(sSrc:widestring;sField:widestring):widestring;stdcall;
  var
    JSONObject: TJSONObject; 
  begin
    result:='';   
    JSONObject := TJSONObject.ParseJSONValue(sSrc) as TJSONObject;
    try
      if JSONObject.Count > 0 then
      begin
        { 2,按元素解析JSON数据 }        
        result:= JSONObject.Values[sField].ToString;
      end
    finally
      JSONObject.Free;
    end;
  end;
 
//返回报文以json格式返回,如下:
//"xxx":"123",
//"yyy":"0.01"
 
 
      //1 java端产生的结果保存在这个文件里,delphi端频繁读取这个文件.(每次调用时,文件名不同)
      //javaxx.jar 为自己单独写的一个jar包,这个jar包调用 delphi不能直接调用的jar包
      fileName:= 'xx.dat';  
  
      s:='YYYY='123&XXXX=123';

      sparam:='"'+s+'"';//delphi端准备传给javaxx jar包的参数

      shellexecute(0,nil,'cmd.exe',pchar('/c java -jar javaxx.jar '+sparam),nil,SW_HIDE);


      
      //2 ...等待java端生成的文件fileName   
 
      sxx:= myjson(stringlist1.loadfromfile(fileName).text,'XXXX');
 

$flag 上一页 下一页