Zitat von
Blackheart:
...
Delphi-Quellcode:
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, '
Bild1'+IntTostr(i), '
Jpeg');
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.
Delphi-Quellcode:
r := TResourceStream.Create(h, 'Bild1'+IntTostr(i), 'Jpeg'); // Problem mit +IntTostr(i)
// so funktioniert:
//r := TResourceStream.Create(h, 'Bild11', 'JPEG'); // aber (i) hat keine Rolle !
Das Beispiel "dll_test_neuerrer.zip" von @Turbopascal funktioniert super
Die Frage nun, kann man den Code anpassen, so man Video statt Bilder verwendet?
<>