主题：谁会用Pascal读入16色的BMP图像，并在作图模式中显示出来？？？
阿Ben
[专家分：2200] 发布于 2005-08-22 22:21:00
[em10]
回复列表 （共22个回复）
11 楼
阿Ben [专家分：2200] 发布于 2005-10-03 20:49:00
uses graph,readbmp;
{定义变量}
var
b:TBMPInfoHeader;
p:pointer;
begin
{读入BMP}
LoadBMP('AAA.BMP',b,p);
{显示BMP}
DrawBMP(p, 0, 0, b.biWidth, b.biHeight, 0, 0, b.biWidth, b.biHeight, 16);
end.
12 楼
绿步甲 [专家分：1610] 发布于 2005-10-04 19:09:00
那四个"0"有什么作用?可改么?
13 楼
林记 [专家分：1680] 发布于 2005-10-04 22:47:00
前两个0是从图象的左上角画起
后两个0是在屏幕的(0,0)处画
14 楼
阿Ben [专家分：2200] 发布于 2005-10-05 00:24:00
To 13楼：
你好像说反了。（说明：只是“好像”）
15 楼
林记 [专家分：1680] 发布于 2005-10-05 12:41:00
的确是说反了,谢谢提醒
16 楼
绿步甲 [专家分：1610] 发布于 2005-10-05 20:55:00
哪个READBMP就无法运行,系统说找补到XMS.TPU
这是怎么会事?
17 楼
林记 [专家分：1680] 发布于 2005-10-05 21:13:00
在最后加上个readln嘛
18 楼
绿步甲 [专家分：1610] 发布于 2005-10-05 21:38:00
READBMP就无法运行,系统说找补到XMS.TPU
19 楼
林记 [专家分：1680] 发布于 2005-10-05 22:00:00
把uses里的XMS去掉
20 楼
阿Ben [专家分：2200] 发布于 2005-10-05 22:38:00
是不是你的BMP文件太大了？内存装不下？
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 谁会用Pascal读入16色的BMP图像，并在作图模式中显示出来？？？