xsys32.dpr

一个可用delphi来开发java的JNI开发包delphi接口

library xSys32;
uses
  SysUtils,
  Classes,
  jawt_delphi in '..\JNIPACK\jawt_delphi.pas',
  jawt_info in '..\JNIPACK\jawt_info.pas',
  jawt_md in '..\JNIPACK\jawt_md.pas',
  JNI in '..\JNIPACK\JNI.pas';

function Java_WindowsSystem_GetAwtHandle(Env: PJNIEnv; obj: JObject):jInt;stdcall;
var
    JAWT_Info:TJAWT_Info;
    hwnd:integer;
begin
    JAWT_Info:=TJAWT_Info.create(Env,canvas);
    hwnd := JAWT_Info.getHWND();
end;

function Java_WindowsSystem_GetDC(Env: PJNIEnv; obj: JObject;hWnd: JInt):JInt;stdcall;
begin

end;

function Java_WindowsSystem_SwapBuffers(Env: PJNIEnv; obj: JObject;DC: JInt):JBoolean;stdcall;
begin

end;

function Java_WindowsSystem_initOpenGL(Env: PJNIEnv; obj: JObject;DC: JInt):JBoolean;stdcall;
begin

end;

///////////////////////////////////////////////////////////////////////////////////////////////////////////
exports
    Java_WindowsSystem_GetDC,
    Java_WindowsSystem_SwapBuffers,
    Java_WindowsSystem_initOpenGL;

begin
end.