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

Вниз

загрузить JPEG в EXE   Найти похожие ветки 

← →
deymon   (2002-06-15 17:34) [0]

У меня есть код, но он не работает, т.е. иконка остается прежней

var
Form1: TForm1;
MyJPG : TJPEGImage;
ResStream : TResourceStream;
implementation

{$R *.DFM}
{$R MyPic.RES}

begin
MyJPG := TJPEGImage.Create;
ResStream := nil;
try
ResStream := TResourceStream.CreateFromID(HInstance,1,RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
finally
MyJPG.Free;
ResStream.Free;
end;
end.


может, дело в размере jpeg-файла?
Подскажите, please!

---

← →
Poirot   (2002-06-15 20:00) [1]

А может я тупой... но я впринципе ничего не понимаю... какая иконка... что вам надо-то.... и тогда причем тут ЖПГ...

---

← →
anod   (2002-06-15 20:03) [2]

Бред какой-то.

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.006 c