在delphi中进行快速的JNI开发

   一直没有机会接触JNI，这次终于可以动手体验了。

     由于需要在异构系统中进行通讯，我们需要对异构系统的数据进行处理（我们主要面对的是delphi程序和java程序的通讯）。在网看到不少的JNI开发，发现实现手法太过复杂，实现起来太麻烦了。

    皇天不负有心人。终于在网游中，我找到了这个: ftp://delphi-jedi.org/api/Cross_Platform/JNI_xp.zip

    这是一个提供了在delphi中如何快速进行JNI开发的工具包,其中包括在开发包(JNI.pas)以及开发示例.

     这里先贴出一个示例:

     delphi中开发的dll示例源码:

library HelloWorldImpl;

uses
  JNI;

{$R *.res}

procedure Java_HelloWorld_displayHelloWorld(PEnv: PJNIEnv; Obj: JObject);stdcall;
begin
Writeln('您好！中国。');
end;

exports
Java_HelloWorld_DisplayHelloWorld;

end.

在Java中编写的调用示例源码：

public class MainTest {
    public static void main(String[] args) {
        new HelloWorld().displayHelloWorld();
    }
}

class HelloWorld {
   
    public native void displayHelloWorld();
   

    static {
        System.loadLibrary("HelloWorldImpl");
    }
}

    是不是很简单！

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10531/viewspace-793892/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10531/viewspace-793892/