Phänomen bei Telnet-Client: Writeln geht nicht...

**Odeng**

Hallo und guten Abend Smile
Zunächst, ich habe das Problem zwar bereits umgangen, finde die Lösung aber nicht schön:

Ich versuche mit einer TIDTelnet eine Verbindung zu einem Telnet-Server aufzubauen ein (oder mehrere) Kommandos zu übermitteln und mich dann wieder zu trenne. Das ganze wird hier zunächst über einen Button gestartet:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;

  const Buffer: String);

  procedure sendData(Data: String; CR: Boolean);

    var I: Byte;

  begin

    for I:=1 to Length(Data) do

    begin

      IdTelnet1.SendCh(Data[i]);

      sleep(10);

    end;

    if CR then

      IdTelnet1.SendCh(#13);

  end;

begin

  if (Pos('IPS1>',Buffer) > 0) then

    SendData('A', true)

  else if (Pos('Password:',Buffer) > 0) then

    SendData('', true)

  else if (Pos('Username:',Buffer) > 0) then

    SendData('admin', true);

  Memo1.Lines.Add(Buffer);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  IdTelnet1.Host:='192.168.2.103';

  IdTelnet1.Connect;

end;

Soweit zu meiner Lösung, denn dieser Code funktioniert.

Mein erste Versuch mit Writeln() schlug aber fehl. Und ich weiß nicht warum. Ich musste dieses Writeln() durch die Procedure sendData(Data: String; CR: Boolean); ersetzen, in der ich jedes Zeichen einzeln übermittle und ggf die "Zeile" mit einem CR abschließe. Dies macht doch aber Writeln im Prinzip auch, oder? Warum aber geht dann folgender Code nicht?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;

  const Buffer: String);

begin

  if (Pos('IPS1>',Buffer) > 0) then

    IdTelnet1.writeln('A')

  else if (Pos('Password:',Buffer) > 0) then

    IdTelnet1.writeln('')

  else if (Pos('Username:',Buffer) > 0) then

    IdTelnet1.writeln('admin');

  Memo1.Lines.Add(Buffer);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  IdTelnet1.Host:='192.168.2.103';

  IdTelnet1.Connect;

end;

BTW: Mich würde auch interessieren, ob es eine schönere Methode gibt, auf die Frage des Servers die entsprechende Antwort zu geben, als den gesendeten String zu untersuchen. Denn Diese Methode funktioniert nur bei EINEM speziellen Server und nur bei einer Version (Da sich ggf der Text ändern kann).)

Merci für eure Mühen

Oliver

(Und ich bitte um Entschuldigung, da ich warscheinlich gegen mindestens hundert Foren-Regeln verstoßen habe. Gestern schrieb ich den gleichen Artikel, habe diesen aber völlig falsch abgelegt. Bis jetzt hab eich nicht verstanden, wie ich diesen verschieben kann, sorry).

Phänomen bei Telnet-Client: Writeln geht nicht...

Phänomen bei Telnet-Client: Writeln geht nicht...

Forumregeln