Ich schreibe eine
DLL die von LabView genutzt werden soll.
Der Aufruf einer Funktion mit 2 Zahlen als Parameter und einem numerischen Rückgabewert klappt,
ist auch cdecl deklariert.
Nur Strings sind ein Problem. Daher habe ich mal zum Testen die folgende einfache Routine
geschrieben, welche von LabView aufgerufen werden soll, aber das crasht immer.
Momentan hier: "
Exception beim Stringrückliefern", wenn ich vor den CalcRes Übergabeparameter
ein var setze, crasht es gleich hier: "
Exception in Berechnung".
Woran könnte es liegen? Eigentlich sollte der Aufrufer einen Null-Terminierten String übergeben
und die Anzahl der Zeichen inkl. #0 die er allokiert hatte in CalcRes. Die Funktion liefert dann
wenn genügend Zeichen allokiert wurden das Rechenergebnis als String zurück (hier halt zum Testen),
ansonsten wird zurückgeliefert, wieviele Bytes benötigt werden. Dann kann der AUfrufer das nochmal
mit einem richtig dimensionierten String aufrufen.
Hier der Code:
Delphi-Quellcode:
uses
System.SysUtils,
System.AnsiStrings;
function Add(Number1, Number2: UInt8; CalcRes: PAnsiChar;
var CalcResSize: UInt8): UInt16;
cdecl;
var
Res : UInt16;
ResStr : AnsiString;
begin
try
Res := Number1 + Number2;
ResStr := AnsiString(Res.ToString);
except
On E:
Exception do
begin
OutputDebugString(PWideChar('
Exception in Berechnung: ' + E.
Message));
Result := 2;
Exit;
end;
end;
try
if Assigned(CalcRes)
and ((Length(ResStr)
{* SizeOf(Char)} + 1) <= CalcResSize)
then
begin
System.AnsiStrings.StrPLCopy(CalcRes, ResStr, CalcResSize);
Result := 0;
end
else
Result := 1;
except
On E:
Exception do
begin
OutputDebugString(PWideChar('
Exception beim Stringrückliefern: ' + E.
Message + '
/ ' +
madExcept.GetCrashStackTrace));
Result := 2;
Exit;
end;
end;
try
CalcResSize := (Length(ResStr)
{* SizeOf(Char)} + 1);
except
On E:
Exception do
begin
OutputDebugString(PWideChar('
Exception in CalcResSize Berechnung: ' + E.
Message + '
/ ' +
madExcept.GetCrashStackTrace));
Result := 2;
Exit;
end;
end;
end;
Grüße
TurboMagic