作者:CoolSlob
功能:码用于完成在Panel上显示一个BMP文件(现多信息请参阅BMP文件结构相关文章)
var
dc:HDC;
hdd:HDRAWDIB;
Stream: TStream;
hdr: BITMAPFILEHEADER;
m_pbmih: TBITMAPINFOHEADER;
BITMAP_TYPE: WORD;
S: string;
len: Integer;
DataSize: Integer;
begin
//BMP文件头两个字段必须是BM
BITMAP_TYPE := (WORD(Ord('M') shl 8)) or Ord('B');
Stream := TFileStream.Create(sFileName{
需要显示的文件名}, fmOpenRead );
try
//读文件头
len := Stream.Read(hdr, SizeOf(hdr));
if ((len<>sizeof(hdr)) or (hdr.bfType<>BITMAP_TYPE)) then Exit;//无效BMP文件
//读位图信息头
Stream.Read(m_pbmih, SizeOf(m_pbmih));
&n

这段代码展示了如何在Panel组件上加载并显示一个BMP文件。首先,检查BMP文件头是否正确,然后读取位图信息头,计算位图数据大小,并从文件中读取数据。最后,通过GetDC获取设备上下文,调用DrawDibDraw进行绘制。
最低0.47元/天 解锁文章
157

被折叠的 条评论
为什么被折叠?



