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;

[mkinzler]

Nimm als Typ PInteger

[SirThornberry]

@Christian Seehase: Die C-Funktion hat schon das richtige gemacht (und nicht nur die Pointerwerte vertauscht). Denn innerhalb der C-Funktion wurden die Pointer ja dereferenziert (durch den vorangestellten Stern).

@madina: Deine neue C-Funktion ist übrigens noch genau die gleiche wie im ersten Post.
Denn:

Code:

void Tausche(int& a, int& b)

und

Code:

void Tausche(int *a, int* b)

sind identisch. In beiden Fällen wird intern mit einem Pointer auf die Variablen gearbeitet. Der einzige Unterschied ist das du im Quelltext bei der einen Variante (der Variante mit &) nicht mehr dereferenzieren musst.

Die Delphi Äquivalente zu den beiden Funktionen sehen dann übrigens so aus:
procedure Tausche(var a,b: Integer); und

Delphi-Quellcode:

type
  PInteger = ^Integer;
[...]
procedure Tausche(a,b: PInteger);

[mkinzler]

Ich bin mir aber nicht sicher, ob der var-Parameter von der 2-Funktion dann richtig interpretiert wird

[himitsu]

Tausche(var a, b: Integer) und Tausche(a, b: PInteger) sind delphieigene unterschiedlische Interpretierungen der selben Schnittstelle.

Theoretisch wäre Tausche(const a, b: Integer) auch genauso eine andere Interpretierung, aber Delphi kürzt hier bei Parametern unter 8 Byte den Pointer weg und übergibt nur den Wert, so als stünde kein Const davor.
(Codeoptimierungen halt)