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

Вниз

работа с ресурсами   Найти похожие ветки 

← →
PIF   (2006-01-22 18:40) [0]

Здравствуйте! Как мне загрузить из res файла картинку с расширением jpg в Image. Если можно ответти с примером кода.
Заранее премного благодарен!!!

---

← →
Desdechado ©   (2006-01-22 19:43) [1]

uses JPEG;
           oJPG := TJPEGImage.Create;
           oJPG.LoadFromStream( oS );
           oJPG.DIBNeeded;
           Image1.Picture.Bitmap.Assign( oJPG );
           oJPG.Free;

---

← →
@BraIN ©   (2006-01-23 00:32) [2]

procedure LoadJPEGFromRes(const rName: string; aPic: TPicture);
var
 ResHandle: THandle;
 MemHandle: THandle;
 MemStream: TMemoryStream;
 ResPtr: PByte;
 ResSize: Longint;
 JPEGImage: TJPEGImage;
begin
 ResHandle := FindResource(hInstance, PChar(rName), "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);
 aPic.Assign(JPEGImage);
 JPEGImage.Free;
 MemStream.Free;
end;


Где rName — имя ресурса, а aPic, например, Image.Picture

---

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

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

Наверх

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