리소스를 한곳에 모아놓고 사용하기 - 2

이번 예제는 이미지를 넣고 불러와 보겠습니다.

1. New1.rc 파일을 생성하고 이미지를 추가합니다.

BG JPG "C:\test.jpg"

2. 폼에서 리소스를 추가합니다.

implementation

{$R *.dfm}
..
{$R 'New1'}

3. 리소스를 불러옵니다.

procedure LoadImageFromResource;
var
  res : TResourceStream;
  tmpJPEG : TJPEGImage;
begin
  res := TResourceStream.Create(HInstance, 'BG', 'JPG');  
                                  //Create           리소스 이름과 타입으로 찾습니다.
                                  //CreateFromID 리소스 ID와 타입으로 찾습니다.
  tmpJPEG := TJPEGImage.Create;
  try 
    tmpJPEG.LoadFromStream(res);
    imgBackRound.Picture.Bitmap.Assign(tmpJPEG); //이미지를 보여줍니다.
  finally
    tmpJPEG.Free;
    res.Free;
  end;
end;

2018/11/15 - [ - Delphi] - 리소스를 한곳에 모아놓고 사용하기 - 1