使用Delphi实现JNI - 实例

标签：

    使用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

使用Delphi实现JNI - 实例

标签：

原文地址：http://blog.csdn.net/xiaobin_hlj80/article/details/46299877