Fehlermeldung Asynchron

[MrGabba]

Hallo, ich weiss, dass dieses Thema schon oft behandelt wurde und es wird wahrscheinlich auch nur ein Anfängerfehler sein, aber ich hab schon gegoogelt und nichts gefunden.
Ich will ein Programm schreiben, das mit dem Server-Client Prinzip funktioniert und Daten übers Netzwerk austauscht. Ich hab einfach mal mit nem einfachen Beispiel angefangen und wollte nur nen Text verschicken. Sobald ich aber den Client aktiviere zeigt mir Delphi eine Fehlermeldung:


Im Projekt Projekt 1.exe ist eine Exeption der Klasse ESocketError aufgetreten. Meldung: 'Asnchroner Socket-Fehler 10049'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.


Ich poste einfach mal den Quelltext.

Delphi-Quellcode:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);{On ClientRead}
begin

  MSG:=Socket.ReceiveText ;


  Memo1.Lines.Add(MSG);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
Client:= TClientSocket.Create(Form1);

  Client.Port:=10024;

  Client.Host:='127.0.0.1';

  Client.Open;
  client.Active := true; {Anscheinend die Zeile die den Fehler verursacht}



  Client.Socket.SendText('Hallo!');


  Client.Close;
end;

procedure TForm1.init(Sender: TObject);
begin


  Server:= TServerSocket.Create(Form1);

  Server.Port:=10024;

  Server.Open;
  Server.Active := true;

end;

Wie kann ich diesen Fehler beheben?

Danke im Voraus

MrGabba

[fkerber]

Hi!

Dieser Fehler bedeutet, dass du die IP nicht zuweisen kannt. Probier also mal deine Adresse im Lan und nicht die Loopback-Adresse deines Rechners.


Ciao Frederic

[SirThornberry]

Hast du auch einen Server zu dem verbunden werden kann? Bevor du mit dem Client zu einem Server verbindest muss dieser auch aktiv geschalten werden.

[MrGabba]

Danke für die Antwort, habs mal ausprobiert und hab mich selber angepingt und dann die Adresse verwendet, hat aber leider nichts geändert. Ich bekomme immer noch die selbe Meldung.
Bin dankbar für jede Antwort,
mfg MrGabba

[MrGabba]

Ja, nen Server hab ich auch, der wird bei mir so gestartet und aktiviert:

Delphi-Quellcode:

procedure TForm1.init(Sender: TObject);
begin


  Server:= TServerSocket.Create(Form1);

  Server.Port:=10024;

  Server.Open;
  Server.Active := true;

end;

mfg MrGabba

[fkerber]

Hi!

Das habe ich auch gemerkt. Dann weiß ich im Moment nix, sorry.


Ciao Frederic

[MrGabba]

Naja, is nicht dringend, trotzdem Danke!!