JPeg aus Ressource in TImage laden, kriegs aber nicht hin.

[Christian S.]

Hi!

Wahrscheinlich habe ich mich unklar ausgedrückt:

Delphi-Quellcode:

procedure LoadImage(Bild: String; Ziel: TImage);
var
  b: TJPEGImage;
  s: TResourceStream;
  r: Cardinal;
begin
  r := FindResource(HInstance, PChar(Bild), 'JPG');

  if r <> 0 then
    s := TResourceStream.Create(HInstance, Bild, 'JPG');
  else
    s := TResourceStream.Create(HInstance, 'Fehlerbild', 'JPG');

  b := TJPEGImage.Create;
  b.LoadFromStream(s);
  Ziel.Picture.Bitmap.Assign(b);
  b.Free;
  s.Free;
end;

So meinte ich das.

Zitat:

Aber ansonsten kann es sich glaub sehen lassen denk ich für nen Anfänger wie mich

Ich wollte Deine Leistung in keiner Weise schmälern und finde auch, dass diese Prozedur sehr nützlich ist. Wie gesagt, ich finde, sie sollte ins Code-Library.

MfG
Peter