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

[DeddyH]

Du musst auch im Vorfeld genügend Speicher für Output reservieren und OutputSize entsprechend der Länge setzen. Für z.B. die ersten 50 Zeichen müsste das dann lauten:

Delphi-Quellcode:

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

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

Oder alternativ:

Delphi-Quellcode:

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

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

Falls ich keinen Denkfehler mache, sollte das so funktionieren.

[b3h1ndy0u]

OMG!
Ich danke Dir.
Ich habe das 1000 mal versucht, aber immer danach noch ein

Code:

output:=PAnsiChar('');

vielleicht sollte man manchmal einfach vom PC weggehen um den Kopf frei zu bekommen.

nochmal 1000 Dank!