JPG ohne Resource einfügen

[bytecook]

Zitat von trojaner:

Morgen

hohl dir den http://www.resource-builder.com/

Gruss

oder

http://melander.dk/reseditor/

[Danny92]

Die Resource funktioniert ja!
Aber mit Assign passiert gar nix mehr. Ich möchte doch lediglich 3 Bilder als Variablen speichern, um sie jederzeit in eine Image-Komponente zu laden und dort angezeigt zu bekommen^^
Es sind auch alle Bilder in der Resource vorhanden und ich kann sie auch direkt aus der Resource reinladen, aber mit dem Speichern in die Variablen komm ich einfach nicht klar mit.^^

[Zacherl]

Laut diesem Code:

Delphi-Quellcode:

   for i:=1 to 3 do
   begin
     RStream := TResourceStream.Create(HInstance, 'A'+IntToStr(i), RT_RCDATA);
     try
        jpgLogo := TJpegImage.Create;
        Try
           jpgLogo.LoadFromStream(RStream);
           tuer[i].LoadFromStream(RStream);

.. hast du doch schonmal 3 Resourcen A1 bis A3, welche alle ein JPEG enthalten.

Das Problem ist, dass du JEDES MAL 2 JPEGS ausliest. Das erste LoadFromStream wird funktionieren; das Zweite allerdings nicht, weil die Leseposition des Streams sich dann schon entsprechend an das Ende gesetzt hat.

[haentschman]

Recht hat er...

Zitat:

das Zweite allerdings nicht, weil die Leseposition des Streams sich dann schon entsprechend an das Ende gesetzt hat.

Wäre eine Imagelist für deine Icons (so sah es danach aus) nicht besser? ... dann wäre das Array und das LoadFromStream überflüssig.

[pesi]

Hallo,

jetzt will ich aber auch mal meinen unqualifizierten Senf dazu geben und erzählen wie ich es machen würde (würde mich in diesem Kreis hier allerdings auch eher als Laie bezeichnen )
Resourcen mögen ja auch ganz nett sein, auch wenn ich damit noch nie gearbeitet habe und keinen Plan habe, aber ich mach mir das Leben in solchen Situationen ganz einfach:

1. Ich lege mir X TImages auf eine Form, lade die gewünschten Images über den Objektinspektor (Eigenschaft Picture) und setze die Images auf unsichtbar (oder packe sie auf eine Form die eh nicht angezeigt wird)
2. Je nach Situation (mittels IF oder CASE oder WASAUCHIMMER) gehe ich dann einfach her und weise dem Image in dem es angezeigt werden soll (hier "AngezeigtesBild") das entsprechende Bild zu.

AngezeigtesBild.Picture.Assigne(ImageXY.Picture)

3. Alternativ könntest Du auch natürlich auch eine TImageList nehmen und dort die gewünschten Bilder per Objektinspektor laden und dann später Deinem Ziel assignen.

Frage an die Experten: Was spricht dagegen???

Grüße
Peter

[pesi]

Mist... Haentschman war schneller

[Danny92]

Ja danke! Das doppelte LoadfromStream war das Problem. Danke nochmal.