使用Delphi创建一个DLL,提供JAVA所需要的函数。
1. 创建DLL工程
New->Other,选"DLL Wizard"
2. 增加pas到工程
Project->Add to Project...
把JNI.pas和其他工程需要的源文件加入到工程里。
3. 保存工程文件
注意:工程名即是动态库文件名。
附:
Umethod.pas
unit Umethod; interface uses SysUtils, Classes; // procedure CreateFile(TFileName: String); // original source function CreateFile(TFileName: String): Boolean; implementation uses Udefine; function CreateFile(TFileName: string): Boolean; Begin (* If Not FileExists(TFileName) Then Begin genCRCtable; FileStream := TFileStream.Create(TFileName, fmCreate); FileHead.Version := '4.2.0.2'; FileHead.author:='xiaobinORA'; FileHead.CRC32:=calCRCvalue; Filehead.UpdateDate := Now; FileStream.Write(FileHead, SizeOf(FileHead)); End Else Begin *) if Not FileExists(TFileName) then begin Result := False; Exit; end; FileStream := TFileStream.Create(TFileName, fmOpenReadWrite); Result := True; //End; End; end.
Udefine.pas参见[1]
xbfLibR.dpr参见[2]
JNI.pas参见[3]
下载地址:http://www.pudn.com/downloads689/sourcecode/java/detail2777247.html
参考文档:
1. 辛亥百年纪念 - 产品组件系列02
2. 辛亥百年纪念 - 产品组件系列04
3. Using the Java Native Interface with Delphi - Matthew Mead
JNI_pas.zip
时间: 2024-10-13 21:03:26