Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

Как сохранить TImage в gif?   Найти похожие ветки 

← →
nester ©   (2003-10-05 16:18) [0]

Как сохранить содержимое TImage в gif? Читать то читать он умеет гифы а как в них сохранять? как не мучался, все равно в bmp сохраняет

---

← →
ZEE ©   (2003-10-06 10:32) [1]

вот выдернул из демки к TGifImage скачивал с http://torry.net/

procedure TFormMain.ButtonConvertClick(Sender: TObject);
var
Bitmap : TBitmap;
GIF : TGIFImage;
begin
ButtonConvert.Enabled := False;
try
Bitmap := TBitmap.Create;
try
// Load the bitmap that will be converted
Bitmap.LoadFromFile(ExtractFIlePath(Application.ExeName)+"test.bmp");
// Display the bitmap
ImageBMP.Picture.Assign(Bitmap);
// Clear previous GIF view
ImageGIF.Picture.Assign(nil);

ShowMessage("This demo loads a bitmap from the file TEST.BMP,"+#13+
"converts it to a GIF and saves it as TEST.GIF");

GIF := TGIFImage.Create;
try
GIF.OnProgress := OnProgress;
// Convert the bitmap to a GIF
GIF.Assign(Bitmap);
// Save the GIF
GIF.SaveToFile("test.gif");
// Display the GIF
ImageGIF.Picture.Assign(GIF);
finally
GIF.Free;
end;
finally
Bitmap.Free;
end;
finally
ButtonConvert.Enabled := True;
end;
end;

---

← →
nester ©   (2003-10-06 13:14) [2]

Благодарю

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c