A Principio a classe vai se comunicar via socket...<div>ele se conecta no asterisk normal...via TCP/IP pela porta 5038</div><div>Assim que o demo tiver pronto eu disponibilizo...até pq ainda to testando algumas coisas....</div>
<div><br></div><div>Ricardo Mendes<br><br><div class="gmail_quote">Em 16 de agosto de 2012 16:22, Hudson Cardoso <span dir="ltr">&lt;<a href="mailto:hudsoncardoso@hotmail.com" target="_blank">hudsoncardoso@hotmail.com</a>&gt;</span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><div dir="ltr">
<font face="Arial" size="3" style="font-size:12pt">   Mas a comunicção dele ? que protocolo utiliza ? consegue se conectar em ssh ?</font><div><font face="Arial" size="3">consegue me mandar os fonte ?<br></font><div><div class="im">
<font face="Arial" size="3" style="font-size:12pt"><br></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><div></div><hr>Date: Thu, 16 Aug 2012 12:51:13 -0300<div><div class="h5"><br>From: <a href="mailto:rickbamen@gmail.com" target="_blank">rickbamen@gmail.com</a><br>To: <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br>
Subject: Re: [AsteriskBrasil]        RES: Integração com Delphi<br><br>Eu to no D7.<div>Estou usando a classe do synapse que não é componente visual.</div><div>Com isso não fico na dependencia do Indy.</div><div><br></div><div>Ricardo Mendes<br>
<br><div>Em 16 de agosto de 2012 12:25, Hudson Cardoso <span dir="ltr">&lt;<a href="mailto:hudsoncardoso@hotmail.com" target="_blank">hudsoncardoso@hotmail.com</a>&gt;</span> escreveu:<br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">


<div><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></font><div>
<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><div></div><hr>Date: Thu, 16 Aug 2012 08:58:56 -0300<br>

From: <a href="mailto:rickbamen@gmail.com" target="_blank">rickbamen@gmail.com</a><br>To: <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br>Subject: Re: [AsteriskBrasil]        RES: Integração com Delphi<div>

<div><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>Em 16 de agosto de 2012 08:49, Silvio Duclos <span dir="ltr">&lt;<a href="mailto:silvio@tospeak.com.br" target="_blank">silvio@tospeak.com.br</a>&gt;</span> escreveu:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">



<div lang="PT-BR"><div><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d">Bom dia, <u></u><u></u></span><br>
<span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d"><u></u> <u></u></span><br><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d">Seu sistema levou 10 minutos desde a primeira interação com o manager até a ultima, <u></u><u></u></span><br>


<span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d">É isso mesmo ? <u></u><u></u></span><br><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d"><u></u> <u></u></span><br>


<span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d">Silvio Duclos <u></u><u></u></span><br><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1f497d"><u></u> <u></u></span><br>


<b><span style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;">De:</span></b><span style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> <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><br>


<div><div><u></u> <u></u><br>Boa Tarde Galera...<u></u><u></u><br><div>Ja perguntei aqui na lista mas vamos tentar novamente...<u></u><u></u><br></div>
<div>Seguindo os conselhos...ja habilei o mananger do asterisk.<u></u><u></u><br></div><div>Tentei utilizar socket com delphi para ver se da resultado, abaixo segue os retornos que tive...<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>primeiro eu tentei me conectar...<u></u><u></u><br></div><div><div>--&gt; Tentativa de Conexão ás 14/08/2012 12:38:51<u></u><u></u><br>
</div><div>----&gt; Asterisk Call Manager/1.1<u></u><u></u><br></div><div><u></u> <u></u><br></div><div>depois tentei enviar os comandos abaixo separadamente.<u></u><u></u><br>
</div><div>--&gt; Comando enviado: Action: Login ás 14/08/2012 12:41:21<u></u><u></u><br></div><div>----&gt; Fim do retorno ás 14/08/2012 12:41:36<u></u><u></u><br></div><div>
<u></u> <u></u><br></div><div>--&gt; Comando enviado: UserName: teste ás 14/08/2012 12:42:56<u></u><u></u><br></div><div>----&gt; Fim do retorno ás 14/08/2012 12:43:16<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--&gt; Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50<u></u><u></u><br></div><div>----&gt; Fim do retorno ás 14/08/2012 12:44:43<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--&gt; Comando enviado: Action: Command ás 14/08/2012 12:45:02<u></u><u></u><br></div><div>----&gt; Fim do retorno ás 14/08/2012 12:45:55<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--&gt; Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17<u></u><u></u><br></div><div>----&gt; Fim do retorno ás 14/08/2012 12:47:07<u></u><u></u><br>
</div></div><div><u></u> <u></u><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.<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>Vou postar trecho do codigo que fiz.<u></u><u></u><br></div><div><u></u> <u></u><br></div><div><u></u> <u></u><br>
</div><div><div>procedure Tfrm_Principal.btnEnviarComandoClick(Sender: TObject);<u></u><u></u><br></div><div>var<u></u><u></u><br></div><div>  tmpComando: string;<u></u><u></u><br>
</div><div>begin<u></u><u></u><br></div><div>  if (trim(edtComando.Text) &lt;&gt; &#39;&#39;) then<u></u><u></u><br></div><div>  begin<u></u><u></u><br></div>
<div>    tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);<u></u><u></u><br></div><div>    ListaComando.Lines.Add(&#39;Comando enviado: &#39; + trim(edtComando.Text) + &#39; ás &#39; + FormatDateTime(&#39;DD/MM/YYYY HH:MM:SS&#39;, now));<u></u><u></u><br>


</div><div>    EnviaComando(tmpComando);<u></u><u></u><br></div><div>  end;<u></u><u></u><br></div><div><u></u> <u></u><br></div><div>end;<u></u><u></u><br>
</div></div><div><u></u> <u></u><br></div><div><div>procedure Tfrm_Principal.EnviaComando(pComando: string);<u></u><u></u><br></div><div>var<u></u><u></u><br>
</div><div>  tmpRetorno: string;<u></u><u></u><br></div><div>begin<u></u><u></u><br></div><div><u></u> <u></u><br></div><div>  ConectaSocket.SendString(pComando);<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>  repeat<u></u><u></u><br></div><div>    tmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text, 2000));<u></u><u></u><br>
</div><div>    memoRetorno.Lines.Add(trim(tmpRetorno));<u></u><u></u><br></div><div>  until tmpRetorno = &#39;&#39;;<u></u><u></u><br></div><div><u></u> <u></u><br>
</div><div>  memoRetorno.Lines.Add(&#39;Fim do retorno ás &#39; + FormatDateTime(&#39;DD/MM/YYYY HH:MM:SS&#39;, now));<u></u><u></u><br></div><div>  memoRetorno.Lines.Add(StringOfChar(&#39;-&#39;, 50));<u></u><u></u><br>


</div><div><u></u> <u></u><br></div><div>  edtComando.Clear;<u></u><u></u><br></div><div>  groupTerminador.ItemIndex := 0;<u></u><u></u><br></div><div>
end;<u></u><u></u><br></div></div><div><u></u> <u></u><br></div><div><u></u> <u></u><br></div><div>Se alguem puder me ajudar a tentar fazer um simples exemplo dessa conexão eu agradeço.<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>Saudações.<u></u><u></u><br></div><div><u></u> <u></u><br></div><div>Ricardo Mendes<u></u><u></u><br>
</div><div><u></u> <u></u><br></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" target="_blank">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" target="_blank">asteriskbrasil-unsubscribe@listas.asteriskbrasil.org</a><br></blockquote>

</div>
<br></div>
<br></div></div>_______________________________________________
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�<a href="http://www.khomp.com" target="_blank">www.khomp.com</a>
_______________________________________________
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  <a href="http://www.digivoice.com.br" target="_blank">www.digivoice.com.br</a>
________
YEALINK: Telefones IP e V�deoPhones IP com o melhor custo/benef�cio do mercado.
email: <a href="mailto:yealink@commlogik.com.br" target="_blank">yealink@commlogik.com.br</a> | <a href="http://www.commlogik.com.br" target="_blank">www.commlogik.com.br</a> | (11) 5503-1011
______________________________________________
Para remover seu email desta lista, basta enviar um email em branco para <a href="mailto:asteriskbrasil-unsubscribe@listas.asteriskbrasil.org" target="_blank">asteriskbrasil-unsubscribe@listas.asteriskbrasil.org</a></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" target="_blank">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" target="_blank">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�<a href="http://www.khomp.com" target="_blank">www.khomp.com</a>
_______________________________________________
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  <a href="http://www.digivoice.com.br" target="_blank">www.digivoice.com.br</a>
________
YEALINK: Telefones IP e V�deoPhones IP com o melhor custo/benef�cio do mercado.
email: <a href="mailto:yealink@commlogik.com.br" target="_blank">yealink@commlogik.com.br</a> | <a href="http://www.commlogik.com.br" target="_blank">www.commlogik.com.br</a> | (11) 5503-1011
______________________________________________
Para remover seu email desta lista, basta enviar um email em branco para <a href="mailto:asteriskbrasil-unsubscribe@listas.asteriskbrasil.org" target="_blank">asteriskbrasil-unsubscribe@listas.asteriskbrasil.org</a></div>
</div></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>