Вопрос не столько по графике, сколько об написании кода [D5]
Yuraz © (2002-01-19 16:53:00)
Написал преобразование из 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:00) [1]
если gif из RX, то работает так
...
bm.SaveToFile("e:\123.bmp");
bm.PixelFormat:=pf8bit
gif:=tgifimage.create;
gif.Assign(bm);
gif.SaveToFile("e:\123.gif");
gif.free;
Наверх 
ЧАТ |
Орешник |
|
