Bilder in DLL einbinden und aufrufen

[Adler]

Hallo zusammen,

ich habe das Beispiel aus Library: Grafik / Sound / Multimedia - Bilder in DLL einbinden und aufrufen ausprobiert

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;

und unter WinXP funktioniert auch alles reibungslos. Versuche ich aber jetzt das ganze unter Windows98 so funktioniert es nicht mehr, da mir die Funktion LoadLibrary kein Handle auf meine DLL liefert. Ein Handle von einer EXE hingegen wird geliefert. Woran könnte das liegen?

MfG
Adler

[jbg]

Zitat:

Zitat von Adler

LoadLibrary('Bilder.dll');

Liegt die Bilder.dll im Systemverzeichnis oder im Windowsverzeichnis?

Wenn sie nämlich im selben Verzeichnis wie die EXE liegt, dann solltest du folgendes benutzen:

Delphi-Quellcode:

h := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'Bilder.dll'));

[Christian Seehase]

Moin Adler,

für den Fall, dass kein Handle zurückgeliefert wird, könntest Du mal

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError));

aufrufen, um Dir den Grund für den Fehler anzusehen.

[Adler]

Hallo jbg,

die DLL liegt zwar im gleichen Verzeichnis wie die EXE ich habe aber den kompletten Pfad der DLL übergeben und als Ergebnis hat h immer den Wert Null.

[Adler]

Hallo Christian,

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError));

liefert mir das angeblich zu wenig Speicher vorhanden ist. Ich muss dazu sagen das ich Win98 auf einem anderen Rechner laufen habe als WinXP. Vor dem Programmstart sind aber noch gut 32 MB Arbeitsspeicher frei so das es eigentlich kein Problem sein sollte eine DLL von 2,5 MB aufzurufen.

MfG
Adler

[Adler]

Hallo zusammen,

es lag scheinbar wirklich nur an der Größe der DLL. Ich habe sie jetzt auf mehrere DLLs verteilt und jetzt funktioniert es. Wäre mir zwar lieber gewesen alles in eine DLL zu bekommen aber was soll man machen :evil:

Vielen Dank an jbg und Christian

[Luckie]

Wie groß war denn die eine DLL?

[Adler]

2,5 MB