DLL soll von LabView genutzt werden

[TurboMagic]

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