LoadLibrary DLL Laden

[Alterauge]

Hallo,
möchte gerne eine DLL laden und eine Rückmeldung
bekommen!

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
  sDLLPath: string;
begin
  sDLLPath := ExtractFileDir ('C:\OESoft\matrix32.dll');
  hDLL := LoadLibrary(sDLLPath); // hier ist der Fehler ! [DCC Fehler] Unit1.pas(192): E2010 Inkompatible Typen: 'string' und 'PWideChar'
  if hDLL = 0 then begin
    ShowMessage('DLL konnte nicht geladen werden.');
  end else begin

 end;
end;

Was soll am String falsch sein ?

[Union]

Erstens musst Du den vollen Dateinamen angeben und nicht nur das Verzeichnis. Und der Parameter ist PChar.

[Morphie]

LoadLibrary erwartet keinen String, sondern ein PWideChar. Steht doch so in der Fehlermeldung

[Alterauge]

Mit vollen Dateinamen meinst Du :

 sDLLPath := ExtractFileDir ('C:\OESoft\matrix32.dll')+ 'matrix32.dll';

PWideChar müssste wie aussehen?

[Morphie]

Such dir was aus...

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
  sDLLPath: string;
begin
  sDLLPath := 'C:\OESoft\matrix32.dll';
  hDLL := LoadLibrary(PWideChar(sDLLPath));
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
begin
  hDLL := LoadLibrary('C:\OESoft\matrix32.dll');
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

Delphi-Quellcode:

procedure ImportDLL;
var
  hDLL: THandle;
  sDLLPath: PWideChar;
begin
  sDLLPath := 'C:\OESoft\matrix32.dll';
  hDLL := LoadLibrary(sDLLPath);
  if hDLL = 0 then
    ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');
end;

[Alterauge]

Hallo Morphie,
erstmal vielen Dank für Deine schnelle Hilfe!

Habe jetzt nur noch ein Problem, bekomme keine Meldung zurück?

Delphi-Quellcode:

 ShowMessage('DLL konnte nicht geladen werden.')
  else
    ShowMessage('Alles ist Tutti!');

[Morphie]

Wie du bekommst keine Meldung zurück? Wo rufst du die Prozedur denn auf?
Zeig am besten mal die komplette Unit, in der du die DLL aufrufen willst.

[Der schöne Günther]

Ich wieß nicht, wie du deine Prozedur aufrufst, aber funktioniert ein bedingungsloses ShowMessage() am Anfang überhaupt?

[Alterauge]

Hallo Morphie,
ist das erstemal, dass ich eine DLL einbinden möchte!

Das war alles an Quelltext bezüglich DLL, habe bestimmt was vergessen oder?

Hallo Günther,
ob eine ShowMessage am Anfang überhaupt funktioniert, weiß ich auch nicht?

[Morphie]

Du musst doch irgendwie die Prozedur "ImportDLL" aufrufen...
z.B. wenn du auf einen Button klickst oder so?