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.