Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
8-16530
AlexanderSK
2003-09-23 15:01
2004.02.06
Запись звука с микрофона


14-16619
Ig
2004-01-13 21:42
2004.02.06
Что с винтом моим творится?


8-16528
Raduga
2003-10-01 11:00
2004.02.06
Как убрать мерцание при перерисовке?


11-16200
Boguslaw
2003-05-22 20:05
2004.02.06
Any problems with TKOlTimer in KOL 1.71 - 1.73 ?


14-16739
Piter
2004-01-15 18:08
2004.02.06
Неудобство в проводнике