Einzelnen Beitrag anzeigen

Lotus

Registriert seit: 26. Feb 2007
85 Beiträge
 
Delphi 7 Personal
 
#27

AW: Bilder aus Dll einbinden?

  Alt 1. Sep 2010, 12:57
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;

Geändert von Lotus ( 1. Sep 2010 um 13:00 Uhr)
  Mit Zitat antworten Zitat