Lançar Comando no Telnet

[thiagocruz 0]

Fala ae Pessoal tudo bem... Agora estou aki pedindo se alguem sabe lançar os comandos no telnet net...Sendo que TRABALHO NA CEDAE.. ENTÂO nois Usamos Um Sistema Chamado SASB... Queria SAber se tem como eu lançar os Dados e Pegar as Informções......Ajuda ae.... Compliquei né!!! RS. rs.

[marcio.theis 3]

Usando INDY não consegue fazer isto ?

[thiagocruz 0]

Como eu faço entaum.... Usando SMTP!????você sabe?????

[marcio.theis 3]

Usando o componente TIdTelnet

[thiagocruz 0]

Tem que Instalar ESte componete ou vem Adiconado no DELPHI????você tem o endereço para que eu posso fazer Downloads????

[marcio.theis 3]

Link para baixar a versão mais nova do Indy, recomendo a versão 9. Depois veja se este outro link lhe ajuda, muita coisa sobre telnet...

[thiagocruz 0]

Agora que eu Vi estou usando ela para se COnnectar.... Mais naum estou conseguindo lançar os codigos..... ou retirar algo do SISTEMA!!!!

[marcio.theis 3]

No caso você têm algum manual alguma coisa que ensina os comandos que precisa passar para conseguir as informações ?

[thiagocruz 0]

Eu sei os Camados, só naum sei como passar para o Codigo!!!Eu Podei assim Telnet.Write('Um Comonado Qualquer'+#166);Ele naum da ninhum erro mais tambem naum aparece nada!!!

[marcio.theis 3]

Mas no caso você esta lendo o retorno ?

Se estiver usando o TIDTelnet existe evento chamado OnDataAvailable ali você consegue pegar o retorno do comando... Um exemplo, que vêm com os componentes INDY:

 

procedure TfrmTelnetDemo.IdTelnetDemoDataAvailable(Sender: TIdTelnet;  const Buffer: String);{This routine comes directly from the ICS TNDEMO code. Thanks to Francois Piette It updates the memo control when we get data}const	CR = #13;	LF = #10;var	Start, Stop : Integer;begin  if Memo1.Lines.Count = 0 then	  Memo1.Lines.Add('');  Start := 1;  Stop  := Pos(CR, Buffer);  if Stop = 0 then	  Stop := Length(Buffer) + 1;  while Start <= Length(Buffer) do begin	  Memo1.Lines.Strings[Memo1.Lines.Count - 1] :=		  Memo1.Lines.Strings[Memo1.Lines.Count - 1] +		  Copy(Buffer, Start, Stop - Start);	  if Buffer[Stop] = CR then begin		  Memo1.Lines.Add('');		  {$IFNDEF Linux}		  SendMessage(Memo1.Handle, WM_KEYDOWN, VK_UP, 1);		  {$ENDIF}	  end;	  Start := Stop + 1;	  if Start > Length(Buffer) then		  Break;	  if Buffer[Start] = LF then		 Start := Start + 1;	  Stop := Start;	  while (Buffer[Stop] <> CR) and (Stop <= Length(Buffer)) do		  Stop := Stop + 1;  end;end;

[thiagocruz 0]

sÓ AO CONECTAR APARCE ISSO!!!"220 CEDAENX ASERIES SMTP SERVICE READY"

[marcio.theis 3]

Pelo jeito confirmação que aceitou a conexão...

[thiagocruz 0]

eNTAUM PODE SER O SEGUINTE PQ ESTE CONDIGO JAH ESTA NO MEU PROGRAMA, INTAUM NAUM ESTOU CONSEGUINDO MANDAR OS CODIGOS SÓ PODE SER ISSO... POIS ACHO QUE ELE ME MANDOU UM RETORNO!TAMBEM ACHEI ISSO!!!

[marcio.theis 3]

Não tem um suporte para este sistema que você poderia entrar em contato e eles lhe informar como deve proceder ?

[thiagocruz 0]

Ele saum cheio de merdinha.... entaum naum dah para Falar

[marcio.theis 3]

Entendi... Mas pelo menos informam parametrização como deve de ser, ou exemplos de como fazer ?Pelo menos isso devem de informar...