Tentei fazer algo com SCP do windows, mas ficou muito porco....acho que o seu 
caso é melhor, so seria interessante saber saber se ele se comunicacom o ssh do 
linux, pra mim seria perfeito, dai posso fazer o tarifador controlar 
comabsoluta precisao o asterisk.


Hudson 
048 8413 7000
Para quem nao cre, nenhuma prova converte,Para aquele que cre, nenhuma prova 
precisa.

Date: Thu, 16 Aug 2012 16:49:55 -0300
From: [email protected]
To: [email protected]
Subject: Re: [AsteriskBrasil]   RES: Integração com Delphi

A Principio a classe vai se comunicar via socket...ele se conecta no asterisk 
normal...via TCP/IP pela porta 5038Assim que o demo tiver pronto eu 
disponibilizo...até pq ainda to testando algumas coisas....

Ricardo Mendes

Em 16 de agosto de 2012 16:22, Hudson Cardoso <[email protected]> 
escreveu:





   Mas a comunicção dele ? que protocolo utiliza ? consegue se conectar em ssh 
?consegue me mandar os fonte ?





Hudson 
048 8413 7000
Para quem nao cre, nenhuma prova converte,Para aquele que cre, nenhuma prova 
precisa.


Date: Thu, 16 Aug 2012 12:51:13 -0300
From: [email protected]
To: [email protected]

Subject: Re: [AsteriskBrasil]   RES: Integração com Delphi

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



SilvioA 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]
                                          

_______________________________________________

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]

Responder a