Скачать: CL | DM;

Вопрос не столько по графике, сколько об написании кода   Найти похожие ветки 

← →
Yuraz ©   (2002-01-19 16:53) [0]

Написал преобразование из BMP в GIF, в таком порядке: делаю BMP, сохраняю на диск, открываю его второй процедурой, преобразовываю в GIF, снова сохраняю на диск. Не могу разобраться, как на диск записывать готовый GIF без BMP. Может кто подправит меня? ВОт исходные:

procedure TForm1.Button1Click(Sender: TObject);

begin
bm.Width:=160; // сделаем BMP (время + слово)
bm.Height:=40;
with bm.Canvas do begin
Pen.Width := 2;
Pen.Color := clLime;
Rectangle(0, 0, bm.Width, bm.Height);
TextOut(3,3,DateTimeToStr(now));
TextOut(3,23,"просто слово");
end;
bm.Picture.SaveToFile("123.bmp");
gif(); // вызываю процедеру конвертирования
end;

procedure gif;
var
Bitmap : TBitmap;
GIF : TGIFImage;
begin
try
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile("123.bmp");
Form1.bm2.Picture.Assign(Bitmap);
Form1.bm2.Picture.Assign(nil);
GIF := TGIFImage.Create;
try
GIF.Assign(Bitmap);
GIF.SaveToFile("123.gif");
Form1.bm2.Picture.Assign(GIF);
finally
GIF.Free;
end;
finally
Bitmap.Free;
end;
finally
end;
end;

---

← →
MBo ©   (2002-01-20 11:03) [1]

если gif из RX, то работает так

...
bm.SaveToFile("e:\123.bmp");
bm.PixelFormat:=pf8bit
gif:=tgifimage.create;
gif.Assign(bm);
gif.SaveToFile("e:\123.gif");
gif.free;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c