String-Übergabe von Delphi-DLL an C#

[DeddyH]

Ungetestet:

Delphi-Quellcode:

const 
  ERROR_NO_ERROR         = 0;
  ERROR_BUFFER_TOO_SMALL = 1;

function delphi_getString(Buffer: PAnsiChar; var BufSize: DWORD): DWORD; cdecl;
var
  Test: AnsiString;
begin
  Test := 'Hallo Welt';
  if BufSize < Length(Test) then   
    Result := ERROR_BUFFER_TOO_SMALL;
  else
    begin
      StrPCopy(Buffer, Test);
      Result := ERROR_NO_ERROR;
    end;
  BufSize := Length(Test);
end;