Ansynchroner Socket Fehler 10061

[Dragon27]

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!!

[static_cast]

Hi,

das gab hier schonmal guck mal da:
http://www.delphipraxis.net/internal...ct.php?t=31805