点阵图怎么显示?(100分)

  • 主题发起人 主题发起人 whywhat
  • 开始时间 开始时间
W

whywhat

Unregistered / Unconfirmed
GUEST, unregistred user!
我已知一个图形文件是1728X2400的点阵文件,并知道它实际就是一张没有头信息的bmp文件,用专业软件看过就是黑白两色画的一些线条,实际上是传真图,怎样把它转成标准的bmp图片,用image可以显示?
 
图形文件首先要知道格式,然后写入BMP流中,保存即可
 
var
l:TmemoryStream;
s: TfileStream;文件
bitmap:tbitmap;

bitmap:=tbitmap.Create ;
l:= TmemoryStream.create;
s:= TfileStream.Create();
bitmap.PixelFormat :=pf8bit;
bitmap.Width :=长1728 ;
bitmap.Height :=宽2400
bitmap.savetostream(l);
bitmap.free;
写入自己定义的调色板
for i:=(宽-1) downto 0 do // 读取字节
begin
l.Seek(1078+长*i, soFromBeginning); //定位
l.CopyFrom (s,长);
end;
l.Seek(0, soFromBeginning); //定位
image1.Picture.Bitmap.LoadFromStream(l);
l.free;
 
谢谢两位的回答,我明天试试,通过即给分,不通过也给分,不过有问题的话,我还要再问问
 
啊啊啊啊啊,你好,不知能否告知你的Email,我想发给你数据文件和最后的图形,让你帮我看看!
 
zhongguo_liyun@tom.com
 
接受答案了.
 

Similar threads

后退
顶部