Png in Image laden

[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?

[DateTimeError]

if not FileExists('test.dll') then GetNewBrain('ausm Kopf geschrieben'); "Selbersuchen" does not compute?

[himitsu]

Dein FileExists sucht nur im aktuellen Arbeitsverzeichnis nach der DLL, was LoadLibrary garantiert nicht macht.

Man könnte zwar sowas machen,

Delphi-Quellcode:

h := LoadLibrary('test.dll');
if h = 0 then RaiseLastOSError;
res := TResourcestream.CreateFromID(h, 1, RT_RCDATA);

welches die Fehlermeldung besser verständlich mach, aber CreateFromID wird schon lautstark meckern, wenn die DLL/Resource fehlt.

[Luki206]

Entschuldigung für meine Schreibweise von Gestern, das hilft mir aber auch nicht weiter da er mir die CPU Ansicht bringt und keinen Fehler im Code, und mit dem Fragment von Himitsu kommt trotzdem der Fehler:

Code:

Im Projekt Project1.exe ist eine Exception der Klasse EPNGHeaderNotPresent mit der Meldung 'Die Datei, die gelesen wird, ist kein gültiges "Portable Network Graphics" Bild, da es keinen gültigen Header enthält.' aufgetreten.