Assim que conseguir alguma integração inicial eu mando o projeto.<div><br></div><div>Ricardo Mendes<br><br><div class="gmail_quote">Em 15 de agosto de 2012 13:53, 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"><br></font>se fizer, tambem vou querer, meu delphi anda meio enferrujado....<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><hr>Date: Tue, 14 Aug 2012 14:32:14 -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] Integração com Delphi<div><div class="h5"><br><br>Vou tentar transformar isso em delphi...<div>Em java a questão ficaria diferente...mas se puder me enviar...manda para o meu email</div><div>
<br></div><div>Ricardo Mendes</div><div><a href="mailto:rickbamen@gmail.com" target="_blank">rickbamen@gmail.com</a><br>
<br><div>Em 14 de agosto de 2012 14:25, Ronaldo Sacco <span dir="ltr">&lt;<a href="mailto:contato@ronaldosacco.com.br" target="_blank">contato@ronaldosacco.com.br</a>&gt;</span> escreveu:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">

De acordo com a tabela ascii está correto o 13 (nova linha) e o 10 (nova linha). Mas agora não sei te dizer se teu código em Delphi está OK.. <br>Tenta substituir o #13 e #10 por &#39;\r&#39; e &#39;\n&#39;.<br><br>Um exemplo simples de &quot;reload&quot; em PHP, ficaria:<br>


&lt;?php<div><br><br>$socket = fsockopen(&quot;localhost&quot;,&quot;5038&quot;, $errno, $errstr, 100);<br>fputs($socket, &quot;Action: Login\r\n&quot;);<br>fputs($socket, &quot;ActionID: 1\r\n&quot;);<br></div>
fputs($socket, &quot;UserName: USUARIO\r\n&quot;);<br>
fputs($socket, &quot;Secret: SENHA\r\n\r\n&quot;);<br>fputs($socket, &quot;Action: Command\r\n&quot;);<br>fputs($socket, &quot;Command: reload\r\n\r\n&quot;);<br><br>?&gt;<br><br>Tenta utilizar este comando acima, transforma na linguagem Delphi.. O script apenas dá um reload no asterisk, não recebendo nenhum retorno. Se funcionar, você vai saber que pelo menos a comunicação com o asterisk está OK.<br>


<br>Já se eu preciso receber algum retorno, eu utilizo o seguinte comando:<br>$get=fgets($socket,128);<br><br>Tenho um exemplo em Java também. Se quiser me avisa..<br><br>[]&#39;s<br><br><div>Em 14 de agosto de 2012 14:10, Ricardo Mendes <span dir="ltr">&lt;<a href="mailto:rickbamen@gmail.com" target="_blank">rickbamen@gmail.com</a>&gt;</span> escreveu:<div>

<div><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">Ronaldo...mas nesse trecho aqui <div><div><span style="font-size:13px;font-family:arial,sans-serif"> tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.</span><span style="font-size:13px;font-family:arial,sans-serif">ItemIndex = 0), Acao, Execucao);</span> </div>



<div><br></div></div><div>eu determino se o terminado vai ser o de Ação ou Execução que correspondem a </div><div><div>Acao = #13 + #10;</div><div>Execucao = #13 + #10 + #13 + #10;</div><div><br></div><div>Será que é errado isso?</div>



<div><br></div><div>Ricardo Mendes</div><br><div>Em 14 de agosto de 2012 14:05, Ronaldo Sacco <span dir="ltr">&lt;<a href="mailto:contato@ronaldosacco.com.br" target="_blank">contato@ronaldosacco.com.br</a>&gt;</span> escreveu:<div>


<div><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">Ricardo, talvez este script PHP te ajude:<br><br>$socket = fsockopen(&quot;localhost&quot;,&quot;5038&quot;, $errno, $errstr, 100);<br>


fputs($socket, &quot;Action: Login\r\n&quot;);<br>fputs($socket, &quot;ActionID: 1\r\n&quot;);<br>
fputs($socket, &quot;UserName: $user\r\n&quot;);<br>fputs($socket, &quot;Secret: $pswd\r\n\r\n&quot;);<br>[...]<br><br><br>O segredo deste script está no &quot;\r\n&quot; (retorno de carro e quebra de linha). Sem isso não da retorno. Talvez seja o teu problema.<br>




<br><br><div>Em 14 de agosto de 2012 13:58, Ricardo Mendes <span dir="ltr">&lt;<a href="mailto:rickbamen@gmail.com" target="_blank">rickbamen@gmail.com</a>&gt;</span> escreveu:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">



<div><div>
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>--&gt; Tentativa de Conexão ás 14/08/2012 12:38:51</div><div>----&gt; Asterisk Call Manager/1.1</div><div><br></div><div>depois tentei enviar os comandos abaixo separadamente.</div>





<div>--&gt; Comando enviado: Action: Login ás 14/08/2012 12:41:21</div><div>----&gt; Fim do retorno ás 14/08/2012 12:41:36</div><div><br></div><div>--&gt; Comando enviado: UserName: teste ás 14/08/2012 12:42:56</div><div>





----&gt; Fim do retorno ás 14/08/2012 12:43:16</div><div><br></div><div>--&gt; Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50</div><div>----&gt; Fim do retorno ás 14/08/2012 12:44:43</div><div><br></div><div>--&gt; Comando enviado: Action: Command ás 14/08/2012 12:45:02</div>





<div>----&gt; Fim do retorno ás 14/08/2012 12:45:55</div><div><br></div><div>--&gt; Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17</div><div>----&gt; 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) &lt;&gt; &#39;&#39;) then</div>





<div>  begin</div><div>    tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);</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));</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 = &#39;&#39;;</div><div><br></div><div>  memoRetorno.Lines.Add(&#39;Fim do retorno ás &#39; + FormatDateTime(&#39;DD/MM/YYYY HH:MM:SS&#39;, now));</div><div>  memoRetorno.Lines.Add(StringOfChar(&#39;-&#39;, 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><span><font color="#888888"><div><br></div><div>Ricardo Mendes</div><div><br></div>
</font></span><br></div></div>_______________________________________________<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><span><font color="#888888"><br>



</font></span></blockquote></div><span><font color="#888888">
<br><br clear="all"><br>-- <br><br>Atenciosamente,<br><br style="font-family:tahoma,sans-serif"><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">Ronaldo Sacco</span><br><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">(54) 9174-8840</span><br style="color:rgb(102,102,102);font-family:tahoma,sans-serif">




<span style="color:rgb(102,102,102);font-family:tahoma,sans-serif"></span><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">Bacharel em Ciência da Computação<br></span><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif"></span><br>




<br>
</font></span><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></div></div>
<br></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></div></div><div><div>
<br><br clear="all"><br>-- <br><br>Atenciosamente,<br><br style="font-family:tahoma,sans-serif"><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">Ronaldo Sacco</span><br><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">(54) 9174-8840</span><br style="color:rgb(102,102,102);font-family:tahoma,sans-serif">


<span style="color:rgb(102,102,102);font-family:tahoma,sans-serif"></span><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif">Bacharel em Ciência da Computação<br></span><span style="color:rgb(102,102,102);font-family:tahoma,sans-serif"></span><br>


<br>
</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>
<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>