JPEG aus einer Exe laden

[Red_Wraith]

Schon mein zweiter Thread heute :)

Naja ich habe folgendes:
Ich habe ein paar Bilder in JPEG form in einer Exe gespeichert (rc -> compile -> exe).
Jetzt möchte ich die in ein Image laden, in meinem Fall Image1.

Bis vor kurzem handelte es sich noch um *.bmp dateien, allerdings ging das stark auf die Größe der Exe, deswegen will ich nun jpegs benutzen. Naja sonst habe ich immer folgenden Befehl benutzt:

Delphi-Quellcode:

   frmBild.Image1.Picture.Bitmap.LoadFromResourceID(hInstance,1);

Allerdings funktioniert das nichtmehr. Nun habe ich mich die letzten 45 mins durch forum gelesen und leider nur Anhaltspunkte, aber keine konkrete Lösung erhalten. Kann mir einer sagen, wie der Befehl zum Laden der JPEG nun lautet ?

Danke im vorraus

Ihr seid toll :D

[Luckie]

Zitat:

Zitat von Red_Wraith

Ich habe ein paar Bilder in JPEG form in einer Exe gespeichert (rc -> compile -> exe).

Hä? :shock: Du meinst du hast eine Ressourcendatei erzeugt. Dann mach dich mal über TResourceStream und die Methode LoadFromStream von TImage schlau.

[SirThornberry]

einfach

Delphi-Quellcode:

frmbild.Image1.Picture.Graphic.LoadFromStream()

in zusammenhang mit TRessourceStream.
außerdem noch die unit "jpeg" einbinden.

@Red_Wraith: So gehts nicht weil das TBitmap-Object kein JPG versteht

[Red_Wraith]

Hi !

Habe versucht das Problem wie folgt zu lösen:

Delphi-Quellcode:

procedure TuerOeffnen;
var ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, '1', RT_RCDATA);
  Image1.Picture.Graphic.LoadFromStream(ResStream);
end;

die *.rc ist compiliert, eingebunden und sieht so aus:

Delphi-Quellcode:

1 RCDATA 1.jpg
2 RCDATA 2.jpg
3 RCDATA 3.jpg
4 RCDATA 4.jpg
5 RCDATA 5.jpg

Wenn ich versuche nun ein Bild zu laden, kommt folgender Fehler:

Project Testproject.exe raised Exception class EResNotFound with message 'Resource 1 not found'. Process stopped.


Wo hab ich nen Fehler eingebaut ? (<-- Was ich schon fast als Selbstverständlichkeit auffasse... :) )

[Red_Wraith]

Hi Again !


Problem gelöst,
Danke für die Hilfe.

[Luckie]

Wäre nett, wen du für die andern, deinen Fehler postest und wie es richtig geht.

[Darty]

ansonstens ein Blick in CodeLibrary bringt wunder :)