I to receive and work with a string -Delphi.
//Delphi
function text(p: ShortString): integer; stdcall;
var
buf: string;
i: Integer;
begin
buf := '';
for i := 0 to Length(p) do
begin
if Chr(Ord(p[i])) in [' '..'~'] then
begin
buf := buf + Chr(Ord(p[i]));
end else
begin
Break;
end;
end;
buf:=Trim(buf);
ShowMessage(buf);
end;
function ReceiveAGKPtr(): Integer; stdcall;
begin
end;
exports
ReceiveAGKPtr,
text;
The most interesting thing is that if you change the type of result from numeric to another, it does not work
//Commands.txt
text,0,S,text,0,0,0,0
//AGK
#import_plugin myplugin
myplugin.text('Sum: '+str(1+2))
I hope this will somehow help you.
And at the moment I'm just like you can not get a line in AGK.
https://www.instagram.com/qugurun/