Connected.
Asterisk Call Manager/1.0
id telnet ile bağlandım action komutlarını gönderiyorum ama response nasıl alıcaz daha önce hiç yapmadım. şimdiden teşşekürler
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject);
var
gonder:TStringList;
i,j:integer;
begin
gonder:=TStringList.Create;
gonder.Add('Action: Login');
gonder.Add('Username: panel');
gonder.Add('Secret: passmypanel');
gonder.Add('Event: call');
for j := 0 to gonder.Count - 1 do
begin
for i := 1 to length(gonder.Strings[j]) do
begin
IdTelnet1.SendCh(gonder.Strings[j][i]);
end;
IdTelnet1.SendCh(#13);
IdTelnet1.SendCh(#10);
end;
FreeAndNil(gonder);
end;