Hilfe bei dll und PAnsiChar

[b3h1ndy0u]

Hallo,

ich weiß nicht, ob ich etwas total falsch mache oder ob es nur ne Kleinigkeit ist. Vielleicht kann man mich ja in die richtige Richtung schubsen

hier der relevante (vereinfachte) teil einer dll (nicht veränderbar)

Code:

procedure Extension(output: PAnsiChar; outputSize: integer; input: PAnsiChar);  stdcall; export;
begin
  StrPLCopy(output, input, outputSize);
end;

exports
  Extension Name '_Extension@12';

und hier mein versuch die procedure in einer TestApp zu nutzen

Code:

procedure Extension(output: PAnsiChar; outputSize: Integer; input: PAnsiChar); stdcall; external 'extension.dll' name '_Extension@12';

procedure TForm1.buttonClick(Sender: TObject);
var
  output: PAnsiChar;
  input: PAnsiChar;
begin
  input:=PAnsiChar(AnsiString(editInput.Text));
  output:=PAnsiChar(AnsiString(''));

  Extension(output,4096,input);
  editOutput.Text:=output;
end;

Solange der input die länge von 83 nicht überschreitet, funktioniert alles wie es soll ...
der input aus dem Inputfeld wird einfach von der dll-procedure verarbeitet und im 2. Textfeld ausgegeben.
Sind es mehr Zeichen, stürzt die Anwendung ab (Exception External: SIGSEV).

Ich nutze Lazarus 1.0.8 (mit beiden 32/64bit getestet).

Ich habe leider keine Ahnung wo ich ansetzen soll. Wäre toll wenn mich jemand "schubsen" könnte.

thx ia