So, das sieht jetzt alles schon ein bisschen besser aus!
Habe jetzt die .rc mit brcc32 in eine *.res umgewandelt!
Diese Datei ist jetzt ca so groß wie die Bilder zusammen.. dürfte also stimmen.. dann habe ich das ganze erneut mit Delphi in eine
dll umgewandelt.. diese ist sogar noch ein bisschen größer.. (149Kb)
Mit dem Resourcenhacker habe ich in die
DLL geschaut und nun gibts da auch nen Ordner JPEG mit BILD1, BILD2 und BILD3, allerdings sehe ich keine Bilder, sondern lediglich Hexadezimalcode (sollte auch richtig sein denke ich
)
Aber trotz allem findet er noch immer keine Ressource Bild1
So Leute, das wars!!!
Hab die Zeile zu:
r := TResourceStream.Create(h, 'BILD1', 'JPEG');
geändert und das Bild wird eingefügt!
Für alle die in Zukunft nochmal auf dieses Thema stoßen, hier der komplette Quelltext:
Delphi-Quellcode:
procedure images();
var
h :HINST;
r :TResourceStream;
j :TJpegImage;
begin
h := LoadLibrary('F:\Programme\Borland\Delphi7\Projects\Poker\bilder.dll');
if h <> 0 then begin
r := TResourceStream.Create(h, 'BILD1', 'JPEG');
j := TJpegImage.Create;
try
j.LoadFromStream(r);
Form1.Image1.Picture.Assign(j);
finally
j.Free;
r.Free;
end;
FreeLibrary(h);
end
else
RaiseLastOSError();
end;