Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Ребят, помогите с ресурсами пожалуйста!   Найти похожие ветки 

 
KaPaT ©   (2002-01-22 23:41) [0]

Как можно из ресурса вытащить jpeg картинку?


 
copyr25   (2002-01-23 06:20) [1]

uses jpeg;
...
procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
JPEGImage : TJPEGImage;
begin
ResHandle := FindResource(hInstance, PChar(TheJPEG), "JPEG");
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
JPEGImage.LoadFromStream(MemStream);
ThePicture.Assign(JPEGImage);
JPEGImage.Free;
MemStream.Free;
end;
...
LoadJPEGFromRes("MYJPEG1", Image1.Picture);
...



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

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
14-18987
DinaraRu
2001-12-17 23:27
2002.02.07
Альфа-тестеры


3-18764
voice
2002-01-13 12:07
2002.02.07
AppendRecord...


14-18973
V-o-y-a-g-e-r
2001-12-19 15:03
2002.02.07
Компонент Вольтметр !!!


1-18869
Ramid
2002-01-21 17:10
2002.02.07
Какое событие проиходит когда кликаешь (передвигаешь) ScrollBar на TStringGrid?


1-18790
User_OKA
2002-01-23 14:57
2002.02.07
VarArrayCreate