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;