Ansprechen einer C++ DLL von Delphi

[calibra301]

Danke,

so funktionierts:

Delphi-Quellcode:

// Deklaration des Aufrufes der C++ DLL mit const char* FileName
function loadfile(Target:integer ;FileName:AnsiString):Boolean;cdecl;external 'Digilabs.dll';

// Aufruf der Funktion:
Procedure File_Laden(Name:String);
Begin
 loadfile(1,AnsiString(Name));
 Beep;
end;

Danke !
Calli

[uligerhardt]

Zitat von calibra301:

hab eine C++ DLL mit folgendem Funktionsaufruf aus dem Header-File:

extern "C" DLLFunction void loadfile(int Target,const char* FileName);

Zitat von calibra301:

so funktionierts:

Delphi-Quellcode:

// Deklaration des Aufrufes der C++ DLL mit const char* FileName
function loadfile(Target:integer ;FileName:AnsiString):Boolean;cdecl;external 'Digilabs.dll';

// Aufruf der Funktion:
Procedure File_Laden(Name:String);
Begin
 loadfile(1,AnsiString(Name));
 Beep;
end;

Wenn das funktioniert, dann nur mit viel Glück:

• Du hast immer noch eine function, obwohl es eine procedure sein müsste.
• FileName muss laut deiner C++-Deklaration ein PAnsiChar sein, definitiv kein Delphi-String.

[EWeiss]

Delphi-Quellcode:

procedure loadfile(Target: integer; FileName: PAnsiChar);cdecl; external 'Digilabs.dll';

// Aufruf der Funktion:
procedure File_Laden(FileName: PAnsiChar);
begin
  loadfile(1, FileName);
  Beep;
end;

Na dann..

gruss

[himitsu]

"Richtig"

Delphi-Quellcode:

// Deklaration des Aufrufes der C++ DLL mit const char* FileName
procedure loadfile(Target: Integer; FileName: PAnsiChar); cdecl; external 'Digilabs.dll';

// Aufruf der Funktion:
Procedure File_Laden(Name: AnsiString);
Begin
 loadfile(1, PAnsiChar(Name));
 Beep;
end;

Das geht nur, weil AnsiString intern "auch" wie ein PAnsiChar aussieht. (nutze ich auch gern mal bei Header-Übersetzung, um die AutoCasts nutzen zu können)
Und es geht auch nur bei IN-Parametern, die keine Mindestlänge verlangen und nil/NULL sein dürfen.
Ebenso UnicodeString und WideString nach PWideChar und String nach PChar.
Diese Typen habem zwar eine Längenangabe, aber für die Kompatibilität auch zusätzlich noch ein abschließendes #0.

Delphi-Quellcode:

// Deklaration des Aufrufes der C++ DLL mit const char* FileName
procedure loadfile(Target: Integer; FileName: AnsiString); cdecl; external 'Digilabs.dll';

// Aufruf der Funktion:
Procedure File_Laden(Name: String);
Begin
 loadfile(1, Name);  // mit Auto-Konvertierung
 loadfile(1, AnsiString(Name));  // mit explizitem Cast (das unterdrückt auch die Warnung ab Delphi 2009, wegen des Unicodes)
 Beep;
end;

[uligerhardt]

Zitat von himitsu:

Delphi-Quellcode:

// Deklaration des Aufrufes der C++ DLL mit const char* FileName
function loadfile(Target: Integer; FileName: AnsiString): Boolean; cdecl; external 'Digilabs.dll';

Procedure, procedure, procedure!

[EWeiss]

wie schon gesagt void ist keine Funktion.
Nebenbei "Richtig" kann auch "Falsch" sein.. LOL

gruss

[DeddyH]

function loadfile(Target: Integer; FileName: AnsiString): void; cdecl; external 'Digilabs.dll';

[himitsu]

Der Witz ist, dass diese "Funktion" erstmal keinen Fehler verursacht, außer dass das Result einen Zufallswert enthält.