Re: [AsteriskBrasil] Integração com Delphi
Assim que conseguir alguma integração inicial eu mando o projeto. Ricardo Mendes Em 15 de agosto de 2012 13:53, Hudson Cardoso escreveu: > > se fizer, tambem vou querer, meu delphi anda meio enferrujado > > > Hudson > 048 8413 7000 > > Para quem nao cre, nenhuma prova converte, > Para aquele que cre, nenhuma prova precisa. > > > -- > Date: Tue, 14 Aug 2012 14:32:14 -0300 > From: rickba...@gmail.com > To: asteriskbrasil@listas.asteriskbrasil.org > Subject: Re: [AsteriskBrasil] Integração com Delphi > > > 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 > 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: > > > $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 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 > 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 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/ HH:MM:SS', now)); > EnviaComando(tmpComando); > end; > > end; > > procedure Tfrm_Principal.E
Re: [AsteriskBrasil] Integração com Delphi
se fizer, tambem vou querer, meu delphi anda meio enferrujado Hudson 048 8413 7000 Para quem nao cre, nenhuma prova converte,Para aquele que cre, nenhuma prova precisa. Date: Tue, 14 Aug 2012 14:32:14 -0300 From: rickba...@gmail.com To: asteriskbrasil@listas.asteriskbrasil.org Subject: Re: [AsteriskBrasil] Integração com Delphi Vou tentar transformar isso em delphi...Em java a questão ficaria diferente...mas se puder me enviar...manda para o meu email Ricardo mendesrickba...@gmail.com Em 14 de agosto de 2012 14:25, Ronaldo Sacco 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: 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 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 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 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 begintmpComando := trim(edtComando.Text) + ifthen((groupTerminador.ItemIndex = 0), Acao, Execucao); ListaComando.Lines.Add('Comando enviado: ' + trim(edtComando.Text) + ' ás ' + FormatDateTime('DD/MM/ HH:MM:SS', now)); EnviaComando(tmpComando); end; end; procedure Tfrm_Principal.EnviaComando(pComando: string);var tmpRetorno: string; begin ConectaSocket.SendString(pComando); repeattmpRetorno := ConectaSocket.RecvPacket(StrToIntDef(edtTimeOut.text, 2000));memoRetorno.Lines.Add(trim(tmpRetorno)); until tmpRetorno = ''; memoRetorno.Lines.Add('Fim do retorno ás ' + FormatDateTime('DD/MM/ 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ídeoPho
Re: [AsteriskBrasil] Integração com Delphi
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 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: > > > $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 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 > > 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 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/ 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/ 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
Re: [AsteriskBrasil] Integração com Delphi
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: 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 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 > 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 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/ 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/ 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 >> >> >> >>
Re: [AsteriskBrasil] Integração com Delphi
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 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 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/ 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/ >> 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
Re: [AsteriskBrasil] Integração com Delphi
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 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/ 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/ > 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