Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672942 Mon, 06 Jun 2016 13:17:22 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672942
     
    ....    
      Mysocket := TClientSocket.Create(nil);
      Mysocket.Address := '192.168.0.101';
      Mysocket.Port := 23;
      Mysocket.OnRead := ClientSocket1Read;
      Mysocket.OnError := ClientSocket1Error;
      Mysocket.OnConnect:= ClientSocket1Connect;
      Mysocket.Active := true;
    .....

    procedure TDM.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    Var SocketStr:WideString;
    begin
      SocketStr := Socket.ReceiveText;
      Memo1.Lines.Add(SocketStr);
     
      if pos(#13+'-',String(SocketStr))>0 then Begin
        Mysocket.Socket.SendText('smdr'+#13);
      End;
      if pos(#13+'Enter Password:',String(SocketStr))>0 then Begin
        Mysocket.Socket.SendText('PCCSMDR'+#13);
      End;
    End;
]]> eda-76 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672926 Mon, 06 Jun 2016 11:28:24 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672926 сейчас у меня начало возвращать "Enter Password:" и я пытаюсь отловить это и вернуть пароль, но мне кажется, что должно как то командой передаваться.]]> eda-76 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672906 Mon, 06 Jun 2016 09:07:27 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672906 2. Ищем любой готовый компонент клиента Telnet
3. ....
4. Профит.

Добавлено
А в коде у тебя полная жопа. Ты пытаешься залогиниться сразу после открытия соединения. Так не делается. Такое возможно в событии OnConnect.]]> Gonarh Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672902 Mon, 06 Jun 2016 09:00:22 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672902
интересно то что при коннекте сразу идет дисконнект, такое ощущение что надо уже при коннекте передавать логин и пароль, хотя putty нормально ждет]]> eda-76 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672901 Mon, 06 Jun 2016 08:41:42 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672901 eda-76
Можно снять логи сниффером с putty и посмотреть что он передает.]]> ^D^ima Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672897 Mon, 06 Jun 2016 08:23:44 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672897 проблема в том что не могу передать логин и пароль на АТС и получать лог]]> eda-76 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672895 Mon, 06 Jun 2016 08:14:59 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672895 Цитата eda-76 @
cmd

Цитата eda-76 @
asterisk_cmd

Это разные переменные вообще-то.]]> ^D^ima Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672890 Mon, 06 Jun 2016 07:25:27 +0000 Подключение к АТС по протоколу smdr https://forum.sources.ru/index.php?showtopic=408941&view=findpost&p=3672890 подскажите как подключиться к АТС по протоколу smdr из дельфи? putty подключается, а в дельфи делаю:
    Mysocket := TClientSocket.Create(nil);
        Mysocket.Address := '192.168.0.101';
        Mysocket.Port := 23;
        Mysocket.OnRead := ClientSocket1Read;
        Mysocket.OnError := ClientSocket1Error;
        Mysocket.Active := true;
     
        cmd.Clear;
        cmd.Add('user smdr');
        cmd.Add('pass PCCSMDR');
        cmd.Add('');
        Mysocket.Socket.SendText(asterisk_cmd.text);

не ошибок не выводит и ни каких ответов нет]]> eda-76 Delphi: Сетевое программирование