Boa Tarde Galera...<div>Ja perguntei aqui na lista mas vamos tentar novamente...</div><div>Seguindo os conselhos...ja habilei o mananger do asterisk.</div><div>Tentei utilizar socket com delphi para ver se da resultado, abaixo segue os retornos que tive...</div>
<div><br></div><div>primeiro eu tentei me conectar...</div><div><div>--> Tentativa de Conexão ás 14/08/2012 12:38:51</div><div>----> Asterisk Call Manager/1.1</div><div><br></div><div>depois tentei enviar os comandos abaixo separadamente.</div>
<div>--> Comando enviado: Action: Login ás 14/08/2012 12:41:21</div><div>----> Fim do retorno ás 14/08/2012 12:41:36</div><div><br></div><div>--> Comando enviado: UserName: teste ás 14/08/2012 12:42:56</div><div>
----> Fim do retorno ás 14/08/2012 12:43:16</div><div><br></div><div>--> Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50</div><div>----> Fim do retorno ás 14/08/2012 12:44:43</div><div><br></div><div>--> Comando enviado: Action: Command ás 14/08/2012 12:45:02</div>
<div>----> Fim do retorno ás 14/08/2012 12:45:55</div><div><br></div><div>--> Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17</div><div>----> Fim do retorno ás 14/08/2012 12:47:07</div></div><div>
<br></div><div>A principio nenhum comando me trouxe retorno...e ja não sei mais o que mexer para tentar fazer essa integração com delphi funcionar.</div><div><br></div><div>Vou postar trecho do codigo que fiz.</div><div><br>
</div><div><br></div><div><div>procedure Tfrm_Principal.btnEnviarComandoClick(Sender: TObject);</div><div>var</div><div> tmpComando: string;</div><div>begin</div><div> if (trim(edtComando.Text) <> '') then</div>
<div> begin</div><div> tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);</div><div> ListaComando.Lines.Add('Comando enviado: ' + trim(edtComando.Text) + ' ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));</div>
<div> EnviaComando(tmpComando);</div><div> end;</div><div><br></div><div>end;</div></div><div><br></div><div><div>procedure Tfrm_Principal.EnviaComando(pComando: string);</div><div>var</div><div> tmpRetorno: string;</div>
<div>begin</div><div><br></div><div> ConectaSocket.SendString(pComando);</div><div><br></div><div> repeat</div><div> tmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text, 2000));</div><div> memoRetorno.Lines.Add(trim(tmpRetorno));</div>
<div> until tmpRetorno = '';</div><div><br></div><div> memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));</div><div> memoRetorno.Lines.Add(StringOfChar('-', 50));</div>
<div><br></div><div> edtComando.Clear;</div><div> groupTerminador.ItemIndex := 0;</div><div>end;</div></div><div><br></div><div><br></div><div>Se alguem puder me ajudar a tentar fazer um simples exemplo dessa conexão eu agradeço.</div>
<div><br></div><div>Saudações.</div><div><br></div><div>Ricardo Mendes</div><div><br></div>