请教如何读取资源文件中的图片，最好给我例子一读，非常谢谢

Question

请教如何读取资源文件中的图片，最好给我例子一读，谢谢!

Answer 1

{$R BACKG.Res}资源文件名procedure TF_Main.BG_1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromResourceName(hInstance, 'BACKG');//资源文件中的Bmp
end;

Answer 2

从资源中加载JPEG图像
{$R FOO.RES}uses Jpeg;procedure LoadJPEGFromRes(TheJPEG : string;
                          ThePicture : TPicture);
var
  ResHandle : THandle;
  MemHandle : THandle;
  MemStream : TMemoryStream;
  ResPtr    : PByte;
  ResSize   : Longint;
  JPEGImage : TJPEGImage;
begin
  ResHandle := FindResource(hInstance, PChar(TheJPEG), '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);
  ThePicture.Assign(JPEGImage);
  JPEGImage.Free;
  MemStream.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadJPEGFromRes('MYJPEG', Image1.Picture);
end;
加载BitMap图像Var
BitMap:TBitMap;
...
procedure ***(*);
begin
BitMap:=TbitMap.Create;
try
  BitMap.LoadFromResourceName(HInstance,'Splash');
  ImgBack.Picture.Bitmap:=BitMap;//ImgBack为IMAGE控件
finally
  BitMap.Free;
end;//end try;
end;