otro cosa que hay que tomar encuenta
si no les funciona estos son los codigos Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
log.Text :='';
end;
procedure TForm1.telnetConnect;
begin
Log.Lines.Add( 'Conectando con ' + Telnet.Host + '.' );
Log.Lines.Add( '' );
end;
procedure TForm1.telnetDataAvailable(Buffer: String);
begin
Log.Text := Log.Text + Buffer;
Log.SelStart := Length( Log.Text );
end;
procedure TForm1.LogKeyPress(Sender: TObject; var Key: Char);
begin
if not Telnet.Connected then
Exit;
if Key = #13 then
begin
log.Text :='';
Telnet.WriteLn(sComando );
sComando := '';
end
else
sComando := sComando + Key;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
telnet.Disconnect;
exit;
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Telnet.Host := IPServidor.Text;
Telnet.Port := StrToInt( Puerto.Text );
Telnet.Connect;
log.Text :='';
Log.SetFocus;
end;
end.
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
|