Bilder aus Dll einbinden?

[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

[DeddyH]

putzen ist dann wohl angesagt

[himitsu]

Soo, jetzt auch nochmal ich
r := TResourceStream.Create(h, 'BILD1', RT_RCDATA); .

[pseudoedit]
ohhhhhh, jetzt hab'sch den DeddyH übersehn


Nja, wie gesagt, versuch es mal mit RCDATA.
"JPEG" ist nicht unbedingt eines der Standard-Resource-Formate, wie RCDATA/BMP/ICO/TEXT usw.

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