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 :

Delphi-Quellcode:

 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?