怎么把bmp的转成gif的啊(100分)

  • 主题发起人 主题发起人 yhtang
  • 开始时间 开始时间
Y

yhtang

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么把bmp的转成gif的啊
 
手工做:用画笔软件另存为GIF格式即可
软件做:DELPHI不支持,要下载第三方控件,当然你也可以自己做这个控件,这个第三方控件叫GIFImage,有DEMO
 
你是要编程实现吗?acdsee就可以转换啊!
 
以下是转为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;
 
楼上说得基本正确,不过要求你有一个gif相关单元,但是delphi并未提供这一单元。
你可以在http://www.tommstudio.com/newclub30/d_components.asp
下载得到该单元:
20 TGifImage For D7(2002年11月5日)(1823)
简介:TGifImage是一个可以显示gif和动画gif图像的类,可以使Delphi的TImage自动支持...
 
谢谢各位了
已经搞定了
用了rx控件
 
后退
顶部