WasSee2.0核心代码

这是我为WasSee2.0写的TWasFile类，使用起来很简单。

var
test: TWasFile; // 定义一个TWasFile变量
bgbmp: TBitmap;
begin
test := TWasFile.Create; // 使用前要Create一下
bgbmp := TBitmap.Create;
bgbmp.PixelFormat := pf24bit; // TWasFile的Draw方法只支持24bit的bmp，当然你可以自己写支持其他格式代码
bgbmp.Width := 400;
bgbmp.Height := 300;

test.LoadFromFile('d:\test.was'); // 加载一个was文件
test.Draw(bgbmp, 0, 0, 0); // 把was文件中的0号图片画到bgbmp的0,0坐标

test.Free; // 使用完了要释放
bgbmp.Free;
end;

还有DrawByKey SaveToFile等方法，请自行阅读was.pas的代码