Delphi Telnet conectado com Mikrotik
Ola pessoal
Estou tentando criar um programa em Delphi 7 que se conecte via telnet ao mikrotik para controlar meus clientes, meus clientes se autenticam via pppoe, quero realizar os cadastros, alterações, bloqueios, rel. acesso etc..., porem a grande dificuldade é quanto a conexão Telnet do delphi no MT.
Achei um topico interessante com fonte e tudo da conexão delphi x mikrotik postado por um colega nosso, mais tem um erro que ainda naum consegui corrigir por isso peço a ajuda de vcs.
O erro ocorre da seguinte maneira:
Existe campos para vc colocar ip servidor, porta, usuario e senha, se vc apagar o usuario ou a senha e mandar conectar ele diz estar conectado, mais naum está. Tem alguma outra forma de pegar o retorno pra saber se realmente esta conectado(Em vermelho)? Segue a fonte para todos que possam analizar:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I: Integer;
begin
StatusBar1.SimpleText:= 'Tentando conectar com o servidor...';
if IdTelnet1.Connected then
IdTelnet1.Disconnect;
IdTelnet1.Host:= Edit1.Text;
IdTelnet1.Port:= StrToInt(Edit2.Text);
idTelnet1.Connect;
Pause(1);
IdTelnet1.WriteLn(Edit3.Text);
Pause(1);
IdTelnet1.WriteLn(Edit4.Text);
Pause(1);
if Length(Status) > 2 then
begin
StatusBar1.SimpleText:= 'Logado com sucesso';
SpeedButton1.Enabled:= false;
end
else
begin
StatusBar1.SimpleText:= 'Usuario ou senha invalida!';
SpeedButton1.Enabled:= true;
end;
end;
