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




Вниз

Загрузка изображения из RES-файла 


ctapik-net   (2002-01-02 01:11) [0]

Засунул бмп в ресурс и хотел его загрузить следующим образом

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) [1]

Попробуй вместо
FindResource(HInstance, "SERVER", RT_Bitmap);использовать
FindResource( 0, "SERVER", RT_Bitmap);
ну и далее по тексту тоже самое...




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




Наверх





Память: 0.72 MB
Время: 0.033 c
1-66298           Sheva                 2002-01-03 11:57  2002.01.21  
SpeedButton.


3-66212           Andrey196             2001-12-18 23:32  2002.01.21  
Обьесните мне толком что делает DBLookupComboBox, а то я немогу понять подходит ли он мне или нет?


3-66180           lSergey               2001-12-17 09:19  2002.01.21  
Проблема с создание DBF файла


3-66208           Vygantas              2001-12-18 13:10  2002.01.21  
MySQL и D6


3-66201           TYuri                 2001-12-18 14:01  2002.01.21  
Oracle