jawt_delphi.pas

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

unit jawt_delphi;

interface
uses windows,JNI;

type
    jawt_Rectangle=packed record
       x:jint;
       y:jint;
       width:jint;
       height:jint;
    end;

    Pjawt_DrawingSurface=^jawt_DrawingSurface;
    pJAWT_Rectangle=^jawt_Rectangle;
    PJAWT_DrawingSurfaceInfo=^jawt_DrawingSurfaceInfo;
    jawt_DrawingSurfaceInfo=packed record
       platformInfo:pointer;
       ds:Pjawt_DrawingSurface;
       JAWT_Rectangle:trect;
       clipSize:jint;
       clip:pJAWT_Rectangle;
    end;

   jawt_DrawingSurface=packed record
     env:pJNIEnv;
     target:jobject;
     Lock:function(ds: Pjawt_DrawingSurface): JInt; stdcall;
     GetDrawingSurfaceInfo:function(ds: Pjawt_DrawingSurface): PJAWT_DrawingSurfaceInfo; stdcall;
     FreeDrawingSurfaceInfo:procedure(dsi: PJAWT_DrawingSurfaceInfo); stdcall;
     Unlock:procedure(ds: Pjawt_DrawingSurface); stdcall;
    end;

    Pjawt=^jawt;
    jawt=packed record
     version:jint;
     GetDrawingSurface:function(env:pJNIEnv;target:jobject):PJAWT_DrawingSurface;stdcall;
     FreeDrawingSurface:procedure(ds:pJAWT_DrawingSurface);stdcall;
     Lock:procedure(env:pJNIEnv);stdcall;
     Unlock:procedure(env:pJNIEnv);stdcall;
     GetComponent:function(env:pJNIEnv;platformInfo:pointer):jobject;stdcall;
    end;

    function JAWT_GetAWT(env: PJNIEnv; awt: Pjawt): jboolean;stdcall;
    function JAWT_GetAWT; external 'jawt.dll' name '_JAWT_GetAWT@8';

const
 JAWT_LOCK_ERROR=$00000001;
 JAWT_LOCK_CLIP_CHANGED=$00000002;
 JAWT_LOCK_BOUNDS_CHANGED=$00000004;
 JAWT_LOCK_SURFACE_CHANGED=$00000008;

 JAWT_VERSION_1_3= $00010003;
 JAWT_VERSION_1_4= $00010004;

implementation

end.