Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Вниз
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 понадобится. Короче надо пробывать.
← →
GIL (2003-05-08 16:07) [6]просто я пробовал ее подтянуть, а она за собой половину rx потянула
← →
NAlexey (2003-05-08 16:08) [7]На этот счет вытягивай код для работы с gif или оставь gif в покое.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
