tiff 파일의 정해진 영역(left,top,width,height)의 bitmap 데이터를 읽고자 하는데,
아래처럼 Byte로 읽어 온 후 영역을 어떻게하면 찾을 수 있나요?
(캐논의 imgEdit 컴포넌트를 사용하여 500개정도 영역을 읽으면(bitmap을 생성, scanline이용)
시간이 너무 오래 걸려서요......)
var
fi : File;
i,iRead : integer;
bufh : array[0..255] of byte;
buf : array[0..99999] of byte;
begin
AssignFile(fi, FileListBox1.FileName);
Reset(fi,1);
Blockread(fi,bufh,8,iRead); //여기는 Header
//73 73 42 0 ......... 데이터 저장순서와 버전 이미지저장디렉토리
BlockRead(fi, buf, FileSize(fi), iRead);
for i := 0 to FileSize(fi)-1 do
if buf[i] = ?? then //비교할 자리
begin
//이부분은 Byte 데이터 처리할 자리
end;
end;
CloseFile(fi);
end;
=끝=