Hi,
ich schlage mich gerade etwas mit Telnet herum und benutze da TIdTelnet aus den Indys.
Jetzt hab ich aber ein Problem. Wenn ich einen Befehl vom Client zum Server schicken will und mache dies, wie in der Demo, über eine Eingabezeile, dann funktioniert Alles wie es soll! Wenn ich aber das Gleiche über einen Button, dem ich einen Befehl hinterlegt habe, machen will, dann macht er nach jedem übertragenen Zeichen scheinbar ein <CR> und nichts funktioniert.
Ich will mich übrigens auf einem Linux-Host einloggen.
So funktioniert es:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| 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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| 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; |
Wenn ich nun in die Eingabezeile meinen Anmeldenahmen eingebe(in diesem Fall root) und alles mit <ENTER> bestätige, dann kommt es am Server richtig an:
Quelltext
Wenn ich den Button klicke, dann kommt am Server folgendes an:
Quelltext
Ich benutze Turbo Delphi Professional.
Hoffe irgendjemand kann mir da weiter helfen.
Gruß
