• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

[JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PWideChar

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi代码

 1 unit UnitDll;
 2 
 3 interface
 4 
 5 uses
 6   StrUtils, SysUtils, Dialogs;
 7 
 8 function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;
 9 
10 implementation
11 
12 function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;
13 var
14   lvData: WideString;
15 begin
16   ShowMessage(pvData);
17   lvData := pvData;
18   ShowMessage(lvData);
19   lvData := lvData + FormatDateTime('YYYYMMDDHHMMSSZZZ',Now);
20   Result := PWideChar(lvData);
21   ShowMessage(Result);
22 end;
23 
24 end.

 

Java调用代码

 1 package com.jna.demo;
 2 
 3 import com.sun.jna.Library;
 4 import com.sun.jna.Native;
 5 import com.sun.jna.WString;
 6 
 7 public class JnaDemo {
 8     
 9     public interface RtcPubLibrary extends Library{
10         RtcPubLibrary instance = (RtcPubLibrary) Native.loadLibrary("JavaDll", RtcPubLibrary.class);
11         public WString DoBusinessWide(char[] pvData);
12     }
13 
14     public static void main(String[] args) {
15         System.setProperty("jna.encoding", "GBK");
16         StringBuilder sBuilder = new StringBuilder();
17         sBuilder.append("123测试");
18         char[] pvData = sBuilder.toString().toCharArray();
19         WString lvData = RtcPubLibrary.instance.DoBusinessWide(pvData);
20         System.out.println("Wstring-->" + lvData);
21     }
22 
23 }

 

正常返回结果:Wstring-->123测试20160825160441882


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi连接DBF发布时间:2022-07-18
下一篇:
delphi 图像处理 图像放大缩小发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap