[AsteriskBrasil] RES: Integração com Delphi

[Silvio Duclos]

Bom dia, 

 

Seu sistema levou 10 minutos desde a primeira interação com o manager até a
ultima, 

É isso mesmo ? 

 

Silvio Duclos 

 

De: asteriskbrasil-bounces em listas.asteriskbrasil.org
[mailto:asteriskbrasil-bounces em listas.asteriskbrasil.org] Em nome de Ricardo
Mendes
Enviada em: terça-feira, 14 de agosto de 2012 13:58
Para: asteriskbrasil em listas.asteriskbrasil.org
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

 

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://listas.asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20120816/dc1a103e/attachment-0001.htm