Asynchroner Client Fehler 10049

[Delphi-Narr]

Hallo,
ich habe ein Problem mit einer Server-Socket Verbindung:
Ich habe eine Server-Applikation und eine Client-Applikation.

Hier der Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
     ip.caption:=Watch.LocalIP;
     Server.Open;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     Passiert.Lines.Add('Verbunden ('+TimeToStr(Now)+')');     
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     Passiert.Lines.add('Gestartet ('+TimeToStr(Now)+')')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin              
     Server.active:=False;
end;

und hier der Client:

Delphi-Quellcode:

procedure TForm1.ConnectClick(Sender: TObject);
begin
     CLient.Host:=ip.text;
     client.Active:=True;
     Client.open;
     Start.enabled:=True;   
     Passiert.Lines.Add('Verbunden ('+TimeToStr(Now)+')'); 
end;

procedure TForm1.StartClick(Sender: TObject);
begin
     Client.Socket.SendText('start');
     Passiert.Lines.add('Gestartet ('+TimeToStr(Now)+')')
end;

Beide laufen auf Port 8181 und ich möchte mich jetzt mit der Clientapplikation bei der Serverapplikation anmelden und "Start" schicken.
Bisher laufen beide Programme auf einem PC und wenn ich auf Verbinden klicke kommt folgender Fehler:
Asynchroner Socketfehler: 10049
Wo ist hier der Fehler?

Viele Grüße!

[fkerber]

Hi!

MSDN sagt dazu:

Zitat:

WSAEADDRNOTAVAIL (10049)

* Übersetzung : angeforderte Adresse kann nicht zuweisen.
* Beschreibung : die angeforderte Adresse ist in seinem Kontext ungültig. Dieser Fehler tritt i. d. r. aus Versuch (Wsapiref_6vzm.asp) binden an eine Adresse, die nicht für den lokalen Computer gültig ist. Dieser Fehler kann auch auftreten, von herstellen (Wsapiref_8m7m.asp) Sendto (Wsapiref_4sqa.asp) WSAConnect (Wsapiref_8kc2.asp), (Wsapiref_7dv6.asp) WSAJoinLeaf oder WSASendTo (Wsapiref_752q.asp), wenn der remote-Adresse oder den Port für einen Remotecomputer (z. B. Adresse oder Port 0) ungültig ist.

Grüße, Frederic

[Delphi-Narr]

Hm, danke... Aber was bedeutet das jetzt für mich??? Die iP Adresse existiert, Ports sind synchron und Server und Client laufen...

[c4rtm4n]

Hi,

probiere mal den Client auf einem anderen Port laufen zu lassen.
Es kann sein, dass der Server den Port durch Warten auf Verbindungen blockiert.

Gruß

[Delphi-Narr]

Hat leider überhaupt keine Wirkung

[c4rtm4n]

Welche Komponenten verwendest du denn?
Dann kann ich das mal nachbauen...

oder magst mal dein Projekt anhängen?