Bilder in Dateien einpacken und zur Laufzeit listen/anzeigen

[Blackheart]

Hallo hab mal dein Prog kurz getestet und folgende Fehler sind Mir aufgefallen.
In der Dll befanden sich keine Bilder, arbeite mal beim erstellen vorsichtshalber mit kompletten Pfaden.
Beim aufruf der Dll hast Du Bilder.dll aufgerufen obwohl deine Dll - dll.dll hieß oder bessergesagt heißt.
Die Bilder hast Du versucht mit Ihrem Namen aufzurufen also 1.jpg usw., Du musst Sie aber mit dem Variablennamen
aufrufen die Du vergeben hast also Bild1, Bild2 usw.
Hoffe das Hilft Dir habs Im Grunde so gelassen bis auf die Zwei Sachen und den Zähler.

Delphi-Quellcode:

var
  Form1: TForm1;
  i :integer; 
implementation

{$R *.dfm}

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  h :HINST;
  r :TResourceStream;
  j :TJpegImage;
begin
try
  inc(i); //Zähler nur zur Veranschaulichung
  h := LoadLibrary('dll.dll'); // Falscher Aufruf Bilder.dll 
  if h <> 0 then 
  begin
    r := TResourceStream.Create(h, 'Bild'+IntTostr(i), 'Jpeg'); //Falscher Bildname '1' anstatt Bild1
    j := TJpegImage.Create; 
      try 
        j.LoadFromStream(r);
        Image1.Picture.Bitmap.Assign(j);
      finally
        j.Free;
        r.Free; 
      end; 
  end;
  FreeLibrary(h)
  except
  Showmessage('Mehr Bilder Befinden sich nicht in der Dll !');
  i:=0;
end;
end;

end.