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