Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

請問如何在delphi中使用resource??

0 views
Skip to first unread message

隨緣、惜緣

unread,
Mar 26, 1997, 3:00:00 AM3/26/97
to

請問在那可以找到在delphi使用resource的範例??

葛瑞菲

unread,
Mar 26, 1997, 3:00:00 AM3/26/97
to


==> 在 niann (隨緣、惜緣) 的文章中提到:
: 請問在那可以找到在delphi使用resource的範例??

這是從 .RES 中載入 Windows Bitmap 的範例:
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
HResInfo: THandle;
BMF: TBitmapFileHeader;
MemHandle: THandle;
Stream: TMemoryStream;
ResPtr: PByte;
ResSize: Longint;
begin
BMF.bfType := $4D42;
HResInfo := FindResource(HInstance, 'BITMAP_2', RT_Bitmap);
ResSize := SizeofResource(HInstance, HResInfo);
MemHandle := LoadResource(HInstance, HResInfo);

ResPtr := LockResource(MemHandle);
Stream := TMemoryStream.Create;
Stream.SetSize(ResSize + SizeOf(BMF));
Stream.Write(BMF, SizeOf(BMF));
Stream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
Stream.Seek(0, 0);
Bmp := TBitmap.Create;
Bmp.LoadFromStream(Stream);
Canvas.Draw(0, 0, Bmp);
Bmp.Free;
Stream.Free;
end;

{This code came from Lloyd's help file!}

--
歡迎加入免費的 DelphiChat Mailing List,加入辦法請參見:
32 Bit Delphi 深度歷險 : http://www.aaa.hinet.net/delphi
http://www.kpi.edu.tw/delphi http://ibmsrv.cc.nthu.edu.tw/DELPHI

0 new messages