Probleme mit TIdTelnet

[Phoenix]

Zitat von stk77:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  
var  
  i : integer;  
  s : string;  
begin  
  if IdTelnet1.Connected then  
    if (key = #13) then  
    begin  
      s := edit1.text;  
      for i := 1 to length(s) do  
        IdTelnet1.SendCh(s[i]);
  
      IdTelnet1.SendCh(#13);  
      edit1.Clear;  
    end;  
end;

und so komischerweise nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  s:string;  
  i:integer;  
begin  

  s := 'root';  

 
  if IdTelnet1.Connected then  
    for i := 1 to length(s) do  
    begin  
      IdTelnet1.SendCh(s[i]);  
      IdTelnet1.SendCh(#13);  
    end;  
end;

Funktioniert wie geschrieben. Durch das zusätzliche Begin / End in der Button-Click routine sendest Du ja auch nach jedem Zeichen das #13, im ersten Fall liegt das hinter der Schleife und nicht drin.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  s:string;  
  i:integer;  
begin  
  s := 'root';  
 
  if IdTelnet1.Connected then  

  for i := 1 to length(s) do  
  begin  
    IdTelnet1.SendCh(s[i]);  
  end;
    
  IdTelnet1.SendCh(#13);  
end;