Problem beim Umgang mit DLL's

[Hannes91]

Moin,

ich bin gerade dabei, eine Tetris-Version zu programmieren. Um das Spiel realistischer aussehen zu lassen, möchte ich dabei z.T. PNG-Grafiken verwenden (insbesondere als transparenten Hintergrund). Angesichts der Dateigröße beim Laden zur Design-Zeit habe ich versucht, die Grafiken in eine DLL auszulagern. Die BMP-Grafiken bekomme ich auch wieder dynamisch ins Programm zurück (also in TImage), jedoch die PNG-Grafiken nicht.

Kann mir jemand helfen, wie ich die PNG's nun in ein TImage lesen kann?

Vielen Dank schon mal für eure Mühe.

[Bernhard Geyer]

Ein bischen Quellcode wäre schon schön bzw. Hinweis darauf was du bisher machst wäre schon gut.
Ansonsten können wir wieder eine mundere Raterunde beginnen.

Stichwort für eine Alternative wären Ressourcen-DLL's.

[Hannes91]

Zunächst habe ich eine .rc-Datei mit folgendem Inhalt erstellt:

Code:

Bild1 PNG "Background.png"
Bild2 BMP "Grid.bmp"

Mit dieser und brcc32.exe habe ich dann eine .res-Datei erstellt.

Folgenden Code habe ich zur DLL-Erzeugung benutzt:

Delphi-Quellcode:

library Ressource;

uses
  SysUtils,
  Classes;

{$R 'Ressource.res' 'Ressource.rc'}

begin
end.

Nun habe ich es im Hauptprogramm geschafft (mit Hilfe ), das zweite Bild (also die BMP-Grafik) dynamisch einzubinden:

Delphi-Quellcode:

var
   dllHandle: THandle;
   thisBitmap: TBitmap;
begin
     dllHandle := LoadLibrary('Ressource.dll' );

     if dllHandle <> 0
     then
         try
            thisBitmap := TBitmap.Create;

            try
               thisBitmap.Handle := LoadBitmap(dllHandle, 'Bild2' );

               if thisBitmap.Handle <> 0
               then IGrid.Picture.Bitmap.Assign(thisBitmap);
            finally
                   thisBitmap.Free;
            end;
         finally
                FreeLibrary( dllHandle );
         end;
end;

Jetzt suche ich halt einen Weg, auch die verbleibende PNG-Datei (dynamisch) einzubinden.
Ich hoffe, ich konnte zum Verständnis des Problems etwas beitragen.

[himitsu]

Warum machst du es mit den PNGs nicht genauso oder warum geht es bei dir nicht?
Natürlich mit TPngImage oder wie das heißt.

[Hannes91]

Delphi-Quellcode:

var
   dllHandle: THandle;
   thisBitmap: TBitmap;
   thisPNG : TPNGImage;
begin
     dllHandle := LoadLibrary('Ressource.dll' );

     if dllHandle <> 0
     then
         try
            thisBitmap := TBitmap.Create;
            thisPNG := TPNGImage.Create;

            try
               thisBitmap.Handle := LoadBitmap(dllHandle, 'Bild2' );
               thisPNG.Handle := //Er meckert mich an, dass TPNGImage kein Element namens Handle enthält

               if thisBitmap.Handle <> 0
               then IGrid.Picture.Bitmap.Assign(thisBitmap);
               if thisPNG.Handle <> 0
               then IHintergrund.Picture.Bitmap.Assign(thisPNG);
            finally
                   thisBitmap.Free;
            end;
         finally
                FreeLibrary( dllHandle );
         end;
end;

Und wieso enthält TPNGImage kein Handle??? Immerhin kennt er TPNGImage überhaupt!
Kann ich dann trotzdem LoadBitmap(dllHandle, 'Bild1') verwenden, wenn es sich um ein PNG handelt?

[Bernhard Geyer]

Die PNG's müssen als RCData gespeichert werden. Siehe z.B. hier

[Hannes91]

Danke Bernhard, genau, was ich gesucht habe.

Tausend Dank euch allen, es funktioniert nun einwandfrei.

[Luckie]

Du kannst übrigens alles Units aus der uses-Klausel der DLL rausnehmen, du hast ja keinen Code, der diese benötigt.

[himitsu]

Zitat von Luckie:

Du kannst übrigens alles Units aus der uses-Klausel der DLL rausnehmen, du hast ja keinen Code, der diese benötigt.

Man kann solche DLLs auch direkt als Resource-DLL laden.
LoadLibraryEx + LOAD_LIBRARY_AS_DATAFILE
Dann wird auch nich Initialisierungscode der DLL ausgeführt.