[CoCuC04ka]

в общем такое дело:
-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 и все стало на свои места.