[AsteriskBrasil] Integração com Delphi

[Ricardo Mendes]

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/20120814/7b5c3eeb/attachment.htm