怎么用pascal编写程序读写gif图片？

来源：百度知道 编辑：UC知道 时间：2024/06/03 01:37:41
现在有一个迷宫，线条都是1个像素的，黑白两色，大概400*600。
我想用广度优先搜索找出迷宫的最佳路径。
现在不知道怎么样能够读写这张图，求高人帮助。

使用BMP吧!(单位位图)
参照
uses graph;

procedure graphini;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
end;
procedure PrintBMP(path:string;x,y:longint;color:byte);
const
f=62;
var
fin:text;
width,height,m:word;
a:array [1..8] of boolean;
n,k:byte;
i,j,l:longint;

begin
setcolor(color);
assign(fin,path);
reset(fin);
for i:=1 to 18 do read(fin,c);
read(fin,c);m:=ord(c);read(fin,c);width:=ord(c)*256+m;
for i:=1 to 2 do read(fin,c);
read(fin,c);m:=ord(c);read(fin,c);height:=ord(c)*256+m;
reset(fin);
for i:=1 to f do read(fin,c);
i:=1;j:=1;
while (i<=height) do begin
read(fin,c);
n:=ord(c);
for k:=1 to 8 do begin
if n mod 2=1 then a[9-