|
잘돌아가는 델파이코드인데 빌더로 바꾸려면 에러가 나에요 --;
dll 함수 부르는 부분에서 영상데이타 넘기는 방법이 빌더로 잘 모르겟어요.
dll 파일 첨부했습니다.
function raw2ezwf(var RawData:Byte; ls_des_filename:string; iWidth,iHeight:longint;
fBitRate:single; iLevel:integer; iWavelet:longint):longint; stdcall; external 'ezw.dll'
...
...
var
fs: TFileStream;
img_data: array of Byte; // 이미지 데이타 저장공간
file_name, ezw_name: string; // 입출력 파일명
dummy: longint;
// i,j,k: integer;
begin
file_name:='c:\g512x512.bmp';
ezw_name:='c:\test.ezw';
fs := TFileStream.Create(file_name, fmOpenRead);
try
img_size := fs.Size;
SetLength(img_data, img_size);
// pointer 로 형 변환후 ^를 추가
fs.Seek(1079, soFromBeginning );
fs.Read(pointer(img_data)^, img_size);
// BitRate=0.4, Level=6, Wavelet=2
dummy:=raw2ezwf(img_data[0], ezw_name, 512, 512, 0.4, 6, 2); <<--여기서 이미지데이타 넘기기가 안되네
finally
fs.free;
ShowMessage('Successful !');
end;
end;
|