GIF

← →
GIL © (2003-05-08 15:16) [0]

Есть-ли где-нибудь компонент, который понимает bmp,jpeg,gif и как с ним работать, и чтобы работал в DELPHI 6, а то достал один, так он один раз и сработал, а дальше какбудто ничего и не было!

← →
Имхо Петрович (2003-05-08 15:24) [1]

А зачем? Чтобы создавать нужный TGraphic по расширению необходимо написать всего-то строк 10 и подключить RxGIF. Всех всех, bmp, gif, jpg, jpeg, ico, wmf, emf.

← →
GIL © (2003-05-08 15:29) [2]

а можно чуть-чуть поподробнее? Как потом это вывести на экран?

← →
NAlexey © (2003-05-08 15:42) [3]

Как на экран вывести? Ну к примеру выводи Draw, а лучше BitBlt. Ну а так бы я написал эти 10 строк:
procedure BlahBlah(Sender: TObject); var Source: TGraphic; function AnyGraphicClass: TGraphicClass; var Extension: String; begin Result := nil; Extension := UpperCase(ExtractFileExt(YourFileName)); if Extension = ".BMP" then Result := TBitmap else if Extension = ".GIF" then Result := TGIFImage else if Extension = ".JPG" then Result := TJPEGImage else if Extension = ".JPEG" then Result := TJPEGImage else if Extension = ".ICO" then Result := TIcon else if Extension = ".WMF" then Result := TMetaFile else if Extension = ".EMF" then Result := TMetaFile else Exit; end; begin Source := AnyGraphicClass.Create; (* Для примера *) try Image1.Picture.Bitmap.Assign(Source); finally Source.Free; end; end;
И не забудь RxGif присобачить а то gif не получишь.

← →
GIL © (2003-05-08 15:55) [4]

есть одна небольшая проблема :( rx не устанавливается на D6, хватит-ли одного этого модуля?

← →
NAlexey © (2003-05-08 16:02) [5]

Не знаю, не пробывал. Но наверное хватит. Может еще RXGraph понадобится. Короче надо пробывать.

просто я пробовал ее подтянуть, а она за собой половину rx потянула

На этот счет вытягивай код для работы с gif или оставь gif в покое.

GIF Найти похожие ветки