<div>Hudson, acho que esse link deve lhe auxiliar na sua resposta.</div><div><br></div><a href="http://wiki.freepascal.org/Synapse">http://wiki.freepascal.org/Synapse</a> <div><br></div><div>Veja nesse trecho: </div><div><br>
</div><div>SSH/Telnet</div><div><br></div><div><div><br></div><div>Ricardo Mendes<br><br><div class="gmail_quote">Em 16 de agosto de 2012 17:08, Hudson Cardoso <span dir="ltr"><<a href="mailto:hudsoncardoso@hotmail.com" target="_blank">hudsoncardoso@hotmail.com</a>></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">Tentei fazer algo com SCP do windows, mas ficou muito porco....</font><div><font face="Arial" size="3" style="font-size:12pt">acho que o seu caso é melhor, so seria interessante saber saber se ele se comunica</font></div>
<div><font face="Arial" size="3" style="font-size:12pt">com o ssh do linux, pra mim seria perfeito, dai posso fazer o tarifador controlar com</font></div><div><font face="Arial" size="3" style="font-size:12pt">absoluta precisao o asterisk.</font></div>
<div><div class="im"><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 16:49:55 -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>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>Em 16 de agosto de 2012 16:22, Hudson Cardoso <span dir="ltr"><<a href="mailto:hudsoncardoso@hotmail.com" target="_blank">hudsoncardoso@hotmail.com</a>></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"> 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>
<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><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"><<a href="mailto:hudsoncardoso@hotmail.com" target="_blank">hudsoncardoso@hotmail.com</a>></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"><<a href="mailto:silvio@tospeak.com.br" target="_blank">silvio@tospeak.com.br</a>></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:"Calibri","sans-serif";color:#1f497d">Bom dia, <u></u><u></u></span><br>
<span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span><br><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><br>
<span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">É isso mesmo ? <u></u><u></u></span><br><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span><br>
<span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Silvio Duclos <u></u><u></u></span><br><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span><br>
<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><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>--> Tentativa de Conexão ás 14/08/2012 12:38:51<u></u><u></u><br>
</div><div>----> 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>--> Comando enviado: Action: Login ás 14/08/2012 12:41:21<u></u><u></u><br></div><div>----> Fim do retorno ás 14/08/2012 12:41:36<u></u><u></u><br></div><div>
<u></u> <u></u><br></div><div>--> Comando enviado: UserName: teste ás 14/08/2012 12:42:56<u></u><u></u><br></div><div>----> Fim do retorno ás 14/08/2012 12:43:16<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--> Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50<u></u><u></u><br></div><div>----> Fim do retorno ás 14/08/2012 12:44:43<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--> Comando enviado: Action: Command ás 14/08/2012 12:45:02<u></u><u></u><br></div><div>----> Fim do retorno ás 14/08/2012 12:45:55<u></u><u></u><br>
</div><div><u></u> <u></u><br></div><div>--> Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17<u></u><u></u><br></div><div>----> 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) <> '') 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('Comando enviado: ' + trim(edtComando.Text) + ' ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', 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 = '';<u></u><u></u><br></div><div><u></u> <u></u><br>
</div><div> memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));<u></u><u></u><br></div><div> memoRetorno.Lines.Add(StringOfChar('-', 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" 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>
<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></div>