![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
загрузить JPEG в EXE [D5, Win95/98]
deymon © (2002-06-15 17:34:00)У меня есть код, но он не работает, т.е. иконка остается прежней
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!
anod (2002-06-15 20:03:00) [1]Бред какой-то.
Poirot (2002-06-15 20:00:00) [2]А может я тупой... но я впринципе ничего не понимаю... какая иконка... что вам надо-то.... и тогда причем тут ЖПГ...