Thema: Delphi Eigener Telnet Client

Einzelnen Beitrag anzeigen

Benutzerbild von Stony2k
Stony2k

Registriert seit: 21. Mai 2005
Ort: Moers
76 Beiträge
 
Delphi 7 Enterprise
 
#1

Eigener Telnet Client

  Alt 18. Mär 2006, 10:10
Hallo,

ich habe folgendes vor:
Wir haben ein Programm auf unserem Win23k Server am laufen, worauf man per Telnet zugreifen kann.
Sprich erst IP und Port, danach muss man seinen Username und PW eingeben.

Ist man nun erfolgreich verbunden, so kann man befehle an das Programm senden.

Hierzu habe ich etwas gefunden, was ich allerdigs weniger gebrauchen kann, da man dort kein Passwort oder sonstiges eingeben kann:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  with TCPClient do
  begin
    RemoteHost := '127.0.0.1';
    RemotePort := '2593';
    Connect;
    SendLn('GET /');
    SendLn('');
    while Connected and WaitForData(1000) do
      s.Add(ReceiveLn());
    Disconnect;
  end;
  ShowMessage(s.Text);
  s.Free;

end;
Kann mir da vielleicht wer helfen?
  Mit Zitat antworten Zitat