<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<font face="Arial" size="3" style="font-size:12pt;">Voce ta usando D7 ? usa com ssh?</font><div><font face="Arial" size="3" style="font-size:12pt;">que tipo de socket é esse ? componente nativo ?<br id="FontBreak"></font><br><br><div><br></div>Hudson <br>048 8413 7000<div><br></div><div>Para quem nao cre, nenhuma prova converte,</div><div>Para aquele que cre, nenhuma prova precisa.</div><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Thu, 16 Aug 2012 08:58:56 -0300<br>From: rickbamen@gmail.com<br>To: asteriskbrasil@listas.asteriskbrasil.org<br>Subject: Re: [AsteriskBrasil] RES: Integração com Delphi<br><br>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="ecxgmail_quote">Em 16 de agosto de 2012 08:49, Silvio Duclos <span dir="ltr"><<a href="mailto:silvio@tospeak.com.br">silvio@tospeak.com.br</a>></span> escreveu:<br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div lang="PT-BR"><div><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Bom dia, <u></u><u></u></span></p><p class="ecxMsoNormal">
<span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="ecxMsoNormal"><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="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">É isso mesmo ? <u></u><u></u></span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Silvio Duclos <u></u><u></u></span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="ecxMsoNormal"><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">asteriskbrasil-bounces@listas.asteriskbrasil.org</a> [mailto:<a href="mailto:asteriskbrasil-bounces@listas.asteriskbrasil.org">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">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="ecxMsoNormal"><u></u> <u></u></p><p class="ecxMsoNormal">Boa Tarde Galera...<u></u><u></u></p><div><p class="ecxMsoNormal">Ja perguntei aqui na lista mas vamos tentar novamente...<u></u><u></u></p></div>
<div><p class="ecxMsoNormal">Seguindo os conselhos...ja habilei o mananger do asterisk.<u></u><u></u></p></div><div><p class="ecxMsoNormal">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="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">primeiro eu tentei me conectar...<u></u><u></u></p></div><div><div><p class="ecxMsoNormal">--> Tentativa de Conexão ás 14/08/2012 12:38:51<u></u><u></u></p>
</div><div><p class="ecxMsoNormal">----> Asterisk Call Manager/1.1<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">depois tentei enviar os comandos abaixo separadamente.<u></u><u></u></p>
</div><div><p class="ecxMsoNormal">--> Comando enviado: Action: Login ás 14/08/2012 12:41:21<u></u><u></u></p></div><div><p class="ecxMsoNormal">----> Fim do retorno ás 14/08/2012 12:41:36<u></u><u></u></p></div><div><p class="ecxMsoNormal">
<u></u> <u></u></p></div><div><p class="ecxMsoNormal">--> Comando enviado: UserName: teste ás 14/08/2012 12:42:56<u></u><u></u></p></div><div><p class="ecxMsoNormal">----> Fim do retorno ás 14/08/2012 12:43:16<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">--> Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50<u></u><u></u></p></div><div><p class="ecxMsoNormal">----> Fim do retorno ás 14/08/2012 12:44:43<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">--> Comando enviado: Action: Command ás 14/08/2012 12:45:02<u></u><u></u></p></div><div><p class="ecxMsoNormal">----> Fim do retorno ás 14/08/2012 12:45:55<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">--> Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17<u></u><u></u></p></div><div><p class="ecxMsoNormal">----> Fim do retorno ás 14/08/2012 12:47:07<u></u><u></u></p>
</div></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">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="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">Vou postar trecho do codigo que fiz.<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p>
</div><div><div><p class="ecxMsoNormal">procedure Tfrm_Principal.btnEnviarComandoClick(Sender: TObject);<u></u><u></u></p></div><div><p class="ecxMsoNormal">var<u></u><u></u></p></div><div><p class="ecxMsoNormal"> tmpComando: string;<u></u><u></u></p>
</div><div><p class="ecxMsoNormal">begin<u></u><u></u></p></div><div><p class="ecxMsoNormal"> if (trim(edtComando.Text) <> '') then<u></u><u></u></p></div><div><p class="ecxMsoNormal"> begin<u></u><u></u></p></div>
<div><p class="ecxMsoNormal"> tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);<u></u><u></u></p></div><div><p class="ecxMsoNormal"> 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="ecxMsoNormal"> EnviaComando(tmpComando);<u></u><u></u></p></div><div><p class="ecxMsoNormal"> end;<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">end;<u></u><u></u></p>
</div></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><div><p class="ecxMsoNormal">procedure Tfrm_Principal.EnviaComando(pComando: string);<u></u><u></u></p></div><div><p class="ecxMsoNormal">var<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"> tmpRetorno: string;<u></u><u></u></p></div><div><p class="ecxMsoNormal">begin<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal"> ConectaSocket.SendString(pComando);<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal"> repeat<u></u><u></u></p></div><div><p class="ecxMsoNormal"> tmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text, 2000));<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"> memoRetorno.Lines.Add(trim(tmpRetorno));<u></u><u></u></p></div><div><p class="ecxMsoNormal"> until tmpRetorno = '';<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p>
</div><div><p class="ecxMsoNormal"> memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));<u></u><u></u></p></div><div><p class="ecxMsoNormal"> memoRetorno.Lines.Add(StringOfChar('-', 50));<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal"> edtComando.Clear;<u></u><u></u></p></div><div><p class="ecxMsoNormal"> groupTerminador.ItemIndex := 0;<u></u><u></u></p></div><div><p class="ecxMsoNormal">
end;<u></u><u></u></p></div></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">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="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">Saudações.<u></u><u></u></p></div><div><p class="ecxMsoNormal"><u></u> <u></u></p></div><div><p class="ecxMsoNormal">Ricardo Mendes<u></u><u></u></p>
</div><div><p class="ecxMsoNormal"><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>
<br>_______________________________________________
KHOMP Inova��o: External Board Series
M�dulos de 1/2 rack e 1U para todas as interfaces e solu��es Asterisk e FreeSWITCH.
Tenha a External Series Experience na sua aplica��o. Visite�www.khomp.com
_______________________________________________
DIGIVOICE Fabricante de Placas de Voz e Channel Bank
20 anos de experi�ncia com E1(R2/ISDN), FXS, FXO e GSM
Centro Treinamento - Curso de PABX IP - Asterisk - Site www.digivoice.com.br
________
YEALINK: Telefones IP e V�deoPhones IP com o melhor custo/benef�cio do mercado.
email: yealink@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011
______________________________________________
Para remover seu email desta lista, basta enviar um email em branco para asteriskbrasil-unsubscribe@listas.asteriskbrasil.org</div></div> </div></body>
</html>