[AsteriskBrasil] RES: Integração com Delphi

[Ricardo Mendes]

Silvio
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

Ricardo Mendes

Em 16 de agosto de 2012 08:49, Silvio Duclos <silvio em tospeak.com.br>escreveu:

> Bom dia, ****
>
> ** **
>
> Seu sistema levou 10 minutos desde a primeira interação com o manager até
> a ultima, ****
>
> É isso mesmo ? ****
>
> ** **
>
> Silvio Duclos ****
>
> ** **
>
> *De:* asteriskbrasil-bounces em listas.asteriskbrasil.org [mailto:
> asteriskbrasil-bounces em listas.asteriskbrasil.org] *Em nome de *Ricardo
> Mendes
> *Enviada em:* terça-feira, 14 de agosto de 2012 13:58
> *Para:* asteriskbrasil em listas.asteriskbrasil.org
> *Assunto:* [AsteriskBrasil] Integração com Delphi****
>
> ** **
>
> Boa Tarde Galera...****
>
> Ja perguntei aqui na lista mas vamos tentar novamente...****
>
> Seguindo os conselhos...ja habilei o mananger do asterisk.****
>
> Tentei utilizar socket com delphi para ver se da resultado, abaixo segue
> os retornos que tive...****
>
> ** **
>
> primeiro eu tentei me conectar...****
>
> --> Tentativa de Conexão ás 14/08/2012 12:38:51****
>
> ----> Asterisk Call Manager/1.1****
>
> ** **
>
> depois tentei enviar os comandos abaixo separadamente.****
>
> --> Comando enviado: Action: Login ás 14/08/2012 12:41:21****
>
> ----> Fim do retorno ás 14/08/2012 12:41:36****
>
> ** **
>
> --> Comando enviado: UserName: teste ás 14/08/2012 12:42:56****
>
> ----> Fim do retorno ás 14/08/2012 12:43:16****
>
> ** **
>
> --> Comando enviado: Secret: abc123 ás 14/08/2012 12:43:50****
>
> ----> Fim do retorno ás 14/08/2012 12:44:43****
>
> ** **
>
> --> Comando enviado: Action: Command ás 14/08/2012 12:45:02****
>
> ----> Fim do retorno ás 14/08/2012 12:45:55****
>
> ** **
>
> --> Comando enviado: Command: sip show peers ás 14/08/2012 12:46:17****
>
> ----> Fim do retorno ás 14/08/2012 12:47:07****
>
> ** **
>
> 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.****
>
> ** **
>
> Vou postar trecho do codigo que fiz.****
>
> ** **
>
> ** **
>
> procedure Tfrm_Principal.btnEnviarComandoClick(Sender: TObject);****
>
> var****
>
>   tmpComando: string;****
>
> begin****
>
>   if (trim(edtComando.Text) <> '') then****
>
>   begin****
>
>     tmpComando := trim(edtComando.Text) +
> ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao);****
>
>     ListaComando.Lines.Add('Comando enviado: ' + trim(edtComando.Text) + '
> ás ' + FormatDateTime('DD/MM/YYYY HH:MM:SS', now));****
>
>     EnviaComando(tmpComando);****
>
>   end;****
>
> ** **
>
> end;****
>
> ** **
>
> procedure Tfrm_Principal.EnviaComando(pComando: string);****
>
> var****
>
>   tmpRetorno: string;****
>
> begin****
>
> ** **
>
>   ConectaSocket.SendString(pComando);****
>
> ** **
>
>   repeat****
>
>     tmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text,
> 2000));****
>
>     memoRetorno.Lines.Add(trim(tmpRetorno));****
>
>   until tmpRetorno = '';****
>
> ** **
>
>   memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/YYYY
> HH:MM:SS', now));****
>
>   memoRetorno.Lines.Add(StringOfChar('-', 50));****
>
> ** **
>
>   edtComando.Clear;****
>
>   groupTerminador.ItemIndex := 0;****
>
> end;****
>
> ** **
>
> ** **
>
> Se alguem puder me ajudar a tentar fazer um simples exemplo dessa conexão
> eu agradeço.****
>
> ** **
>
> Saudações.****
>
> ** **
>
> Ricardo Mendes****
>
> ** **
>
> _______________________________________________
> 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 em 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 em listas.asteriskbrasil.org
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://listas.asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20120816/5890022e/attachment.htm