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

Delphi-Quellcode:

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:

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:

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

[Jaynder]

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

Delphi-Quellcode:

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