Phänomen bei Telnet-Client

[Odeng]

Hallo und guten Abend :-)
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:

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?

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 :-)

[Odeng]

ich nochmal...
Leider habe ich den Beitrag völlig falsch abgelegt. ich habe aber leider keine Ahnung wie ich den vrschieben kann.
Verät mir das einer?


Sorry,
Oliver