Delphi-PRAXiS - Delphi Ansynchroner Socket Fehler 10061

Hallo,

habe gerade nen kleinen chat gecodet und immer wenn ich die verbindung herstellen will bekomm ich den Fehler:

Zitat:

Ansynchroner Socket Fehler 10061

Aber wieso hab alles richtig gemacht ;-) denke ich.....

Server und Client sind jedoch im gleichen programm auf unterschiedlichen forms... aber da läuft ja nur immer einer pro programm.

Quelltext des Servers:

Code:

			procedure TServerform.SpeedButton1Click(Sender: TObject);

begin

  ServerSocket1.Port := Spinedit1.value;

  ServerSocket1.active := true;

  serverrun:=true;

  speedbutton1.Hide;

  speedbutton2.show;

  label2.Caption:='Serververbindung ist AKTIV';

  label2.Font.Color:=clgreen;

end;

procedure TServerform.SpeedButton2Click(Sender: TObject);

begin

  ServerSocket1.active := false;

  serverrun:=false;

  speedbutton2.Hide;

  speedbutton1.show;

  label2.Caption:='Serververbindung ist INAKTIV';

  label2.Font.Color:=clred;

end;

Quelltext des Clients:

Code:

			procedure TClientForm.SpeedButton1Click(Sender: TObject);

begin

  ClientSocket1.Port := spinedit1.value; //Festlegung des Ports

  ClientSocket1.Host := edit2.text; //IP des Zielrechners

  ClientSocket1.active := true; //Aufbau der Verbindung

  speedbutton1.Hide;

  speedbutton2.show;

  label5.Caption:='Verbindung ist AKTIV';

  label5.Font.Color:=clgreen;

end;

procedure TClientForm.SpeedButton2Click(Sender: TObject);

begin

  ClientSocket1.Active:=false;

  speedbutton2.Hide;

  speedbutton1.show;

  label5.Caption:='Verbindung ist INAKTIV';

  label5.Font.Color:=clred;

end;

Danke für eure Hilfe!!