Indy Tcp-Server funtzt net :-(!

rubooo · Beiträge: 52 WIN XP Delphi 2005 Prof

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Active := True;
  Application.ShowMainForm := false;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var user:String;
begin
  with AThread.Connection do

  begin
    WriteLn('Username eingeben: ');
    ReadLn(user);
    if user = 'admin' then WriteLn('akzeptiert...');
  end;
end;

end.

wenn ich nun über telnet connecte (telnet localhost 1234) dann funtzt zwar die verbindung , jedoch wenn ich den username eingebe dann kommt nicht die meldung 'akzeptiert...' !

kann mir einer sagen wo das dran liegt ?!

Einloggen, um Attachments anzusehen!

WeBsPaCe · Verfasst: Mo 30.05.05 14:07

Lass dir doch einfach mal ausgeben, was er empfangen hat.

Debugging... :tongue:

rubooo · Beiträge: 52 WIN XP Delphi 2005 Prof

versteh ich net ! :shock:

was muss ich da machen ???
bin neuling

WeBsPaCe · Verfasst: Mo 30.05.05 14:23

Ich dachte an sowas.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Active := True;
  Application.ShowMainForm := false;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var user:String;
begin
  with AThread.Connection do

  begin
    WriteLn('Username eingeben: ');
    ReadLn(user);
    if user = 'admin' then WriteLn('akzeptiert...')
    else WriteLn('Nix da mit '+user);
  end;
end;

end.

rubooo · Beiträge: 52 WIN XP Delphi 2005 Prof

ich wäs nicht was das nützen soll !

ich meine dann passiert genau so wenig ! es kommt die elsebedinung aber der username wird nicht hintendran gehängt !

edit:warum kann mir auf einem so riesigen forum keiner helfen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme