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...

zusammenfalten · markieren

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;

markieren

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;

zusammenfalten · markieren

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?

markieren

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?

LoadLibrary DLL Laden

LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

AW: LoadLibrary DLL Laden

Forumregeln

Union Registriert seit: 18. Mär 2004 Ort: Luxembourg 3.487 Beiträge Delphi 7 Enterprise	#2 AW: LoadLibrary DLL Laden 10. Mai 2013, 09:35 Erstens musst Du den vollen Dateinamen angeben und nicht nur das Verzeichnis. Und der Parameter ist PChar. Ibi fas ubi proxima merces sudo /Developer/Library/uninstall-devtools --mode=all Geändert von Union (10. Mai 2013 um 09:42 Uhr)
	Zitat

Morphie Registriert seit: 27. Apr 2008 Ort: Rahden 630 Beiträge	#3 AW: LoadLibrary DLL Laden 10. Mai 2013, 09:38 LoadLibrary erwartet keinen String, sondern ein PWideChar. Steht doch so in der Fehlermeldung
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#4 AW: LoadLibrary DLL Laden 10. Mai 2013, 09:49 Mit vollen Dateinamen meinst Du : sDLLPath := ExtractFileDir ('C:\OESoft\matrix32.dll')+ 'matrix32.dll'; PWideChar müssste wie aussehen?
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#6 AW: LoadLibrary DLL Laden 10. Mai 2013, 09:59 Hallo Morphie, erstmal vielen Dank für Deine schnelle Hilfe! Habe jetzt nur noch ein Problem, bekomme keine Meldung zurück? markieren Delphi-Quellcode: ShowMessage('DLL konnte nicht geladen werden.') else ShowMessage('Alles ist Tutti!');
	Zitat

Morphie Registriert seit: 27. Apr 2008 Ort: Rahden 630 Beiträge	#7 AW: LoadLibrary DLL Laden 10. Mai 2013, 10:01 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.
	Zitat

Der schöne Günther Registriert seit: 6. Mär 2013 6.110 Beiträge Delphi 10 Seattle Enterprise	#8 AW: LoadLibrary DLL Laden 10. Mai 2013, 10:03 Ich wieß nicht, wie du deine Prozedur aufrufst, aber funktioniert ein bedingungsloses ShowMessage() am Anfang überhaupt?
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#9 AW: LoadLibrary DLL Laden 10. Mai 2013, 10:06 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? Geändert von Alterauge (10. Mai 2013 um 10:09 Uhr)
	Zitat

Morphie Registriert seit: 27. Apr 2008 Ort: Rahden 630 Beiträge	#10 AW: LoadLibrary DLL Laden 10. Mai 2013, 10:08 Du musst doch irgendwie die Prozedur "ImportDLL" aufrufen... z.B. wenn du auf einen Button klickst oder so?
	Zitat