Eu to no D7. Estou usando a classe do synapse que não é componente visual. Com isso não fico na dependencia do Indy.
Ricardo Mendes Em 16 de agosto de 2012 12:25, Hudson Cardoso <[email protected]>escreveu: > Voce ta usando D7 ? usa com ssh? > que tipo de socket é esse ? componente nativo ? > > > > Hudson > 048 8413 7000 > > Para quem nao cre, nenhuma prova converte, > Para aquele que cre, nenhuma prova precisa. > > > ------------------------------ > Date: Thu, 16 Aug 2012 08:58:56 -0300 > From: [email protected] > To: [email protected] > Subject: Re: [AsteriskBrasil] RES: Integração com Delphi > > > 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 <[email protected]>escreveu: > > 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] > > > > _______________________________________________ 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] > > _______________________________________________ > 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] >
_______________________________________________ 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]
