Png in Image laden

[Luki206]

Hi, die Überschrift ist gerade nicht die Beste aber ich hoffe man kann helfen. Ich habe folgendes Problem: ich erstelle ein Image zur Laufzeit und will dort eine PNG-Graphik einfügen. Wenn ich dann aber das Image erstelle und dann das PNG-Bild aus der DLL lade bekomme ich den Fehler dass das PNG-Format nicht unterstützt wird da irgendetwas im Header fehle. Das Problem hatte ich auch schon mit normalen Images die ich auf mein Formular gezogen habe, ohne ein PNG-Bild einzufügen, bekam ich auch zur Laufzeit den Fehler. Wie kann ich dem Image sagen dass es PNG's an nimmt?
Danke
Luki

[mkinzler]

Die Unit mit dem png-Importfilter ist eingebunden (pngimage.pas o.ä)?

[Luki206]

Jap, ist eingefügt kommt aber trotzdem der Fehler
Edit: Also ich habe es nachträglich eingefügt nicht das es Falsch verstanden wird

[himitsu]

DLL?

Klassen dürfen nicht über DLL/EXE-Grenzen hinweg benutzt werden

Die DLL nutzt ihre eigene RTL/VCL und dort hast du diese PNG-Unit nicht geladen, darum kennt der code in der DLL diese natürlich auch nicht.

Außerdem sind die Typen (RTTI) der EXE und DLL nicht "kompatibel" miteinander,
außer man kompiliert gegen das gleiche Laufzeitpackage.

PNG-Resource in DLL und dieses in der EXE laden ginge aber auch.

[DeddyH]

Soweit ich es verstanden habe, handelt es sich um eine reine Ressourcen-DLL.

[himitsu]

So ganz sicher hatte ich das nicht erkennen können, drum hab ich quasi versucht nochmal nachzufragen, wie das nun eigentlich gemacht wird.

[Luki206]

Ja genau! Es ist einfach nur eine Ressourcen-DLL.
Edit: Nur komisch, dass ja auch bei den Images das funtzt wo ich sie aufs Formular gezogen habe und dann zur Laufzeit ändere..

[himitsu]

Und wie lädst du nun die Bilder?

[Luki206]

So:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var h: Cardinal; res: TResourceStream; Graphic: TGraphic;
begin
h := LoadLibrary('test.dll');
res := TResourcestream.CreateFromID(h, 1, RT_RCDATA);
Graphic := TPngImage.Create;
try
Graphic.LoadFromStream(res);
Image1.Picture.Assign(Graphic);
finally
Graphic.Free;
res.Free;
end;

Ich weiß jetzt nicht ob da Fehler drin sind, habe das nämlich ausm Kopf geschrieben aber so mache ich es immer

[Luki206]

Gibts dazu keine Lösung was falsch ist?