Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.006 c
1-8913
Cyber
2002-01-17 05:24
2002.02.04
Как сделать TMemo прозрачным?


1-8920
Eraser
2002-01-17 13:39
2002.02.04
Название ComboBox


1-8921
boogier
2002-01-15 17:58
2002.02.04
Кнопка


1-8906
tovSuhov
2002-01-17 10:44
2002.02.04
Вот такая проблема...


7-9014
perov
2001-10-24 16:18
2002.02.04
Убить процесс