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?

[inherited]

1337=leet=elite. Es gibt eine Menge leute die das total lustig finden: n0c|-| n13 s0w45 g31353n?

[arbu man]

Zitat:

n0c|-| n13 s0w45 g31353n

Was heißt das jetz auf Deutsch ?

[Zacherl]

Noch nie sowas gesehen, denke ich ...
Auf jeden Fall gehört es nicht hierhin, wie ich finde.

Florian

[inherited]

Zitat:

noch nie sowas gelesen?

Aber wir OT'en

[tail]

Naja, mir ist kein besserer Port eingefallen :stupid:
Aber wieso liegt der in einem nich freuen Bereich? Gibt es dazu etwas näheres? ;)
Aber mit nem andern Port geht es auch nicht, aber ich habe den Fehler gefunden :D
Ich habe als Host den Inhalt des falschen Edits genommen. den vom Nick und der Host war der Nick :stupid:
Hat sich dann erledigt ;)