以下是转为Jpg的,GIF也差不多吧,试试:
uses JPEG;
procedure BmpToJpg(var Bmpfile,Jpgfile:string);
var
bmp:Tbitmap;
jpg:Tjpegimage;//
begin
bmp:=Tbitmap.create;
jpg:=TjpegImage.create;
try
bmp.loadfromfile(Bmpfile);
jpg.Assign(bmp);
jpg.CompressionQuality:=30;
JPG.JPegNeeded;
jpg.Compress;
jpg.savetofile(Jpgfile);
finally
bmp.free;
jpg.free;
end;
end;
procedrue jpgTobmp(var jpgfile,bmpFile:String);
var
bmp:Tbitmap;
jpg:Tjpegimage;//
begin
bmp:=Tbitmap.create;
jpg:=TjpegImage.create;
try
jpg.loadfromfile(jpgfile);
bmp.Assign(jpg);
bmp.savetofile(bmpfile);
finally
bmp.free;
jpg.free;
end;
end;