Загрузка изображения из RES-файла [D5, Win95/98, WinME, NT4, Win2k]
ctapik-net © (2002-01-02 01:11:00)
Засунул бмп в ресурс и хотел его загрузить следующим образом
procedure TForm1.Button1Click(Sender: TObject);
const
BM = $4D42; {Идентификатор типа изображения}
var
Bmp: TBitmap;
BMF: TBitmapFileHeader;
HResInfo: THandle;
MemHandle: THandle;
Stream: TMemoryStream;
ResPtr: PByte;
ResSize: Longint;
begin
BMF.bfType := BM;
{Ищем, загружаем и блокируем ресурс, содержащий BITMAP_1}
HResInfo := FindResource(HInstance, "SERVER", RT_Bitmap);
MemHandle := LoadResource(HInstance, HResInfo);
ResPtr := LockResource(MemHandle);
{Создаем Memory-поток, устанавливаем его размер, записываем
туда заголовок изображения и, наконец, само изображение }
Stream := TMemoryStream.Create;
ResSize := SizeofResource(HInstance, HResInfo);
Stream.SetSize(ResSize + SizeOf(BMF));
Stream.Write(BMF, SizeOf(BMF));
Stream.Write(ResPtr^, ResSize);
{Освобождаем поток и сбрасываем его позицию в 0}
FreeResource(MemHandle);
Stream.Seek(0, 0);
{Создаем TBitmap и загружаем изображение из MemoryStream}
Bmp := TBitmap.Create;
Bmp.LoadFromStream(Stream);
Canvas.Draw(0, 0, Bmp);
Bmp.Free;
Stream.Free;
end;
а он даже найти ресурс с таким именем не может!!
почему?
Suntechnic (2002-01-02 01:28:00) [1]
Попробуй вместо
FindResource(HInstance, "SERVER",
RT_Bitmap);использовать
FindResource( 0, "SERVER", RT_Bitmap);
ну и далее по тексту тоже самое...
Наверх 
ЧАТ |
Орешник |
|
