Silvio<div>A aplicação não levou 10 minutos para fazer essa interação...o que aconteceu foi apenas que eu levei 10 minutos para ver a sequencia dos comandos e digitar...srsrsrs</div><div><br></div><div>Ricardo Mendes<br><br>
<div class="gmail_quote">Em 16 de agosto de 2012 08:49, Silvio Duclos <span dir="ltr"><<a href="mailto:silvio@tospeak.com.br" target="_blank">silvio@tospeak.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div lang="PT-BR" link="blue" vlink="purple"><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Bom dia, <u></u><u></u></span></p><p class="MsoNormal">
<span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Seu sistema levou 10 minutos desde a primeira interação com o manager até a ultima, <u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">É isso mesmo ? <u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Silvio Duclos <u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">De:</span></b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> <a href="mailto:asteriskbrasil-bounces@listas.asteriskbrasil.org" target="_blank">asteriskbrasil-bounces@listas.asteriskbrasil.org</a> [mailto:<a href="mailto:asteriskbrasil-bounces@listas.asteriskbrasil.org" target="_blank">asteriskbrasil-bounces@listas.asteriskbrasil.org</a>] <b>Em nome de </b>Ricardo Mendes<br>
<b>Enviada em:</b> terça-feira, 14 de agosto de 2012 13:58<br><b>Para:</b> <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br><b>Assunto:</b> [AsteriskBrasil] Integração com Delphi<u></u><u></u></span></p>
<div><div class="h5"><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Boa Tarde Galera...<u></u><u></u></p><div><p class="MsoNormal">Ja perguntei aqui na lista mas vamos tentar novamente...<u></u><u></u></p></div>
<div><p class="MsoNormal">Seguindo os conselhos...ja habilei o mananger do asterisk.<u></u><u></u></p></div><div><p class="MsoNormal">Tentei utilizar socket com delphi para ver se da resultado, abaixo segue os retornos que tive...<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">primeiro eu tentei me conectar...<u></u><u></u></p></div><div><div><p class="MsoNormal">--> Tentativa de Conexão ás 14/08/2012 12:38:51<u></u><u></u></p>
</div><div><p class="MsoNormal">----> Asterisk Call Manager/1.1<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">depois tentei enviar os comandos abaixo separadamente.<u></u><u></u></p>
</div><div><p class="MsoNormal">--> Comando enviado: Action: Login ás 14/08/2012 12:41:21<u></u><u></u></p></div><div><p class="MsoNormal">----> Fim do retorno ás 14/08/2012 12:41:36<u></u><u></u></p></div><div><p class="MsoNormal">
<u></u> <u></u></p></div><div><p class="MsoNormal">--> Comando enviado: UserName: teste ás 14/08/2012 12:42:56<u></u><u></u></p></div><div><p class="MsoNormal">----> Fim do retorno ás 14/08/2012 12:43:16<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">--> Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50<u></u><u></u></p></div><div><p class="MsoNormal">----> Fim do retorno ás 14/08/2012 12:44:43<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">--> Comando enviado: Action: Command ás 14/08/2012 12:45:02<u></u><u></u></p></div><div><p class="MsoNormal">----> Fim do retorno ás 14/08/2012 12:45:55<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">--> Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17<u></u><u></u></p></div><div><p class="MsoNormal">----> Fim do retorno ás 14/08/2012 12:47:07<u></u><u></u></p>
</div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">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.<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Vou postar trecho do codigo que fiz.<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p>
</div><div><div><p class="MsoNormal">procedure Tfrm_Principal.btnEnviarComandoClick(Sender: TObject);<u></u><u></u></p></div><div><p class="MsoNormal">var<u></u><u></u></p></div><div><p class="MsoNormal"> tmpComando: string;<u></u><u></u></p>
</div><div><p class="MsoNormal">begin<u></u><u></u></p></div><div><p class="MsoNormal"> if (trim(edtComando.Text) <> '') then<u></u><u></u></p></div><div><p class="MsoNormal"> begin<u></u><u></u></p></div>
<div><p class="MsoNormal"> tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);<u></u><u></u></p></div><div><p class="MsoNormal"> ListaComando.Lines.Add('Comando enviado: ' + trim(edtComando.Text) + ' ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));<u></u><u></u></p>
</div><div><p class="MsoNormal"> EnviaComando(tmpComando);<u></u><u></u></p></div><div><p class="MsoNormal"> end;<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">end;<u></u><u></u></p>
</div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><div><p class="MsoNormal">procedure Tfrm_Principal.EnviaComando(pComando: string);<u></u><u></u></p></div><div><p class="MsoNormal">var<u></u><u></u></p>
</div><div><p class="MsoNormal"> tmpRetorno: string;<u></u><u></u></p></div><div><p class="MsoNormal">begin<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"> ConectaSocket.SendString(pComando);<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"> repeat<u></u><u></u></p></div><div><p class="MsoNormal"> tmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text, 2000));<u></u><u></u></p>
</div><div><p class="MsoNormal"> memoRetorno.Lines.Add(trim(tmpRetorno));<u></u><u></u></p></div><div><p class="MsoNormal"> until tmpRetorno = '';<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p>
</div><div><p class="MsoNormal"> memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));<u></u><u></u></p></div><div><p class="MsoNormal"> memoRetorno.Lines.Add(StringOfChar('-', 50));<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"> edtComando.Clear;<u></u><u></u></p></div><div><p class="MsoNormal"> groupTerminador.ItemIndex := 0;<u></u><u></u></p></div><div><p class="MsoNormal">
end;<u></u><u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Se alguem puder me ajudar a tentar fazer um simples exemplo dessa conexão eu agradeço.<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Saudações.<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Ricardo Mendes<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div></div></div></div></div><br>_______________________________________________<br>
KHOMP Inovação: External Board Series<br>
Módulos de 1/2 rack e 1U para todas as interfaces e soluções Asterisk e FreeSWITCH.<br>
Tenha a External Series Experience na sua aplicação. Visite <a href="http://www.khomp.com" target="_blank">www.khomp.com</a><br>
_______________________________________________<br>
DIGIVOICE Fabricante de Placas de Voz e Channel Bank<br>
20 anos de experiência com E1(R2/ISDN), FXS, FXO e GSM<br>
Centro Treinamento - Curso de PABX IP - Asterisk - Site <a href="http://www.digivoice.com.br" target="_blank">www.digivoice.com.br</a><br>
________<br>
YEALINK: Telefones IP e VídeoPhones IP com o melhor custo/benefício do mercado.<br>
email: <a href="mailto:yealink@commlogik.com.br">yealink@commlogik.com.br</a> | <a href="http://www.commlogik.com.br" target="_blank">www.commlogik.com.br</a> | (11) 5503-1011<br>
______________________________________________<br>
Para remover seu email desta lista, basta enviar um email em branco para <a href="mailto:asteriskbrasil-unsubscribe@listas.asteriskbrasil.org">asteriskbrasil-unsubscribe@listas.asteriskbrasil.org</a><br></blockquote></div>
<br></div>