Bom dia,
Seu sistema levou 10 minutos desde a primeira interação com o manager até a ultima, É isso mesmo ? Silvio Duclos De: [email protected] [mailto:[email protected]] Em nome de Ricardo Mendes Enviada em: terça-feira, 14 de agosto de 2012 13:58 Para: [email protected] 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: [email protected] | www.commlogik.com.br | (11) 5503-1011 ______________________________________________ Para remover seu email desta lista, basta enviar um email em branco para [email protected]
