S
seteor
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟正准备做一个生成bmp文件直方图程序,一个256级灰度的bmp文件,为什么数据区读出的全是0和1呀??????????
文件头,信息头读出来都是正确的,程序如下,运行后数组count只有count[0]和count[1]有值.(bmp文件没问题)
var
count:Array[0..255]of longint;
mybmp:File of Byte;
s:Byte;
Begin
assingfile(mybmp,'d:/aa.bmp');
reset(mybmp);
seek(mybmp,(40+14*256*4));
While NOT EOF(mybmp) do
Begin
read(mybmp,s);
count:=count+1;
End;
End;
文件头,信息头读出来都是正确的,程序如下,运行后数组count只有count[0]和count[1]有值.(bmp文件没问题)
var
count:Array[0..255]of longint;
mybmp:File of Byte;
s:Byte;
Begin
assingfile(mybmp,'d:/aa.bmp');
reset(mybmp);
seek(mybmp,(40+14*256*4));
While NOT EOF(mybmp) do
Begin
read(mybmp,s);
count
End;
End;