Keskustelu: Koodit: Pascal: JPEG-kuvan lataus resurssitiedostosta Delphillä

procedure LoadJpegFromRes(JpegFromRes : string; PictureToAssign : Tbitmap);
 var
  ResHandle : THandle;
  MemHandle : THandle;
  MemStream : TMemoryStream;
  ResPtr    : PByte;
  ResSize   : Longint;
  JpegImage : TjpegImage;
begin
 ResHandle := FindResource(hInstance, PChar(JpegFromRes), '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);
 PictureToAssign.Assign(JpegImage);
 JpegImage.Free;
 MemStream.Free;
end;