uses
JPEG;
procedure LoadImageFromStream(Image: TImage;Stream: TStream);
var G: TGraphic;
begin
G:=TJPEGImage.Create;
G.LoadFromStream(Stream);
Image.Picture.Graphic:=G;
G.Free;
end;
Добавление файла как ресурса
Как добавить например файл скина(*.skn) или картинку внутрь exeшника как ресурс
Цитата:
Originally posted by shultz1988
Как добавить например файл скина(*.skn) или картинку внутрь exeшника как ресурс
Как добавить например файл скина(*.skn) или картинку внутрь exeшника как ресурс
Цитата:
Originally posted by Delpher
http://forum.codenet.ru/showthread.php?s=&threadid=25816
http://forum.codenet.ru/showthread.php?s=&threadid=25816
А можно загрузить картинку jpeg в image через loadfromstream а то bmp грузится а на jpeg delhpi ругается
Цитата:
Originally posted by shultz1988
А можно загрузить картинку jpeg в image через loadfromstream а то bmp грузится а на jpeg delhpi ругается
А можно загрузить картинку jpeg в image через loadfromstream а то bmp грузится а на jpeg delhpi ругается
Можно!
Код:
А если не боишься переписывать системные модули, то можно сделать так, чтобы Delphi не ругалась:
В модуле Graphics добавляешь ссылку на модуль JPEG,
объявляешь константу SVjpeg='Jpegs' в модуль Consts, в конструкторе класса TFileFormatsList (в Graphics) дописываешь строку(и)
Add('jpg', SVjpeg, 0, TJPEGImage);
Add('jpeg', SVjpeg, 0, TJPEGImage);
По-моему должно работать... ;)
Цитата:
Originally posted by hardcase
По-моему должно работать... ;)
По-моему должно работать... ;)
Работает;)