Meine erste Butterfahrt - Eine dll mit dem BCB erstellen

[messie]

So, ich bin da mal wieder dran...

Ich habe jetzt einen struct in der dll erstellt und den als Parameter der function _Multi übergeben. Der Aufruf aus dem Builder klappt, beim Aufruf aus Delphi klemmt es.

Delphi-Quellcode:

TParList = record
    Par1 : double;
    Par2 : double;
    TempLow : double;
    TempHi : double;
    PE : bool;
  end;

sollte identisch sein mit

Code:

typedef struct ParList
{
   double Par1;
   double Par2;
   double TempLow;
   double TempHi;
   bool PE;
} TParList;

Und function _Multi(var Values : TParList) : double; external '2008.dll'; mit

Code:

extern "C" __declspec(dllimport) double Multi(TParList *Values);

In der function selbst wird nur ein Eingabewert als Ergebnis durchgereicht.
Der Aufruf im Delphi-Programm liefert aber Müll zurück. Ich habe die TParList in Delphi lokal definiert und übergebe sie dann als var-Parameter, während ich sie in C++ mit new erzeuge. Kann das ein Problem sein? Ich dachte, beim record wird der Speicher automatisch zugewiesen.

Grüße, Messie

[Jaynder]

Ja, der Speicher kommt doch schon von Delphi, also im C-Teil einfach mit dem übergebenen Pointer arbeiten und auf keinen Fall mit New anlegen, dann müsste es gehen.

[Jaynder]

Oder noch besser:

Delphi-Quellcode:

type PParList = ^TParList;
function _Multi(Values : PParList) : double; external '2008.dll';

und Aufruf mit

Delphi-Quellcode:

var P: TParList;
begin
  _Multi (@P)
end;

Wenn du dann noch mit $T+ die Typprüfung für den @-Operator einschaltest, hast dann auch Sicherheit, das nur passende Parameter übergeben werden können.

[messie]

Hmmm, das Ergebnis bleibt gleich - keine sinnvolle Antwort.

New habe ich auch nur in meinem C++ Testprojekt verwendet, nicht in der dll.

Kann man sich denn da mit dem Debugger reinhängen? Alle Projekte sind als debug-Version erstellt.

Grüße, Messie

[Jaynder]

Auch nicht mit der Delphi-Pointer-Variante?

[messie]

Zitat von Jaynder:

Auch nicht mit der Delphi-Pointer-Variante?

Nee, leider nicht. Der Aufruf scheint zu funktionieren, ich bekomme aber einen Zufallswert nahe 0 zurück.

Die Funktion in der dll ist auch nicht besonders anspruchsvoll.

Code:

double Multi(TParList *Values)
{
   double result;
   result = Values->TempLow;
   return result;
}

Und der Aufruf aus C++ liefert den übergebenen Wert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Test : TParList;
  result : double;
begin
  Test.TempLow := -333;
  result := _Multi(Test);
  ShowMessage(FloatToStr(result));
end;

Mit der Pointer-Variante kommt ein identisches Ergebnis

Grüße, Messie

[Jaynder]

dann müsste es an der struktur oder der Reihenfolge der Felder liegen. Vereinfache dein Beispiel erstmal auf einen Record mit nur einem double.

[messie]

Zitat von Jaynder:

dann müsste es an der struktur oder der Reihenfolge der Felder liegen. Vereinfache dein Beispiel erstmal auf einen Record mit nur einem double.

Auch das funzt nicht. Direkt als double-Parameter ohne den record geht, mit der record-Struktur nicht.

[Jaynder]

dann versuch mal cdecl, hatte ich bisher leider übersehen:

function _Multi(Values : PParList) : double; cdecl; external '2008.dll';

[messie]

Jo, nu' geht es. Danke!

Auf was alles hat denn das cdecl einen Einfluss? Also auf double-Parameter ja nicht. Aber dann kommt alles mit Feldern in Verdacht: records, arrays, Objekte?

Ich hab' mal einen AnsiString probiert, da kommt ein Haufen Linkermeldungen. Da wird dann wohl eher PChar in Frage kommen.

Grüße, Messie