这是我为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的代码
1