Bilder aus Dll einbinden?

[Lotus]

Hallo, ich habe in der Codelibrary folgendes gefunden:
http://www.delphipraxis.net/3837-bil...-aufrufen.html

Doch das ganze funktioniert von hinten bis vorne bei mir nicht.

In dieser Zeile
r := TResourceStream.Create(h, 'BILD1', 'Jpeg'); kommt immer ein EResNotFound Fehler und ich weiß nicht wieso?
Könnt ihr mir helfen?
Könnte meine .dll vllt fehlerhaft sein? Wie kann ich das prüfen?

[himitsu]

Ist h ein Handle zu deiner DLL?

Wie liegt das Bild in der DLL? (hoffentlich als Resource und die Resource ist auch erstellt und eingebunden)


Du kannst ja einfach mal mit einem RecourcenEditor in die DLL reinschauen, ob's auch da drin ist.


Eventuell auch statt "JPEG" es mal mit "RCDATA" versuchen.

[DeddyH]

Bitte Crossposts künftig verlinken.

[Bernhard Geyer]

Vermutlich geht es so:

r := TResourceStream.Create(h, 'RCDATA', 'BILD1');

[DeddyH]

Laut Hilfe andersrum:

Zitat:

constructor Create(Instance: THandle; const ResName: string; ResType: PChar);

[Bernhard Geyer]

Zitat von DeddyH:

Laut Hilfe andersrum:

Da hat mich wohl meine Glaskugel getäuscht

[Lotus]

Zitat von himitsu:

Ist h ein Handle zu deiner DLL?

Wie liegt das Bild in der DLL? (hoffentlich als Resource und die Resource ist auch erstellt und eingebunden)


Du kannst ja einfach mal mit einem RecourcenEditor in die DLL reinschauen, ob's auch da drin ist.


Eventuell auch statt "JPEG" es mal mit "RCDATA" versuchen.

h ist folgendes: var h :HINST;
Ich denke mal das es ein Handle ist, weiß es aber nicht genau.

Die Dll sieht so aus:

Delphi-Quellcode:

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

begin
end.

und die Bilder.rc wie in dem Crosspost!

Leider kommt der selbe Fehler auch bei RCDATA :-/

Hab mal nen Screen vom Projektinspektor gemacht:
http://img818.imageshack.us/img818/3043/dll.jpg

Uploaded with ImageShack.us

[himitsu]

Zitat von Lotus:

h ist folgendes: var h :HINST;

Ich fragte nicht nach der Deklaration (diese hattest du sowieso schon gepostet),
sondern nach dem Wert, welcher in dieser Variable steckt.
(dieser wird meistens über LoadLibrary oder GetModuleHandle besorgt)

Es wäre nicht schlecht, wenn du mal die ganze Prozedur zeigen würdest, wo du das Bild auslesen willst (bzw. zumindestestens alle wichtigen Teile).

[Lotus]

Also das steht in meinem Projekt, wo ich die Bilder benutzen möchte:

Delphi-Quellcode:

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

[Luckie]

Zwei Punkte:
1. Gib mal einen absoluten Pfad zur DLL an.
2. Bau mal einen try-except-Block um LoadFromStream, damit du eine aussagekräftige Fehlermeldung bekommst.

Hast du mal in die DLL reingeguckt, ob die Ressourcen wirklich drin sind?