Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Вопрос не столько по графике, сколько об написании кода 


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.017 c
1-8846            Dmitriy_R             2002-01-21 11:05  2002.02.04  
Как выяснить целое число и его остаток после какой нить математической операции?


4-9026            Don                   2001-12-07 15:54  2002.02.04  
Вывод заголовка в StringGrid вертикально


1-8850            Ev_grenus             2002-01-15 17:05  2002.02.04  
Нужна струкнура данных,


4-9046            Coolguy               2001-12-06 18:40  2002.02.04  
Получение выделенного текста из edit box а другой аппликации


3-8801            Oleg Fomicheff        2001-12-31 05:18  2002.02.04  
Не могу создать индекс с параметром Unique ;(((