[LexaL]

Вот код процедуры.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

library LoadLanImpl;   uses   Windows,SysUtils,Classes,JNI;   type  LAN_Header=record   HDWORD:array[0..5] of byte;   IPACK:word;   NBANDS:word;   unused1:array[0..5] of byte;   ICOLS:integer;   IROWS:integer;   XSTART,YSTART:integer;   unused2:array[0..55] of byte;   MAPTYP,NCLASS:word;   unused3:array[0..13] of byte;   IAUTYP:word;   ACRE,XMAP,YMAP,XCELL,YCELL:single;  end;  type mas=array of array of array of JShort;  procedure Java_createhypertables_LoadLAN_displayMass(PEnv: PJNIEnv; Obj: JObject;  value: JString; var data:mas); {$IFDEF WIN32} stdcall; {$ENDIF} {$IFDEF LINUX} cdecl; {$ENDIF}   var FData:file;       Header:LAN_HEADER;       buf:smallint;       i,j,k:integer;       nCols,nRows,nBands:integer;       flLoadData:boolean;       value1:WideString;   begin     value1:=JNI_JStringToWideString(PEnv, value);     try     AssignFile(FData,value1);     Filemode:=fmOpenread;     Reset(FData,1);     BlockRead(FData,Header,sizeof(Header));     Setlength(data,Header.IROWS,Header.ICOLS,Header.NBANDS);     nRows:=Header.IROWS;     nCols:=Header.ICOLS;     nBands:=Header.NBANDS;      for i:=0 to Header.IROWS-1 do       for k:=0 to Header.NBANDS-1 do        for j:=0 to Header.ICOLS-1 do         begin          BlockRead(FData,buf,2);          data[i,j,k]:=buf;          end;        flLoadData:=true;       finally        CloseFile(FData);   end; end;   exports  Java_createhypertables_LoadLAN_displayMass;   end.

Сам native метод:

Код:

1 2 3 4 5

public native short[][][] displayMass(String value);       static       {         System.loadLibrary("LoadLanImpl");       }

И его вызов:

Код:

1 2 3

String value = "F:/ImageTest.lan";                 short[][][] sh = new short[172][111][242];                 sh = ll.displayMass(value);