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

[Armageddon]

Hi The-X

Ähm danke für den Tip. Hab das natürlich schon gemacht *g*
Der Rest funktioniert auch. Häng nur noch dran fest das ich irgendwie überprüfen sollte ob das bild auch in der Exe vorhanden ist. Weiß nur nicht genau wie

Darty und ich haben uns darüber mal im ICQ unterhalten.
Dachten das ungefähr so:

Delphi-Quellcode:

procedure LoadImage(Bild: String; Ziel: TImage);
var
  b: TJPEGImage;
  s: TResourceStream;
begin
  if exists Bild in der exe then
    s := TResourceStream.Create(HINSTANCE, Bild, 'JPG');
    b := TJPEGImage.Create;
    b.LoadFromStream(S);
    Ziel.Picture.Bitmap.Assign(b);
    b.Free;
    s.Free
  else
    s := TResourceStream.Create(HINSTANCE, 'Fehlerbild', 'JPG');
    b := TJPEGImage.Create;
    b.LoadFromStream(S);
    Ziel.Picture.Bitmap.Assign(b);
    b.Free;
    s.Free;
  end;
end;

wobei ich noch nicht weiß wie oder ob man das überhaupt prüfen kann ob das bild existiert! Ist natürlich total Quatsch die "if exists bild in der exe" Zeile.

Hoffe es ist verständlich formuliert.

Gruß Arma.