Bilder dll

[MT1987]

Hallo,
ich würde gerne wissen, wie man eine Dll erstellt für / mit Bilder! Und zwar hab ich ca 30 jpg / bmp dateien die ich einbinden möchte!

Das Dll Tutorial unter http://www.dsdt.info/tutorials/dlls/?page=2 hab ich mir schonmal angeschaut, aber da stand nichts zu bildern! Und im Forum hier hab ich auch nichts gesehen! Ich hoffe ich habe nichts übersehen!


Vielen Dank für eure hilfe

[MT1987]

http://www.delphipraxis.net/internal...ect.php?t=4232

Ich habs gefunden! Sry wegen dem unnötigen thread!!

[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....

[SirThornberry]

hast du denn eine "Bilder.rc" erstellt? ansonsten ist klar das die Bilder.res nicht erzeugt werden kann weil die bilder.rc nicht gefunden wird.

[MT1987]

hab ich!

Edit: Aber das ändert imho immer noch nichts daran, dass der Code oben falsch ist! Kann mir denn keiner weiterhelfen? :?:

[MT1987]

Zitat:

Zitat von MT1987

Kann mir denn keiner weiterhelfen? :?:

Sieht ja offensichtlich nicht so aus! Schade...

[Matze]

:shock: Was ist da denn in der Code-Lib gelandet.

Versuce es mal so in der Art:

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 else
    RaiseLastOSError();

  FreeLibrary(h);
end;

[MT1987]

Bild1 ist ein unbekanntes Objekt oder so kommt da als fehlermeldung! kann dass mit dem problem bei der dll Erstellung zusammenhängen (s. weiter oben)?