求教BMP如何转GIF呢?
求教BMP如何转GIF呢?
[解决办法]
GDI+有现成的库函数。
[解决办法]
Delphi的代码:
var
ID: TGUID;
ImgS: TGPImage;
begin
if FileExists(DestFile) then
begin
if MessageBox(Application.Handle, '要创建的文件已存在,是否覆盖? ',PChar(Application.Title),MB_YESNO+MB_ICONQUESTION)=IDNO then
begin
Result:=false;
exit;
end;
end;
ImgS:=TGPImage.Create(JpgFile);
case cf of
cfBitmap:
begin
GetEncoderClsid( 'image/bmp ', id);
end;
cfJpeg:
begin
Result:=true;
exit;
end;
cfGif:
begin
GetEncoderClsid( 'image/gif ', id);
end;
cfPng:
begin
GetEncoderClsid( 'image/png ', id);
end;
end;
Result:=(ImgS.Save(DestFile,ID,nil)=OK);
ImgS.Free;
[解决办法]
看看Tgifimage的例子就行了