Resourcen Problem

[Uwe Raabe]

Delphi-Quellcode:

uses
  jpeg;
var
  stream: TResourceStream;
  jpegImage: TJPEGImage;
begin
  jpegImage := TJPEGImage.Create;
  try
    stream := TResourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);
    try
      jpegImage.LoadFromStream(stream);
    finally
      stream.Free;
    end;
    Bild.Picture.Bitmap.Assign(jpegImage);
  finally
    jpegImage.Free;
  end;
end;

Den Namen des Resourcenbezeichners must du eventuell noch anpassen.