Bilder aus Zip-File laden

[Darlo]

Ich packe die Bilder in eine .res und dann in eine DLL (damit ich mit einem Onlineupdate Bereichsweise die Bilder austauschen kann).

Als erstes eine *.rc Datei mit folgendem Inhalt erstellen:

Code:

bild1 png "bild1.png"
bild2 png "bild2.png"
bild3 png "bild3.png"
bild4 png "bild4.png"

und mit brcc32.exe daraus eine .res erstellen.

Dann eine DLL-Datei erstellen

Code:

library bilder;

{$R bilder.RES}
begin
end.

Im Programm selber lade ich die Bilder so:

Code:

    h := LoadLibrary(PCHAR(ExtractFileDir(Application.ExeName)+'/dll/bilder.dll'));
    for i := 1 to 4 do
      begin
        r := TResourceStream.Create(h, 'bild'+inttostr(i), 'png');
        j := TPNGImage.Create;
          try
            j.LoadFromStream(r);
            TImage(form2.FindComponent('img'+imgStart[i])).Picture.Bitmap.Assign(j);
          finally
            j.Free;
            r.Free;
          end;
      end;

Gruß Darlo