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!