Архив форумов ЦИТФорума

[Tahir]

Задача: вставить из ресурсов на форму Bitmap.
Предлагайте сразу скриптом

[lapulya]

чего за ресурсы?
что за форма?
какая среда?
динамически или статически?

[Tahir]

Приложение VC++ (Win32 API). Ресурсы - обычный битмап в проекте. Форма - обыкновенное окошко. Вставлять лучше динамически.

[GREA]

Разумеется, без труда можно переписать на СИ
procedure LoadPicFromRes(pic : string; ThePicture : TPicture);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
picImage : TImage;
begin
ResHandle := FindResource(hInstance, PChar(pic), 'MAT');
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
picImage := TImage.Create(nil);
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
picImage.Picture.Bitmap.LoadFromStream(MemStream);
ThePicture.Assign(picImage.Picture);
picImage.Free;
MemStream.Free;
end;
Здесь "МАТ" у меня - название раздела материалов в ресурсе

[Гость]

Хотелось бы сразу на VC++, можно с WTL.