C++DLL in Delphi mit Wertrückgabe ?

[madina]

Hallo,

ich habe in CBuilder5 ein DLL wie folgt programmiert und will dabei mehrere Werte zurückgeben.
Dabei will ich diese Allg.dll-Tausche-Fkt in ein Delphi Prog aufrufen wie geht das (beim Ausführen kommt es immer ein Fehler)?

Code:

##################### C++ #########################
extern "C" unsigned int Tausche(int* a, int* b);

void Tausche(int *a, int* b)
{
 int temp;

 temp=*a;
 *a= *b;
 *b= temp;
}

Delphi-Quellcode:

---------------------Delphi------------------
function Tausche(a, b: Integer) cdecl; external 'Allg.dll' index 1;

Procedure TfrmMain.sbTestClick(Sender: TObject);
begin
 Tausche(a, b);
end;

[mkinzler]

Was für einer?
Es wird ja Zeiger auf Integer erwartet

[SirThornberry]

Das ist aber nicht dein richtiger Code stimmts? Denn wenn ich das richtig sehe würde dieser Delphi-Code gar nicht kompilieren. Wenn dem wirklich so ist und du Hilfe erwartest so poste bitte den tatsächlichen Code.

[mkinzler]

Für diesen Code bräuchte man ja auch keine Dll

[Christian Seehase]

Moin Madina,

bist Du sicher, dass Deine C-Funktion es tut?
Du deklarierst als Parameter Pointer auf Integer (Delhpi: PInteger), und vertauscht dann die Adressen, aber nicht die Werte (falls ich den Code richtig interpretiere, so C-fest bin ich nicht )

Die Einbindung in Delphi müsste aber so aussehen:

Delphi-Quellcode:

//---------------------Delphi------------------
function Tausche(var a, b: Integer) cdecl; external 'Allg.dll' index 1;
// oder
function Tausche(a, b: PInteger) cdecl; external 'Allg.dll' index 1;

Procedure TfrmMain.sbTestClick(Sender: TObject);
begin
 Tausche(a, b);
 // oder
 Tausche(@a,@b);
end;

Wenn Du var-Parameter übergibst, werden Pointer übergeben, oder Du übergibst gleich Pointer.

[madina]

Hallo,

richtig ich habe mich beeilt gehabt, sorry.

1. Jetzt habe ich mein Allg.dll umgeschrieben wie folgt, aber in Delphi kriege ich einen Fehler beim kompilieren: "Bezeichner erwartet, aber '@'gefunden" warum ?

2. wie kann von delphi aus auf diese C++Fkt zugreifen ?
:

Delphi-Quellcode:

##################### C++ #########################
extern "C" unsigned int Tausche(int& a, int& b);

void Tausche(int& a, int& b)
{
 int temp= a;
 a= b;
 b= temp;
} 

---------------------Delphi------------------
function Tausche(@a, @b: Integer) cdecl; external 'Allg.dll' index 1;

Procedure TfrmMain.sbTestClick(Sender: TObject);
var a, b : Integer;
begin
 a:= 5;  b:= 10;

 Tausche(a, b);
end;