Bilder dll

[MT1987]

Lol, nur schön wenn der Code, der da steht auch funktionieren würde! Hehe! Bei der dll erstellung sagt der bilder.res fehlt!

Zitat:

library Bilder;

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

begin
end.

Und der Delphi code und ist auch falsch!

Delphi-Quellcode:

var
  h :HINST;
  r :TResourceStream;
  j :TJpegImage;
  i :integer;
begin
  h := LoadLibrary('Bilder.dll');
  if h <> 0 then
  begin
    r := TResourceStream.Create(h, Bild1, 'Jpeg');
    j := TJpegImage.Create;
      try
        j.LoadFromStream(r);
        Image1.Picture.Bitmap.Assign(j);
      finally
        j.Free;
        r.Free;
      end;
  end;
  FreeLibrary(h);
end;
  else
    RaiseLastOSError();
end;

Und zwar stimmt da was mit den ends nicht!

Delphi-Quellcode:

end;
  else

Ein simikolon vor einem else ist ja wohl auch falsch!

Könnte das jemand überarbeiten?? Denn ich bin Anfänger bei den Dll's und weiß also nicht genau wie es richtig sein soll! Von daher wäre hilfe nett....