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




Вниз

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


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);
...




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




Наверх





Память: 0.72 MB
Время: 0.019 c
4-19023           Art                   2001-11-16 15:10  2002.02.07  
Как мне из моей проги открыть другую???


6-18936           Yuraz                 2001-11-13 17:05  2002.02.07  
Помогите найти компоненты D5D6 для работы с ICQ


7-19015           SD                    2001-10-30 13:57  2002.02.07  
Что значит частота отцифровки звука 11025 Гц


6-18942           Deep                  2001-11-10 04:25  2002.02.07  
как сделать папку сетевой?


3-18702           Лена                  2002-01-09 08:21  2002.02.07  
Синтаксис команды UPDATE