в общем такое дело:
-smartbot
-delphi xe
Код:
function GetReplyTo(const InText: PansiChar; OutText: PansiChar; Len: integer): PansiChar;stdcall;external 'smartbot.dll' name 'GetReplyTo';
Код:
procedure TForm8.Button2Click(Sender: TObject);
var
res : string;
otvet: PansiChar;
vopros: pchar;
Len : integer;
begin
otvet:=AllocMem(2048);
Len := 2048;
vopros:= pchar(edit1.Text);
Res := GetReplyTo(pansichar('Почему'), otvet, Len);
ListBox1.Items.Add('Ты: '+vopros);
ListBox1.Items.Add('Бот: '+otvet);
end;
Res := GetReplyTo(pansichar('Почему'), otvet, Len); - работает. бот отвечает
Res := GetReplyTo('Почему', otvet, Len); - работает. бот отвечает
var vopros: pchar;
vopros:= pchar(edit1.Text);
Res := GetReplyTo(pansichar(vopros), otvet, Len); - не работает, боту передается набор символов и бот негодуе и отвечает как будто не понял что от него хотят опять.
var vopros: string;
vopros:= edit1.Text;
Res := GetReplyTo(pansichar(vopros), otvet, Len); - не работает, боту передается набор символов и бот негодуе и отвечает как будто не понял что от него хотят опять.
как передать GetReplyTo(
Сюда , otvet, Len) переменную, чтобы она отправилась боту в нормальном виде как передается в первых двух случаях.
Использовал ansistring вместо pansichar и все стало на свои места.