PChar schneidet letztes Zeichen ab

[Luckie]

Fertig.

Den Artikel gibt es hier: Rückgabe von Strings aus DLLs

Ich habe die Funktion in der DLL noch etwas vereinfacht. Die komische if-Abfrage ist natürlich überflüssig:

Delphi-Quellcode:

function func1(s: PChar; Buffer: PChar; lenBuffer: Integer): Integer; stdcall;
var
  foo: String;
begin
  // Strings aneinanderhängen
  foo := 'foo'+ s;
  // nur String in Buffer kopieren, wenn Buffer nicht nil ist
  if Assigned(Buffer) then
    StrLCopy(Buffer, PChar(foo), lenBuffer);
  // auf alle Fälle immer Länge des Strings zurückgeben
  result := length(foo);
end;

So, ich hoffe, damit kommst du nun klar.