AbstractForever
- 浏览: 307891 次
- 性别:
- 来自: 成都
-
文章分类
- 全部博客 (118)
- VS2008 (2)
- JAVA (34)
- AJAX (1)
- C# (1)
- Flex (16)
- FMS (6)
- SQLSERVER (1)
- ORACLE (1)
- Quartz (1)
- struts2 (1)
- java数据结构 (1)
- java设计模式 (3)
- JSF (0)
- web (2)
- jbpm4 (4)
- J2EE (1)
- webservice (2)
- javascript (8)
- spring (3)
- lucene (0)
- linux (9)
- ibatis (1)
- JPA (2)
- 外挂 (0)
- VB (0)
- Hibernate (1)
- OSGI (8)
- EXT (4)
- Maven (1)
- SpringSecurity (0)
- activiti (0)
- 项目开发 (0)
- 项目管理 (7)
- android (0)
- FFMPEG (1)
- C (2)
- eclipse (1)
最新评论
-
默默得守候在你的身边：
给力
java与Delphi写的dll交互 -
默默得守候在你的身边：
java与Delphi写的dll交互 -
fuguitong：
[url][url][url][url][url][url][ ...
doc转swf -
baidu_25402161：
到结束的时候一直 Can't delete processIn ...
一个请假单流程的实现(struts2.1.8+spring2.5+hibernate3集成jbpm4.3) -
lohaoo1：
nice！
java面包屑导航制作
有时候在项目开发的时候难免会和硬件提供的开发包接触，这些开发接口不是c写的就是Delphi写的。
如下是一个Delphi开发的dll，里面以各种接口方法进行java调用测试。大部分映射写法都能够找到。有时间会继续补充。
Delphi7工具下载地址：
http://big2.139.xdowns.com/b/BorlandDelphi7.zip
汉化包下载地址：
ftp://122.227.29.237/delphifans2009/tools/delphi7chs.rar
附上一些资料。便于读懂源码。以下例子足够java和Delphi交互使用。希望对大家有帮助。
新建一个dll很容易，通过向导就可以创建，下面写好的dll，内容如下：
library FirstDLL;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes;
{$R *.res}
type Date =record
Year:Word;
Month:Byte;
Day:Integer;
end;
PDate = ^Date;
TRec_1 = record
a: Word;//2字节 449218,449219
b: Byte;//1字节 449220,449221(补空),实际占2字节
c: Word;//2字节 449222,449222
//0x0000-0x0004共6个字节
end;
TRec_2 = record
a: Byte;//1字节 449192
b: Byte;//1字节 449193 449194 449195 449196 449197 449198 449199（4,9补空直到449200被8整除）,所以实际占7字节
c: Double;//8字节 449200
//共16字节
end;
Date_1 =record
Year:Word; //2字节,449208,449209
Month:Byte;//1字节,449210,449211(补空) ,实际占2字节
Day:Integer;//4字节,449212,449213,449214,449214
//共8个字节
end;
//加了packed按照实际字节来对齐
Date_2 =packed record
Year:Word; //2字节,449201,449202
Month:Byte;//1字节,449203
Day:Integer;//4字节,449204,449205,449206,449207
//共7个字节
end;
Date_3 =record
Year:Word; //2字节 449264 449265 449266 449267实际占4字节
Day:Integer;//4字节 449268 449269 449270 449271
Month:Byte;//1字节 449272 449273 449274 449275(补3个)
//共9个字节,4的倍数，所以12字节
end;
//Student和SFRCDA除了packed，其他都一样
//但是java类型映射的写法差别很大
type Student=packed record
kh:Integer;//4字节 449249,449250,449251,449252
mu:Byte;//1字节 449253
qty:Smallint;//2字节 449254 449255
je,ye:Integer;//8字节 449256 449257 449258 449259 449260 449261 449262 449263
year:Word;//2字节 449264 449265
month,day,hour,minute,second,ms,sd:Byte;//7字节 449266 449267 449268 449269 449270 449271 449272
jh:Byte;//1字节 449273
lb:Byte;//1字节 449274
online:Byte;//1字节 449275
//共27个字节
end;
PStudent=^Student;
//packed结构压缩，按照实际对齐
type SFRCDA=record
kh:Integer;
mu:Byte;
qty:Smallint;
je,ye:Integer;
year:Word;
month,day,hour,minute,second,ms,sd:Byte;
jh:Byte;
lb:Byte;
online:Byte;
end;
PSFRCDA=^SFRCDA;
type User=packed record
userName:PChar;
age:Integer;
intA:array[0..10] of Integer;
byteA:array[0..1] of Byte;
charA:array[0..2] of Char;
end;
PUser=^User;
//下面是一个结构体嵌套测试。
//个性参数结构体类型。TMD，真够多。
type SFPRDA = packed record
czmm:Word;
sqcz:array[1..8] of packed record dm:Byte;mm:Word end;
sdje:array[0..3] of packed record dz,jz:Word end;
open_xffs:Byte;
open_menu:Byte;
open_online:Byte;
para:array[0..7] of packed record
xffs:array[0..3] of packed record
dzlx_1:Byte;
dzje_1:Word;
jzlx_1:Byte;
jzje_1:Word;
dzlx_2:Byte;
dzje_2:Word;
jzlx_2:Byte;
jzje_2:Word;
end;
zk:array[0..3] of Shortint;
end;
end;
PSFPRDA=^SFPRDA;
type SFMUDA=array[1..2] of Word;
PSFMUDA=^SFMUDA;
type SFMTDA = array[0..2] of packed record
cs_sd:Word;
je_sd:Integer;
cs_day:Word;
je_day:Integer;
end;
PSFMTDA = ^SFMTDA;
function CallSFMTDA(sfmt:PSFMTDA):Integer;stdcall;
begin
sfmt[0].cs_sd := 65535;
sfmt[0].je_sd := 70000;
sfmt[0].cs_day := 60000;
sfmt[0].je_day := 80000;
sfmt[1].cs_sd := 60001;
sfmt[1].je_sd := 70001;
sfmt[1].cs_day := 60001;
sfmt[1].je_day := 80001;
sfmt[2].cs_sd := 60002;
sfmt[2].je_sd := 70002;
sfmt[2].cs_day := 60002;
sfmt[2].je_day := 80002;
Result := 0;
end;
function CallSFMUDA(mu:PSFMUDA;black:PInteger):Integer;stdcall;
begin
Writeln('mu[1]=',mu[1]);
Writeln('mu[2]=',mu[2]);
Writeln('black0=',black^);
Inc(black);
Writeln('black1=',black^);
Inc(black);
Writeln('black2=',black^);
Result := 0;
end;
function CallSFPRDA(pr:PSFPRDA):Integer;stdcall;
var i:Integer;
begin
Writeln('czmm=',pr.czmm);
for i := 1 to 8 do
begin
Writeln('pr.sqcz[',i,'].dm=', pr.sqcz[i].dm);
Writeln('pr.sqcz[',i,'].dm=', pr.sqcz[i].mm);
Writeln('*****************************************');
end;
for i := 0 to 3 do
begin
Writeln('pr.sdje[',i,'].dz=', pr.sdje[i].dz);
Writeln('pr.sdje[',i,'].jz=', pr.sdje[i].jz);
Writeln('*****************************************');
end;
Writeln('open_xffs=',pr.open_xffs);
Writeln('open_menu=',pr.open_menu);
Writeln('open_online=',pr.open_online);
Writeln('*****************************************');
Writeln('pr.para[0].zk[3]=',pr.para[0].zk[3]);
Result := 0;
end;
function CallUser(user:PUser):Integer;stdcall;
var i:Integer;
begin
user.age := 22;
user.userName := 'forever';
for i := 0 to High(user.intA) do
begin
user.intA[i] := i*2;
end;
for i := 0 to High(user.byteA) do
begin
user.byteA[i] := i;
end;
user.charA[0] := 'a';
user.charA[1] := 'b';
user.charA[2] := 'c';
Result := 0;
end;
function CallSFRCDA(sfrc:PSFRCDA):Integer;stdcall;
begin
sfrc.kh := 9385295;
sfrc.mu := 255;
sfrc.qty := 32767;
sfrc.je := -2000;
sfrc.ye := 4000;
sfrc.year := 2010;
sfrc.month := 09;
sfrc.day := 8;
sfrc.hour := 18;
sfrc.minute := 22;
sfrc.second := 44;
sfrc.ms :=22;
sfrc.sd :=3;
sfrc.jh :=4;
sfrc.lb := 31;
sfrc.online := 1;
Result := 0;
end;
function CallStudent(student:PStudent):Integer;stdcall;
begin
student.kh := 9385295;
student.mu := 255;
student.qty := 32767;
student.je := -2000;
student.ye := 4000;
student.year := 2010;
student.month := 09;
student.day := 8;
student.hour := 18;
student.minute := 22;
student.second := 44;
student.ms :=22;
student.sd :=3;
student.jh :=4;
student.lb := 31;
student.online := 1;
Result := 0;
end;
function CallStuArray(student:PStudent;var size:Integer):Integer;stdcall;
var i:Integer;
begin
for i := 0 to 2 do
begin
student.kh := 9385295;
student.mu := 255;
student.qty := 32767;
student.je := -2000;
student.ye := 4000;
student.year := 2010;
student.month := 09;
student.day := 8;
student.hour := 18;
student.minute := 22;
student.second := 44;
student.ms :=22;
student.sd :=3;
student.jh :=4;
student.lb := 31;
student.online := 1;
Inc(student);
end;
size := 3;
Result := 0;
end;
function CallByteSize():Integer;stdcall;
var t1:TRec_1;
var t2:TRec_2;
var d1:Date_1;
var d2:Date_2;
var d3:Date_3;
var sfrc:SFRCDA; //这里可以改成Student试试
begin
Writeln(Format('t1字节长度：%d',[SizeOf(t1)]));
Writeln(Format('t1中的a的地址是：%d',[Integer(@t1.a)]));
Writeln(Format('t1中的b的地址是：%d',[Integer(@t1.b)]));
Writeln(Format('t1中的c的地址是：%d',[Integer(@t1.c)]));
Writeln('**************************************************');
Writeln(Format('t2字节长度：%d',[SizeOf(t2)]));
Writeln(Format('t2中的a的地址是：%d',[Integer(@t2.a)]));
Writeln(Format('t2中的b的地址是：%d',[Integer(@t2.b)]));
Writeln(Format('t2中的c的地址是：%d',[Integer(@t2.c)]));
Writeln('**************************************************');
Writeln(Format('d1字节长度：%d',[SizeOf(d1)]));
Writeln(Format('d1中的Year的地址是：%d',[Integer(@d1.Year)]));
Writeln(Format('d1中的Month的地址是：%d',[Integer(@d1.Month)]));
Writeln(Format('d1中的Day的地址是：%d',[Integer(@d1.Day)]));
Writeln('**************************************************');
Writeln(Format('d2字节长度：%d',[SizeOf(d2)]));
Writeln(Format('d2中的Year的地址是：%d',[Integer(@d2.Year)]));
Writeln(Format('d2中的Month的地址是：%d',[Integer(@d2.Month)]));
Writeln(Format('d2中的Day的地址是：%d',[Integer(@d2.Day)]));
Writeln('**************************************************');
Writeln(Format('d3字节长度：%d',[SizeOf(d3)]));
Writeln(Format('d3中的Year的地址是：%d',[Integer(@d3.Year)]));
Writeln(Format('d3中的Month的地址是：%d',[Integer(@d3.Month)]));
Writeln(Format('d3中的Day的地址是：%d',[Integer(@d3.Day)]));
Writeln('**************************************************');
Writeln(Format('sfrc字节长度：%d',[SizeOf(sfrc)]));
Writeln(Format('sfrc中的kh的地址是：%d',[Integer(@sfrc.kh)]));
Writeln(Format('sfrc中的mu的地址是：%d',[Integer(@sfrc.mu)]));
Writeln(Format('sfrc中的qty的地址是：%d',[Integer(@sfrc.qty)]));
Writeln(Format('sfrc中的je的地址是：%d',[Integer(@sfrc.je)]));
Writeln(Format('sfrc中的ye的地址是：%d',[Integer(@sfrc.ye)]));
Writeln(Format('sfrc中的year的地址是：%d',[Integer(@sfrc.year)]));
Writeln(Format('sfrc中的month的地址是：%d',[Integer(@sfrc.month)]));
Writeln(Format('sfrc中的day的地址是：%d',[Integer(@sfrc.day)]));
Writeln(Format('sfrc中的hour的地址是：%d',[Integer(@sfrc.hour)]));
Writeln(Format('sfrc中的minute的地址是：%d',[Integer(@sfrc.minute)]));
Writeln(Format('sfrc中的second的地址是：%d',[Integer(@sfrc.second)]));
Writeln(Format('sfrc中的ms的地址是：%d',[Integer(@sfrc.ms)]));
Writeln(Format('sfrc中的sd的地址是：%d',[Integer(@sfrc.sd)]));
Writeln(Format('sfrc中的jh的地址是：%d',[Integer(@sfrc.jh)]));
Writeln(Format('sfrc中的lb的地址是：%d',[Integer(@sfrc.lb)]));
Writeln(Format('sfrc中的online的地址是：%d',[Integer(@sfrc.online)]));
Writeln('**************************************************');
Result := 0;
end;
function CallDate(date:PDate;outDate:PDate):Integer;stdcall;
begin
outDate.Year := date.Year;
outDate.Month := date.Month;
outDate.Day := date.Day;
Result := 0;
end;
function GetSum(a,b:Integer):Integer;stdcall;
begin
Result := a + b ;
end;
function CallVRef(a,b:Integer;var c:Integer):Integer;stdcall;
begin
c := a + b;
Result := 0;
end;
function CallPChar(a,b:PChar):PChar;stdcall;
begin
Result := PChar(a+''+b);
end;
function CallType(
var kh:Integer;
var mu:Byte;
var qty:Smallint;
var je,ye:Integer;
var year:Word;
var month,day,hour,minute,second,ms,sd:Byte;
var jh:Byte;
var lb:Byte;
var online:Byte
):Integer;stdcall;
begin
kh := 9385295;
mu := 255;
qty := 32767;
je := -2000;
ye := 4000;
year := 2010;
month := 09;
day := 8;
hour := 18;
minute := 22;
second := 44;
ms :=22;
sd :=3;
jh :=4;
lb := 31;
online := 1;
Result := 0;
end;
function CallPointer(
pint:PInteger;
pbyte:PByte;
pchar:PChar;
outPchar:PChar):Integer;stdcall;
var i:Integer;
var s:string;
begin
for i := 0 to 3 do
begin
pint^ := i*2;
Inc(pint);
end;
for i := 0 to 3 do
begin
pbyte^ := i*2;
Inc(pbyte);
end;
pchar^ := 'a';
Inc(pchar,1);
pchar^ := 'b';
Inc(pchar,1);
pchar^ := 'c';
s := 'Delphi字符串输出内容';
StrPCopy(outPchar,s);
Result := 0;
end;
function SfRead(kh,kx,srv:Integer;var dj,jb,mm,ye:Integer;bz:PChar):Integer;stdcall;
var s:string;
begin
dj := 1;
jb := 0;
mm := 8888;
ye := 100000;
s := 'bz备注信息';
StrPCopy(bz,s);
Result := 0 ;
end;
exports
GetSum,
CallVRef,
CallPChar,
CallType,
CallDate,
CallSFRCDA,
CallStudent,
CallByteSize,
CallPointer,
CallUser,
SfRead,
CallStuArray,CallSFPRDA,CallSFMUDA,
CallSFMTDA;
begin
end.
源码不多介绍。看哈资料应该就能看懂了。
java接口对应内容：
package org.forever.delphi.dll;
import com.sun.jna.Native;
import com.sun.jna.Structure;
import com.sun.jna.ptr.IntByReference;
import com.sun.jna.ptr.ShortByReference;
import com.sun.jna.win32.StdCallLibrary;
/**
* java调用Delphi写的dll进行交互
* @author 陈均
*
*/
public interface IDelphiFirstDLL extends StdCallLibrary{
//绝对路径，相对路径只需名字即可
IDelphiFirstDLL INSTANCE = (IDelphiFirstDLL)Native.loadLibrary("H:\\一卡通开发资料\\DelphiFirstDLL\\FirstDLL.dll", IDelphiFirstDLL.class);
/**
* 普通的值传递测试
* @param a
* @param b
* @return 返回两数之和
*/
public int GetSum(int a,int b);
/**
* 传入引用参数的测试
* @param a
* @param b
* @param c 返回 a+b的和
* @return 0表示成功
*/
public int CallVRef(int a,int b,IntByReference c);
/**
* Delphi各种基本类型的指针传递测试
* Delphi中的char只有1字节，java的char是2字节，所以用byte去对应。
* @param pint 对应Delphi中的pint:PInteger 整形数组
* @param pbyte 对应Delphi中的pbyte:PByte; 字节数组
* @param pchar 对应Delphi中的pchar:PChar;这里表示返回字符数组
* @param outPchar 对应Delphi中的outPchar:PChar，这里表示返回字符串
* @return
*/
public int CallPointer(
int[]pint,
byte[]pbyte,
byte[] pchar,
byte[] outPchar);
/**
* 传入字符串测试
* @param a
* @param b
* @return 返回两个字符串拼接结果
*/
public String CallPChar(String a,String b);
/**
* 传入各种基本类型的引用测试
* @return 0表示成功
*/
public int CallType(
IntByReference kh,
UnsignedByteByReference mu,
ShortByReference qty,
IntByReference je,
IntByReference ye,
UnsignedShortByReference year,
UnsignedByteByReference month,
UnsignedByteByReference day,
UnsignedByteByReference hour,
UnsignedByteByReference minute,
UnsignedByteByReference second,
UnsignedByteByReference ms,
UnsignedByteByReference sd,
UnsignedByteByReference jh,
UnsignedByteByReference lb,
UnsignedByteByReference online
);
/**
* 日期结构体类型
* @author 陈均
*
*/
public class Date extends Structure{
public short Year;
public byte Month;
public int Day;
}
/**
* 传入结构体类型
* @param date 结构体类型日期
* @param outDate 将date的数据copy到outDate里面
* @return 0表示成功
*/
public int CallDate(Date date,Date outDate);
/**
* 传入结构体类型参数测试
* @param sfrc 方法执行完后获取所需要的值
* @return 0表示成功
*/
public int CallSFRCDA(SFRCDA sfrc);
/**
* 传入结构类型参数测试，这个结构体式packed
* @param student 方法执行完后获取所需要的值
* @return 返回0表示成功
*/
public int CallStudent(Student student);
/**
* 传入结构类型数组参数测试，这个结构体式packed
* @param students 结构体数组
* @param size 返回实际数据大小
* @return 返回0表示成功
*/
public int CallStuArray(Student[]students,IntByReference size);
/**
* 测试各种类型字节长度
* @return 返回0表示成功
*/
public int CallByteSize();
/**
* 带数组的结构体调用测试
* @param user
* @return 返回0表示成功
*/
public int CallUser(User user);
/**
* 调用嵌套结构体参数类型测试
* @param pr 结构体参数
* @return 返回0表示成功。
*/
public int CallSFPRDA(SFPRDA pr);
/**
* 调用只含数组的结构体测试。
* @param mu
* @return 返回0表示成功。
*/
public int CallSFMUDA(SFMUDA mu,int[]black);
/**
* 如果只含有数组的这种结构体也可以直接传字节数组。但长度一定要对
* @param mu 结构体指针字节数组
* @param black 整形指针数组
* @return 返回0表示成功。
*/
public int CallSFMUDA(byte[] mu,int[]black);
/**
* sfmt为指向SFMTDA结构的指针，用于存放返回数据
* @param sfmt
* @return 返回0表示成功。
*/
public int CallSFMTDA(SFMTDA sfmt);
/**
* 测试值传递和返回参数传递和返回字符串内容
* @return 0表示成功
*/
public int SfRead(int kh,int kx,int srv,IntByReference dj,IntByReference jb,
IntByReference mm,IntByReference ye,byte[] bz);
}
所需测试的结构体类型SFRCDA：
package org.forever.delphi.dll;
import com.sun.jna.Structure;
/**
* 结构体类型
* 注意：
* 当Delphi得结构体不是packed record的时候，下面映射才正确，可以对照Student分析，
* 如果delphi里面用的是Byte无符号1字节类型，则用java的byte对应,
* 取值的时候要进行判断,
* 如果值大于0就是本身,
* 如果值小于0就是mu&0xff,
* 如果delphi里面用的是Word无符号2字节类型，则用java的short对应，
* 取值的时候要进行判断，
* 如果值大于0就是本身，
* 如果值小于0就是year&0xffff.
* */
public class SFRCDA extends Structure{
public int kh;
public byte mu;
public short qty;
public int je;
public int ye;
public short year;
public byte month;
public byte day;
public byte hour;
public byte minute;
public byte second;
public byte ms;
public byte sd;
public byte jh;
public byte lb;
public byte online;
}
结构体SFMTDA类：
package org.forever.delphi.dll;
import com.sun.jna.Structure;
public class SFMTDA extends Structure{
/**对以下结构体进行映射。
* type SFMTDA = array[0..2] of packed record
* cs_sd:Word;
* je_sd:Integer;
* cs_day:Word;
* je_day:Integer;
* end;
* PSFMTDA = ^SFMTDA;
*
* 3 * (2+4+2+4) = 36;
* 每12个字节为一个结构体对象。
* 变量以 2 4 2 4划分即可。
*/
public byte[] sfmt = new byte[36];
public class Item{
public int cs_sd;
public int je_sd;
public int cs_day;
public int je_day;
}
/**
* 通过下标访问数据
* @param index 索引。范围在0-3不包含3
* @return 返回查找到的数据
*/
public Item get(int index){
if(index<0 || index >2){
throw new RuntimeException("index="+index+"数组下标越界！");
}
int startP = 12*index;//起始位置
byte[] cs_sd = new byte[2];
byte[] je_sd = new byte[4];
byte[] cs_day = new byte[2];
byte[] je_day = new byte[4];
cs_sd[0] = sfmt[startP];
cs_sd[1] = sfmt[startP+1];
je_sd[0] = sfmt[startP+2];
je_sd[1] = sfmt[startP+3];
je_sd[2] = sfmt[startP+4];
je_sd[3] = sfmt[startP+5];
cs_day[0] = sfmt[startP+6];
cs_day[1] = sfmt[startP+7];
je_day[0] = sfmt[startP+8];
je_day[1] = sfmt[startP+9];
je_day[2] = sfmt[startP+10];
je_day[3] = sfmt[startP+11];
Item item = new Item();
item.cs_sd = DataUtil.byteArrayToUnsignedShort(cs_sd);
item.je_sd = DataUtil.byteArrayToInt(je_sd);
item.cs_day = DataUtil.byteArrayToUnsignedShort(cs_day);
item.je_day = DataUtil.byteArrayToInt(je_day);
return item;
}
}
多层结构体SFPRDA类：
package org.forever.delphi.dll;
import com.sun.jna.Structure;
/**
* 多层嵌套结构体类型;
* 将Delphi里面的匿名结构体换算成字节即可
* @author 陈均
*/
public class SFPRDA extends Structure{
public byte[] czmn = new byte[2];//Word
/**对应Delphi中的array[1..8] of packed record dm:Byte;mm:Word end;<br/>
* 8 * (1+2) = 24
*/
public byte[] sqcz = new byte[24];
/**对应Delphi中的array[0..3] of packed record dz,jz:Word end;<br/>
* 4 * (2+2) = 16;
*/
public byte[] sdje = new byte[16];
public byte open_xffs;//Byte
public byte open_menu;//Byte
public byte open_online;//Byte
/**对应Delphi中的<br/>
* para:array[0..7] of packed record<br/>
* xffs:array[0..3] of packed record<br/>
* dzlx_1:Byte;<br/>
* dzje_1:Word;<br/>
* jzlx_1:Byte;<br/>
* jzje_1:Word;<br/>
* dzlx_2:Byte;<br/>
* dzje_2:Word;<br/>
* jzlx_2:Byte;<br/>
* jzje_2:Word;<br/>
* end;<br/>
* zk:array[0..3] of Shortint;<br/>
* end;<br/>
* 8 * (4*(1+2+1+2+1+2+1+2)+4) = 416;长度
*/
public byte[] para = new byte[416];
}
结构体Student类：
package org.forever.delphi.dll;
import com.sun.jna.Structure;
public class Student extends Structure{
public int kh;
public byte mu;
public byte[] qty = new byte[2];
public byte[] je = new byte[4];
public byte[] ye = new byte[4];
public byte[] year = new byte[2];
public byte month;
public byte day;
public byte hour;
public byte minute;
public byte second;
public byte ms;
public byte sd;
public byte jh;
public byte lb;
public byte online;
}
结构体User类：
package org.forever.delphi.dll;
import com.sun.jna.Structure;
public class User extends Structure {
public String userName;
public byte[] age = new byte[4];
//对应着Delphi中array[0..10] of Integer;11*4=44
public byte[]intA = new byte[44];
//对应着Delphi中array[0..1] of Byte;2*1=2;
public byte[] byteA = new byte[2];
//对应着Delphi中array[0..2] of Char;3*1=2;
public byte[] charA = new byte[3];
}
测试文件 DelphiFirstDLLTest：
package org.forever.delphi.dll;
import org.forever.delphi.dll.IDelphiFirstDLL.Date;
import org.forever.delphi.dll.SFMTDA.Item;
import org.forever.delphi.dll.SFRCDA;
import org.forever.delphi.dll.Student;
import com.sun.jna.ptr.IntByReference;
import com.sun.jna.ptr.ShortByReference;
import static org.forever.delphi.dll.DataUtil.byteArrayToInt;
import static org.forever.delphi.dll.DataUtil.byteArrayToShort;
import static org.forever.delphi.dll.DataUtil.byteArrayToString;
import static org.forever.delphi.dll.DataUtil.byteArrayToUnsignedShort;
import static org.forever.delphi.dll.DataUtil.byteToUnsignedByte;
import static org.forever.delphi.dll.DataUtil.unsignedShortToByteArray;
public class DelphiFirstDLLTest {
public static void main(String[] args) {
IDelphiFirstDLL delphiFirstDLL = IDelphiFirstDLL.INSTANCE;
int a = 4;
int b = 3;
int state;
int result;
result = delphiFirstDLL.GetSum(a, b);
assert result==7;
IntByReference c = new IntByReference();
state = delphiFirstDLL.CallVRef(a, b, c);
assert state==0 && c.getValue()==7;
String str1 = " come ";
String str2 = " on ";
String msg = delphiFirstDLL.CallPChar(str1, str2);
assert msg.equals(str1 + str2);
IntByReference kh = new IntByReference();
UnsignedByteByReference mu = new UnsignedByteByReference();
ShortByReference qty = new ShortByReference();
IntByReference je = new IntByReference();
IntByReference ye = new IntByReference();
UnsignedShortByReference year = new UnsignedShortByReference();
UnsignedByteByReference month = new UnsignedByteByReference();
UnsignedByteByReference day = new UnsignedByteByReference();
UnsignedByteByReference hour = new UnsignedByteByReference();
UnsignedByteByReference minute = new UnsignedByteByReference();
UnsignedByteByReference second = new UnsignedByteByReference();
UnsignedByteByReference ms = new UnsignedByteByReference();
UnsignedByteByReference sd = new UnsignedByteByReference();
UnsignedByteByReference jh = new UnsignedByteByReference();
UnsignedByteByReference lb = new UnsignedByteByReference();
UnsignedByteByReference online = new UnsignedByteByReference();
state = delphiFirstDLL.CallType(kh, mu, qty, je, ye, year, month, day, hour, minute, second, ms, sd, jh, lb, online);
assert kh.getValue()==9385295
&& mu.getValue()==255
&& qty.getValue()==32767
&& je.getValue()==-2000
&& ye.getValue()==4000
&& year.getValue()==2010
&& month.getValue()==9
&& day.getValue()==8
&& hour.getValue()==18
&& minute.getValue()==22
&& second.getValue()==44
&& ms.getValue()==22
&& sd.getValue()==3
&& jh.getValue()==4
&& lb.getValue()==31
&& online.getValue()==1
&& state==0;
Date date = new Date();
date.Year = 2010;
date.Month = 9;
date.Day = 8;
Date outDate = new Date();
state = delphiFirstDLL.CallDate(date,outDate);
assert state==0
&& outDate.Year==date.Year
&& outDate.Month==date.Month
&& outDate.Day==date.Day;
SFRCDA sfrc = new SFRCDA();
state = delphiFirstDLL.CallSFRCDA(sfrc);
assert state==0
&& sfrc.kh==9385295
&&(sfrc.mu<0 && byteToUnsignedByte(sfrc.mu)==255)
&& sfrc.qty==32767
&& sfrc.je==-2000
&& sfrc.ye==4000
&& sfrc.year==2010
&& sfrc.month==9
&& sfrc.day==8
&& sfrc.hour==18
&& sfrc.minute==22
&& sfrc.second==44
&& sfrc.ms==22
&& sfrc.sd==3
&& sfrc.jh==4
&& sfrc.lb==31
&& sfrc.online==1;
Student student = new Student();
state = delphiFirstDLL.CallStudent(student);
assert state==0
&& byteArrayToInt(student.kh)==9385295
&& byteToUnsignedByte(student.mu)==255
&& byteArrayToShort(student.qty)==32767
&& byteArrayToInt(student.je)==-2000
&& byteArrayToInt(student.ye)==4000
&& byteArrayToUnsignedShort(student.year)==2010
&& byteToUnsignedByte(student.month)==9
&& byteToUnsignedByte(student.day)==8
&& byteToUnsignedByte(student.hour)==18
&& byteToUnsignedByte(student.minute)==22
&& byteToUnsignedByte(student.second)==44
&& byteToUnsignedByte(student.ms)==22
&& byteToUnsignedByte(student.sd)==3
&& byteToUnsignedByte(student.jh)==4
&& byteToUnsignedByte(student.lb)==31
&& byteToUnsignedByte(student.online)==1;
int[]pint = new int[3];
byte[]pbyte = new byte[3];
byte[]pchar = new byte[3];
byte[]outPchar = new byte[20];
state = delphiFirstDLL.CallPointer(pint,pbyte,pchar,outPchar);
assert state==0;
assert pint[0]==0 && pint[1]==2 && pint[2]==4;
assert pbyte[0]==0 && pbyte[1]==2 && pbyte[2]==4;
assert pchar[0]==97 && pchar[1]==98 && pchar[2]==99;
assert new String(outPchar).trim().equals("Delphi字符串输出内容");
User user = new User();
state = delphiFirstDLL.CallUser(user);
assert state==0
&& user.userName.equals("forever")
&& byteArrayToInt(user.age)==22;
for (int i = 0,j=0; i < user.intA.length; i+=4,j++) {
int iVal = byteArrayToInt(new byte[]{user.intA[i],user.intA[i+1],user.intA[i+2],user.intA[i+3]});
assert iVal== j * 2;
}
for (int i = 0; i < user.byteA.length; i++) {
assert user.byteA[i]==i;
}
assert (char)user.charA[0]=='a'
&&(char)user.charA[1]=='b'
&&(char)user.charA[2]=='c';
int kah = 9385292;
int kx = 0;
int srv = 1;
IntByReference dj = new IntByReference();
IntByReference jb = new IntByReference();
IntByReference mm = new IntByReference();
IntByReference yue = new IntByReference();
byte[] bz = new byte[200];
state = delphiFirstDLL.SfRead(kah, kx, srv, dj, jb, mm, yue, bz);
assert state == 0
&& dj.getValue()==1
&& jb.getValue()==0
&& mm.getValue()==8888
&& yue.getValue()==100000
&& byteArrayToString(bz).equals("bz备注信息");
IntByReference size = new IntByReference();
Student[]students = new Student[4];
state = delphiFirstDLL.CallStuArray(students, size);
assert state == 0 && size.getValue()==3;
for (int i = 0; i < size.getValue(); i++) {
Student item = students[1];
assert byteArrayToInt(item.kh)==9385295
&& byteToUnsignedByte(item.mu)==255
&& byteArrayToShort(item.qty)==32767
&& byteArrayToInt(item.je)==-2000
&& byteArrayToInt(item.ye)==4000
&& byteArrayToUnsignedShort(item.year)==2010
&& byteToUnsignedByte(item.month)==9
&& byteToUnsignedByte(item.day)==8
&& byteToUnsignedByte(item.hour)==18
&& byteToUnsignedByte(item.minute)==22
&& byteToUnsignedByte(item.second)==44
&& byteToUnsignedByte(item.ms)==22
&& byteToUnsignedByte(item.sd)==3
&& byteToUnsignedByte(item.jh)==4
&& byteToUnsignedByte(item.lb)==31
&& byteToUnsignedByte(item.online)==1;
}
SFPRDA pr = new SFPRDA();
pr.czmn = unsignedShortToByteArray(32769);
////////////////8个结构体//////////////////
pr.sqcz[0] = 11;
byte[] t = unsignedShortToByteArray(1111);
pr.sqcz[1] = t[0];
pr.sqcz[2] = t[1];
pr.sqcz[3] = 22;
t = unsignedShortToByteArray(2222);
pr.sqcz[4] = t[0];
pr.sqcz[5] = t[1];
pr.sqcz[6] = 33;
t = unsignedShortToByteArray(4444);
pr.sqcz[7] = t[0];
pr.sqcz[8] = t[1];
pr.sqcz[9] = 44;
t = unsignedShortToByteArray(5555);
pr.sqcz[10] = t[0];
pr.sqcz[11] = t[1];
pr.sqcz[12] = 55;
t = unsignedShortToByteArray(5555);
pr.sqcz[13] = t[0];
pr.sqcz[14] = t[1];
pr.sqcz[15] = 66;
t = unsignedShortToByteArray(6666);
pr.sqcz[16] = t[0];
pr.sqcz[17] = t[1];
pr.sqcz[18] = 77;
t = unsignedShortToByteArray(7777);
pr.sqcz[19] = t[0];
pr.sqcz[20] = t[1];
pr.sqcz[21] = 88;
t = unsignedShortToByteArray(8888);
pr.sqcz[22] = t[0];
pr.sqcz[23] = t[1];
////////////////4个结构体//////////////////
t = unsignedShortToByteArray(11);
pr.sdje[0] = t[0];
pr.sdje[1] = t[1];
t = unsignedShortToByteArray(22);
pr.sdje[2] = t[0];
pr.sdje[3] = t[1];
t = unsignedShortToByteArray(33);
pr.sdje[4] = t[0];
pr.sdje[5] = t[1];
t = unsignedShortToByteArray(44);
pr.sdje[6] = t[0];
pr.sdje[7] = t[1];
t = unsignedShortToByteArray(55);
pr.sdje[8] = t[0];
pr.sdje[9] = t[1];
t = unsignedShortToByteArray(32768);
pr.sdje[10] = t[0];
pr.sdje[11] = t[1];
t = unsignedShortToByteArray(77);
pr.sdje[12] = t[0];
pr.sdje[13] = t[1];
t = unsignedShortToByteArray(40000);
pr.sdje[14] = t[0];
pr.sdje[15] = t[1];
pr.open_xffs = (byte)255;
pr.open_menu = (byte)200;
pr.open_online = (byte)100;
////////////////8个结构体//////////////////
//para[0]个结构体赋值
//para[0].xffs[0]个结构体赋值
//para[0].xffs[0].dzlx_1
pr.para[0] = 0;
//para[0].xffs[0].dzje_1
t = unsignedShortToByteArray(1);
pr.para[1] = t[0];
pr.para[2] = t[1];
//para[0].xffs[0].jzlx_1
pr.para[3] = 2;
//para[0].xffs[0].jzje_1
t = unsignedShortToByteArray(3);
pr.para[4] = t[0];
pr.para[5] = t[1];
//para[0].xffs[0].dzlx_2
pr.para[6] = 4;
//para[0].xffs[0].dzje_2
t = unsignedShortToByteArray(5);
pr.para[7] = t[0];
pr.para[8] = t[1];
//para[0].xffs[0].jzlx_2
pr.para[9] = 6;
//para[0].xffs[0].jzje_2
t = unsignedShortToByteArray(7);
pr.para[10] = t[0];
pr.para[11] = t[1];
//para[0].xffs[1].dzlx_1
pr.para[12] = 0;
//para[0].xffs[1].dzje_1
t = unsignedShortToByteArray(1);
pr.para[13] = t[0];
pr.para[14] = t[1];
//para[0].xffs[1].jzlx_1
pr.para[15] = 2;
//para[0].xffs[1].jzje_1
t = unsignedShortToByteArray(3);
pr.para[16] = t[0];
pr.para[17] = t[1];
//para[0].xffs[1].dzlx_2
pr.para[18] = 4;
//para[0].xffs[1].dzje_2
t = unsignedShortToByteArray(5);
pr.para[19] = t[0];
pr.para[20] = t[1];
//para[0].xffs[1].jzlx_2
pr.para[21] = 6;
//para[0].xffs[1].jzje_2
t = unsignedShortToByteArray(7);
pr.para[22] = t[0];
pr.para[23] = t[1];
//para[0].xffs[2].dzlx_1
pr.para[24] = 0;
//para[0].xffs[2].dzje_1
t = unsignedShortToByteArray(1);
pr.para[25] = t[0];
pr.para[26] = t[1];
//para[0].xffs[2].jzlx_1
pr.para[27] = 2;
//para[0].xffs[2].jzje_1
t = unsignedShortToByteArray(3);
pr.para[28] = t[0];
pr.para[29] = t[1];
//para[0].xffs[2].dzlx_2
pr.para[30] = 4;
//para[0].xffs[2].dzje_2
t = unsignedShortToByteArray(5);
pr.para[31] = t[0];
pr.para[32] = t[1];
//para[0].xffs[2].jzlx_2
pr.para[33] = 6;
//para[0].xffs[2].jzje_2
t = unsignedShortToByteArray(7);
pr.para[34] = t[0];
pr.para[35] = t[1];
//para[0].xffs[3].dzlx_1
pr.para[36] = 0;
//para[0].xffs[3].dzje_1
t = unsignedShortToByteArray(1);
pr.para[37] = t[0];
pr.para[38] = t[1];
//para[0].xffs[3].jzlx_1
pr.para[39] = 2;
//para[0].xffs[3].jzje_1
t = unsignedShortToByteArray(3);
pr.para[40] = t[0];
pr.para[41] = t[1];
//para[0].xffs[3].dzlx_2
pr.para[42] = 4;
//para[0].xffs[3].dzje_2
t = unsignedShortToByteArray(5);
pr.para[43] = t[0];
pr.para[44] = t[1];
//para[0].xffs[3].jzlx_2
pr.para[45] = 6;
//para[0].xffs[3].jzje_2
t = unsignedShortToByteArray(7);
pr.para[46] = t[0];
pr.para[47] = t[1];
//para[0].zk[0]
pr.para[48] = 8;
//para[0].zk[1]
pr.para[49] = 9;
//para[0].zk[2]
pr.para[50] = 10;
//para[0].zk[3]
pr.para[51] = 11;
//para[0]赋值完毕，真够麻烦的。
state = delphiFirstDLL.CallSFPRDA(pr);
assert state == 0;
SFMUDA sfmuda = new SFMUDA();
t = unsignedShortToByteArray(7);
sfmuda.mu[0]= t[0];
sfmuda.mu[1]= t[1];
t = unsignedShortToByteArray(8);
sfmuda.mu[2]= t[0];
sfmuda.mu[3]= t[1];
int[]black = new int[3];
black[0] = 3;
black[1] = 6;
black[2] = 9;
state = delphiFirstDLL.CallSFMUDA(sfmuda,black);
assert state==0;
state = delphiFirstDLL.CallSFMUDA(sfmuda.mu,black);
assert state == 0;
SFMTDA sfmt = new SFMTDA();
state = delphiFirstDLL.CallSFMTDA(sfmt);
assert state==0;
byte[] cs_sd = new byte[2];
cs_sd[0] = sfmt.sfmt[0];
cs_sd[1] = sfmt.sfmt[1];
System.out.println("------------->"+byteArrayToUnsignedShort(cs_sd));
Item item = sfmt.get(2);
System.out.println("item.cs_sd=" + item.cs_sd);
System.out.println("item.je_sd=" + item.je_sd);
System.out.println("item.cs_day=" + item.cs_day);
System.out.println("item.je_day=" + item.je_day);
}
}
UnsignedByteByReference类：
package org.forever.delphi.dll;
import com.sun.jna.ptr.ByReference;
/**
* Delphi无符号1字节引用类型
* Byte 0-255
* 该类型作为方法的引用参数传递使用
* @author 陈均
*
*/
public class UnsignedByteByReference extends ByReference {
public UnsignedByteByReference() {
this((byte)0);
}
public UnsignedByteByReference(byte value) {
super(1);
setValue(value);
}
public void setValue(byte value) {
getPointer().setByte(0, value);
}
public int getValue() {
byte b = getPointer().getByte(0);
if(b<0){
return getPointer().getByte(0)&0xff;
}
return getPointer().getByte(0);
}
}
UnsignedShortByReference类：
package org.forever.delphi.dll;
import com.sun.jna.ptr.ByReference;
/**
* Delphi无符号2字节引用类型
* Word 0-65535
* 该类型作为方法的引用参数传递使用
* @author 陈均
*
*/
public class UnsignedShortByReference extends ByReference {
public UnsignedShortByReference() {
this((short)0);
}
public UnsignedShortByReference(short value) {
super(2);
setValue(value);
}
public void setValue(short value) {
getPointer().setShort(0, value);
}
public int getValue() {
short value = getPointer().getShort(0);
if(value<0){
return getPointer().getShort(0)&0xffff;
}
return getPointer().getShort(0);
}
}
附上一个数据转换类：
package org.forever.delphi.dll;
/**
* 数据解析工具类
* @author 陈均
*
*/
public class DataUtil {
/**
* 字节数组转化为字符串
* @param b 字节数组
* @return 转换后的字符串值
*/
public static String byteArrayToString(byte[]b){
return new String(b).trim();
}
/**
* 有符号字节转无符号值,对应Byte
* 无符号字节0-255
* @param b 有符号字节
* @return 返回无符号字节值
*/
public static short byteToUnsignedByte(byte b){
if(b<0) return (short)(b & 0xff);
return b;
}
/**
* 1字节转完整八位二进制字符串
* 比如byte = 10转换后00001010
* @param binaryString
* @return
*/
public static String byteToBinaryString(byte b){
String binaryString = Integer.toBinaryString(b&0xff);
int number = binaryString.length();
if(number==8)return binaryString;
return Integer.toBinaryString(((0xff>>number))).replaceAll("1", "0")+binaryString;
}
/**
* 有符号字节数组转无符号short,Word类型
* @param bytes
* @return 返回无符号short值
*/
public static int byteArrayToUnsignedShort(byte[]bytes){
String b_1 = byteToBinaryString(bytes[0]);
String b_2 = byteToBinaryString(bytes[1]);
String value = b_2+b_1;
return Integer.parseInt(value,2);
}
/**
* 无符号2字节类型转字节数组形式
* @param s 无符号值
* @return 返回以字节数组表示的无符号值
*/
public static byte[] unsignedShortToByteArray(int s){
byte[] bytes = new byte[2];
if(s<0 || s>65535){
throw new RuntimeException("无符号字节返回在0-6535");
}
String bs = Integer.toBinaryString(s);
//16位无符号
int num =16 - bs.length();
String val = Integer.toBinaryString(1<<num).substring(1)+bs;
bytes[0] = (byte) Integer.parseInt(val.substring(8,16), 2);//低八位
bytes[1] = (byte) Integer.parseInt(val.substring(0,8), 2);//高八位
return bytes;
}
/**
* 将字节数组转换成整数
* @param bytes 4个字节长度，按照二进制，从左到右依次8位一个字节
* @return 转换后的整数值
*/
public static int byteArrayToInt(byte[]bytes){
String b_1 = byteToBinaryString(bytes[0]);
String b_2 = byteToBinaryString(bytes[1]);
String b_3 = byteToBinaryString(bytes[2]);
String b_4 = byteToBinaryString(bytes[3]);
String value =b_4 + b_3 + b_2 + b_1;
//进行判断，如果最高位是1表示是负数
if(value.startsWith("1")){
//取反
value = value.replaceAll("1", "2")
.replaceAll("0", "3")
.replaceAll("2", "0")
.replaceAll("3", "1");
return(Integer.parseInt(value,2)+1)*-1;
}
return Integer.parseInt(value,2);
}
/**
* 将字节数组转换成short类型
* @param bytes bytes[0]是二进制低八位，bytes[1]是二进制高八位
* @return 转化后的short值
*/
public static short byteArrayToShort(byte[]bytes){
String b_1 = byteToBinaryString(bytes[0]);
String b_2 = byteToBinaryString(bytes[1]);
String value = b_2+b_1;
//进行判断，如果最高位是1表示是负数
if(value.startsWith("1")){
//取反
value = value.replaceAll("1", "2")
.replaceAll("0", "3")
.replaceAll("2", "0")
.replaceAll("3", "1");
return (short) ((Short.parseShort(value,2)+1)*-1);
}
return Short.parseShort(value,2);
}
/**
* 无符号字节转字节
*/
public static byte unsignedByteToByte(short s) {
if(s<0 || s>255){
throw new RuntimeException("超出无符号字节有效范围0-255");
}
return (byte)s;
}
/**
* 整型值转字节数组形式
* @param s 整型值
* @return 返回以字节数组表示的整型值
*/
public static byte[] intToByteArray(int i){
byte[] bytes = new byte[4];
String bs = Integer.toBinaryString(i);
int num =32 - bs.length();
String val = Integer.toBinaryString(1<<num).substring(1)+bs;
bytes[0] = (byte) Integer.parseInt(val.substring(24,32), 2);
bytes[1] = (byte) Integer.parseInt(val.substring(16,24), 2);
bytes[2] = (byte) Integer.parseInt(val.substring(8,16), 2);
bytes[3] = (byte) Integer.parseInt(val.substring(0,8), 2);
return bytes;
}
public static byte[] shortToByteArray(short s) {
byte[] bytes = new byte[2];
String bs = Integer.toBinaryString(s);
if(bs.length()>16)bs = bs.substring(16);
int num =16 - bs.length();
String val = Integer.toBinaryString(1<<num).substring(1)+bs;
bytes[0] = (byte) Integer.parseInt(val.substring(8,16), 2);//低八位
bytes[1] = (byte) Integer.parseInt(val.substring(0,8), 2);//高八位
return bytes;
}
}
运行的时候开启断言即可。
总的一句话，类型匹配上用字节匹配今本上都可以搞定。
DelphiDLLDemo_java.rar java测试源码。
DelphiFirstDLL_Delphi.rar Delphi dll源码。
有问题可以留言。
- DELPHI经典编程入门.rar (792.6 KB)
- 下载次数: 21
- Pascal精要.rar (212.9 KB)
- 下载次数: 19
- VC__动态链接库（DLL）的开发与应用.rar (71.6 KB)
- 下载次数: 30
- JNA—快速调用原生函数1.0.rar (276.3 KB)
- 下载次数: 38
- 谭浩强c语言PDF版.rar (2.5 MB)
- 下载次数: 15
- DelphiDLLDemo_java.rar (259.8 KB)
- 下载次数: 140
- DelphiFirstDLL_Delphi.rar (49.7 KB)
- 下载次数: 105
2
顶
顶
0
踩
踩
分享到：
发表评论
-
OSGI学习
2012-03-18 18:01 0http://www.blogjava.net/zhenyu3 ... -
OSGI学习笔记（七）
2012-03-17 23:58 1693SpringDM初步使用（二） 介绍哈官方的第二个例子 ... -
ubuntu10.04下nexus和maven的安装及配置
2012-03-14 16:14 2510前提要有jdk环境，官方下载nexus和maven，解压后创建 ... -
ubuntu10.04下eclipse的安装及配置
2012-03-14 00:01 1306从官方http://www.eclipse.org/downl ... -
Ubuntu10.04下配置java环境变量
2012-03-13 23:28 1066Ubuntu10.04默认安装了OpenJDK，但还是基于Su ... -
eclipse设置保护色
2012-03-16 09:22 9414eclipse操作界面默认颜色为白色。对于我们长期使 ... -
OSGI学习笔记（六）
2012-03-17 15:08 2754SpringDM初步使用（一） 官方地址http:// ... -
OSGI学习笔记（八）
2012-03-19 21:08 2301SpringDM初步使用（三） spring第三个例子 ... -
OSGI学习笔记（五）
2011-07-31 10:32 1586开放服务网关协议 (Open Services Gateway ... -
osgi学习笔记（三）
2011-07-16 22:43 1959OSGI实战书上讲了一个web登陆验证切换功能。表达了osgi ... -
word工具类
2011-03-15 09:19 1443package org.foreverframework ... -
命令模式--撤销恢复
2011-03-14 22:32 4985该例子来自阎宏提供的 ... -
java zip
2011-03-06 15:32 1215import java.io.BufferedInputStr ... -
doc转swf
2010-12-07 22:03 8540将doc转换成swf，然后显示在html页面上。 packa ... -
javamail简单使用
2010-11-15 08:29 2350MailInfo类： //发送邮件的信息类 public ... -
xloadtree的一个改造
2010-09-20 22:58 2568修改了xloadtree的部分源码以适合自己使用。 1.修改 ... -
JAVA与DLL交互
2010-08-27 23:32 1945jna官网地址：https://jna.dev.java.ne ... -
office工具类
2010-07-31 14:17 2308将jcom.dll放入jdk的bin目录下,将jcom.jar ... -
启动多个tomcat
2010-04-22 09:13 1214想启动多个tomcat，只需修改conf/server.xml ... -
dos 删除指定日期前的文件
2010-04-19 22:47 3459@echo off&setlocal enablede ...
相关推荐
JNI提供了一种标准的方法让Java代码与本地代码进行交互，它定义了Java虚拟机（JVM）如何调用本地方法以及本地方法如何访问Java对象。 2. **Delphi DLL结构**: Delphi是基于Pascal语言的开发工具，它支持创建DLLs。...
这通常涉及到Java的本地接口（JNI，Java Native Interface）技术，它是Java平台标准的一部分，允许Java代码和其他语言写的代码进行交互。下面我们将深入探讨这一主题。 首先，我们需要理解Java和Delphi之间的差异。...
本文主要讨论了两种方法，使得Java应用程序能够调用由Delphi开发的DLL动态链接库。这两种方法分别是：通过JNI（Java Native Interface）和使用JNA（Java Native Access）第三方组件。 1. **JNI调用Delphi开发的DLL*...
- **导出函数**：在Delphi的DLL中，我们需要定义一个或多个导出函数，这些函数将作为Java与DLL交互的接口。例如，我们可以定义一个名为`SendSMS`的函数，接收必要的参数（如手机号码、短信内容等），并返回发送结果...
JNI是Java平台提供的一种接口，允许Java代码和其他语言写的代码进行交互。当Java程序需要调用C、C++或Delphi等本地代码时，可以通过JNI来实现。在Java端，我们创建一个本地方法，该方法的声明会关联到Delphi DLL中的...
在本项目中，Java程序作为上层逻辑控制，负责处理RFID读卡的业务逻辑，而Delphi编写的DLL则可能包含了更底层的RFID硬件驱动，这些驱动能够直接与RFID读卡器进行通信，提高数据读取的效率和稳定性。 Delphi是一种...
在IT行业中，跨语言通信是常见的需求，尤其是在不同的开发环境中，比如本文提到的Delphi 7与Java的交互。Delphi 7是一款历史悠久且功能强大的Windows应用程序开发工具，而Java则是一种广泛应用于服务器端和跨平台...
本文将详细讲解两种方法，使得Java能够与Delphi开发的DLL进行交互。 1. 通过JNI（Java Native Interface）调用Delphi DLL： JNI是一种让Java代码直接调用本地（非Java）代码的接口。对于C/C++开发的DLL，JNI是直接...
在IT领域，跨平台开发是常见的需求，而Java与Delphi作为两种不同的编程语言，各自拥有强大的生态系统。本文将深入探讨如何在Delphi 10.3中利用JNI（Java Native Interface）技术来调用Java的函数，实现两者之间的...
在Delphi中，我们新建一个DLL工程，并引入`JNI.pas`这个特殊的单元，它为Delphi提供了与Java交互的接口。`JNI.pas`通常由社区开发，提供了一些基本的类型定义和函数声明，使得Delphi能够理解Java的调用约定。 在DLL...
这两种技术允许Java代码与本地代码进行交互，特别是对于需要调用非Java语言（如Delphi）编写的库的情况。 1. **JNI调用**： JNI是一种标准的Java平台接口，允许Java代码直接调用本地（非Java）代码。对于Delphi...
Delphi，作为一款强大的Windows应用程序开发工具，有时需要与Java环境交互，以利用Java丰富的类库和跨平台能力。本篇文章将详细探讨如何在Delphi中调用Java类和包源代码，以实现两者之间的无缝连接。 首先，理解...