Indy - TCP Client verbindet nicht zu Server

[tail]

Ich will einen Chat Programmieren. Jetzt scheitert es aber schon beim Verbinden :(
Ich habe einen Clienten und Server. Der Server ist gestartet und läuft. Und ich habe einen Clienten. Der soll zum Server verbinden, das tut aber irgentwie nicht.

Meine Codes:
Server starten:

Delphi-Quellcode:

if IdTCPServer1.Active = False then
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  SpinEdit1.Enabled := False;
  IdTCPServer1.DefaultPort := SpinEdit1.Value;
  IdTCPServer1.Active := True;
  Label2.Caption := 'Online';
  Label2.Font.Color := clGreen;
  Button1.Enabled := True;
  Button1.Caption := 'Server Stoppen';
end
else
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  IdTCPServer1.Active := False;
  Label2.Caption := 'Offline';
  Label2.Font.Color := clRed;
  SpinEdit1.Enabled := True;
  Button1.Enabled := True;
  Button1.Caption := 'Server Starten';     
end;

Client verbinden:

Delphi-Quellcode:

if IdTCPClient1.Connected = False then
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  SpinEdit1.Enabled := False;
  IdTCPClient1.Connect(Edit1.Text, SpinEdit1.Value);
  if IdTCPClient1.Connected = True then
  begin
    Label2.Caption := 'Online';
    Label2.Font.Color := clGreen;
    Button1.Caption := 'Trennen';
  end
  else
  begin
    Button1.Caption := 'Verbinden';
    ShowMessage('Es ist ein Fehler beim Verbinden aufgetreten.');
  end;
  Button1.Enabled := True;

end
else
begin
  Button1.Caption := 'Bitte warten';
  Button1.Enabled := False;
  IdTCPClient1.Disconnect;
  Label2.Caption := 'Offline';
  Label2.Font.Color := clRed;
  SpinEdit1.Enabled := True;
  Button1.Enabled := True;
  Button1.Caption := 'Verbinden';     
end;

[gmc616]

Ich sehe nirgens, das du dem TTCPClient einen Port für die Kommunikation mit gibst.
Da fehlt wohl ein:

Delphi-Quellcode:

IdTCPClient1.Port := SpinEdit1.Value;

Client und Server müssen auf dem gleichen Port arbeiten.

[tail]

Ich weiß. Port ist auch drin.

Delphi-Quellcode:

IdTCPClient1.Connect(Edit1.Text, SpinEdit1.Value);

SpinEdit1.Value ist der Port. Guck dir mal die Syntax an ;)

[Harry M.]

Welche Fehlermeldung kommt??

[tail]

Gar keine. Nur meine eigene :(

[inherited]

wo läuft denn der server? auf dem gleichen rechner, also connectest du via 127.0.0.1? Oder wie machst du das^^
sicher das der port derselbe ist? Tritt wirklich keine Exception auf?

[tail]

Zitat:

Zitat von inherited

wo läuft denn der server? auf dem gleichen rechner, also connectest du via 127.0.0.1? Oder wie machst du das^^
sicher das der port derselbe ist? Tritt wirklich keine Exception auf?

Localhost, also auf dem selben Rechner. Port ist bei beiden 1337
Exceptions sind keine da :(

[Sharky]

Zitat:

Zitat von tail

... Port ist bei beiden 1337 ...

Warum nimmst Du denn einen Port aus einem "nicht freien Bereich"? Und dann auch noch einen der wohl auch von einem Trojaner genutzt wird?

[inherited]

Weil 13,37% aller leute einen leet-tick haben :roll:

[Sharky]

:?: Was möchtest Du uns denn mit diesem hochgeistigen Beitrag sagen?