Vou tentar transformar isso em delphi... Em java a questão ficaria diferente...mas se puder me enviar...manda para o meu email
Ricardo Mendes rickba...@gmail.com Em 14 de agosto de 2012 14:25, Ronaldo Sacco <cont...@ronaldosacco.com.br>escreveu: > 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.. > Tenta substituir o #13 e #10 por '\r' e '\n'. > > Um exemplo simples de "reload" em PHP, ficaria: > <?php > > > $socket = fsockopen("localhost","5038", $errno, $errstr, 100); > fputs($socket, "Action: Login\r\n"); > fputs($socket, "ActionID: 1\r\n"); > fputs($socket, "UserName: USUARIO\r\n"); > fputs($socket, "Secret: SENHA\r\n\r\n"); > fputs($socket, "Action: Command\r\n"); > fputs($socket, "Command: reload\r\n\r\n"); > > ?> > > 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. > > Já se eu preciso receber algum retorno, eu utilizo o seguinte comando: > $get=fgets($socket,128); > > Tenho um exemplo em Java também. Se quiser me avisa.. > > []'s > > Em 14 de agosto de 2012 14:10, Ricardo Mendes <rickba...@gmail.com>escreveu: > > Ronaldo...mas nesse trecho aqui >> tmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex >> = 0), Acao, Execucao); >> >> eu determino se o terminado vai ser o de Ação ou Execução que >> correspondem a >> Acao = #13 + #10; >> Execucao = #13 + #10 + #13 + #10; >> >> Será que é errado isso? >> >> Ricardo Mendes >> >> Em 14 de agosto de 2012 14:05, Ronaldo Sacco <cont...@ronaldosacco.com.br >> > escreveu: >> >> Ricardo, talvez este script PHP te ajude: >>> >>> $socket = fsockopen("localhost","5038", $errno, $errstr, 100); >>> fputs($socket, "Action: Login\r\n"); >>> fputs($socket, "ActionID: 1\r\n"); >>> fputs($socket, "UserName: $user\r\n"); >>> fputs($socket, "Secret: $pswd\r\n\r\n"); >>> [...] >>> >>> >>> O segredo deste script está no "\r\n" (retorno de carro e quebra de >>> linha). Sem isso não da retorno. Talvez seja o teu problema. >>> >>> >>> Em 14 de agosto de 2012 13:58, Ricardo Mendes <rickba...@gmail.com>escreveu: >>> >>>> 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: yeal...@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011 >>>> ______________________________________________ >>>> Para remover seu email desta lista, basta enviar um email em branco >>>> para asteriskbrasil-unsubscr...@listas.asteriskbrasil.org >>>> >>> >>> >>> >>> -- >>> >>> Atenciosamente, >>> >>> Ronaldo Sacco >>> (54) 9174-8840 >>> Bacharel em Ciência da Computação >>> >>> >>> >>> _______________________________________________ >>> 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: yeal...@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011 >>> ______________________________________________ >>> Para remover seu email desta lista, basta enviar um email em branco para >>> asteriskbrasil-unsubscr...@listas.asteriskbrasil.org >>> >> >> >> _______________________________________________ >> 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: yeal...@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011 >> ______________________________________________ >> Para remover seu email desta lista, basta enviar um email em branco para >> asteriskbrasil-unsubscr...@listas.asteriskbrasil.org >> > > > > -- > > Atenciosamente, > > Ronaldo Sacco > (54) 9174-8840 > Bacharel em Ciência da Computação > > > > _______________________________________________ > 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: yeal...@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011 > ______________________________________________ > Para remover seu email desta lista, basta enviar um email em branco para > asteriskbrasil-unsubscr...@listas.asteriskbrasil.org >
_______________________________________________ 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: yeal...@commlogik.com.br | www.commlogik.com.br | (11) 5503-1011 ______________________________________________ Para remover seu email desta lista, basta enviar um email em branco para asteriskbrasil-unsubscr...@listas.asteriskbrasil.org