Java调用Delphi编写的Dll之实例Delphi使用PWideChar

本文介绍了一个使用Delphi编写的DLL导出函数,并通过Java的JNA库实现跨语言调用的例子。Delphi函数接收宽字符数据并返回当前时间戳格式化的宽字符串。Java程序加载DLL并调用该函数,展示如何在Java中处理Delphi返回的数据。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

Delphi 代码

unit UnitDll;

interface

uses
  StrUtils, SysUtils, Dialogs;

function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;

implementation

function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;
var
  lvData: WideString;
begin
  ShowMessage(pvData);
  lvData := pvData;
  ShowMessage(lvData);
  lvData := lvData + FormatDateTime('YYYYMMDDHHMMSSZZZ',Now);
  Result := PWideChar(lvData);
  ShowMessage(Result);
end;

end.

Java调用代码
···
package com.jna.demo;

import com.sun.jna.Library;
import com.sun.jna.Native;
import com.sun.jna.WString;

public class JnaDemo {

public interface RtcPubLibrary extends Library{
    RtcPubLibrary instance = (RtcPubLibrary) Native.loadLibrary("JavaDll", RtcPubLibrary.class);
    public WString DoBusinessWide(char[] pvData);
}

public static void main(String[] args) {
    System.setProperty("jna.encoding", "GBK");
    StringBuilder sBuilder = new StringBuilder();
    sBuilder.append("123测试");
    char[] pvData = sBuilder.toString().toCharArray();
    WString lvData = RtcPubLibrary.instance.DoBusinessWide(pvData);
    System.out.println("Wstring-->" + lvData);
}

}
···

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值