简单图像问题,啊!快来抢分啊! 如何将TIF格式的图像文件转化为数据文件?或字节? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TIF格式的图像文件本身就是数据文件 var F: file; Buff: PChar; Fsz: Cardinal; BFile:array of byte; i:Cardinal;begin AssignFile(F,'c:\a.tif'); Reset(F, 1); Fsz := FileSize(F); GetMem(buff, Fsz); try BlockRead(F, buff^, Fsz); setlength(BFile,Fsz); for i := 1 to Fsz do begin BFile[i]:=Byte(buff[i]); //BFile以字节(byte)数组的形式返回文件的内容 end; finally FreeMem(buff); CloseFile(F); end;end; to:lincanwen(密码错误)给你100分,不管对错,肯真正解答问题就是分! 初学者界面效果问题 高手赐教 100分求助!XDJM,谁有Enlib3.0 for d7 或者知道哪儿可以下载!在线等待! 一个基本的问题 怎么用Delphi实现跨服务器转移数据? 急!求助 :坐标转换问题 关于MS Agent控件的问题?? 中秋不发月饼咋办 关于sql计算次数重复的问题 关于控件的copy问题 请问IDE在哪里? 内存泄漏的问题? 时间比较出错,if CompareDate(MLBArray[K].TimeRec,TimeLRU)=-1 then,大家帮看看
F: file;
Buff: PChar;
Fsz: Cardinal;
BFile:array of byte;
i:Cardinal;
begin
AssignFile(F,'c:\a.tif');
Reset(F, 1);
Fsz := FileSize(F);
GetMem(buff, Fsz);
try
BlockRead(F, buff^, Fsz);
setlength(BFile,Fsz);
for i := 1 to Fsz do
begin
BFile[i]:=Byte(buff[i]); //BFile以字节(byte)数组的形式返回文件的内容
end;
finally
FreeMem(buff);
CloseFile(F);
end;
end;
lincanwen(密码错误)
给你100分,不管对错,肯真正解答问题就是分!