JPGs aus einer Resourcendatei laden

[Bummi]

http://www.delphipraxis.net/75236-bi...tei-laden.html

[fiscch4]

Hallo,

danke schonmal für die schnellen antworten

aber ich möchte ja gerade nicht eine .dll bei der Exe haben sonder wenn möglich nur eine Exe am ende in der die Bilder integriert sind.

ist dies überhaupt möglich oder sollte ich am besten mit einer .dll arbeiten(habe ich noch nie gemacht)?

Vielen Dank

[Bummi]

Du brauchst keine DLL statt DLL-Handle verwendest Du HINSTANCE.

Das Zauberwort war LoadFromResourceName...

[fiscch4]

soll ich das dann mit Tresourcestream das ganze laden?

könntest du mir eventuell ein kurzes beispiel geben wie ich sowas mache?
wenn ich die .Res schon habe und auch eingebunden?

vielen dank

[Bernhard Geyer]

Ändere deinen Code mal nach:

 Image1.Picture.LoadFromResourceID(HInstance, 1); Deine Image-Instanz hat ja noch kein Bild geladen. So ist u.U. das Bitmap-Property auch nil.
Ebenfalls solltest du eine JPEG (wie Assarbad angemerkt hat) direkt ins Image-Picture-Laden und nicht erst versuchen damit ein Bitmap zu beauftragen (was damit ja nix anfangen kann).

[fiscch4]

wenn ich den code änder kommt undefinierter Bezeichner LoadFormResourceID

funktioniert also leider nicht

ich kann mich leider erst morgen wieder melden
aber schonmal vielen vielen Dank

[Bummi]

sorry , ich hatte Dich in die falsche Ecke geschickt

Delphi-Quellcode:

procedure LoadPictureFromJpgResource(picture : TPicture;const AResName: string);
var
   rs: TResourceStream;
   jpg: TJPEGImage;
begin
   rs := TResourceStream.Create(HInstance,AResName,RT_RCDATA);
   jpg := TJPEGImage.Create;
   try
      jpg.LoadFromStream(rs);
      picture.Assign(jpg);
   finally
      jpg.Free;
      rs.Free;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

  LoadPictureFromJpgResource(Image1.Picture,'TEST2');
end;