Entwickler-Ecke

Internet / Netzwerk - TClientSocket / TServerSocket


xthing - Sa 15.07.06 16:12
Titel: TClientSocket / TServerSocket
Hi Leute,

ich hab da eine Frage. Ich habe einen Client vom Typ TClientSocket und einen Server vom Typ TServerSocket. Wenn ich nun meinen Server starte und mitt einen Client darauf zugreife ist alles ok. Starte ich einen zweiten Client, werden alle Daten die der zweite Client vom Server anfordert, zum ersten client gesendet. Wie kann ich dem Server klarmachen, dass er die Daten immer zum richtigen Client sendet?

Source Code vom Server:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG := Socket.ReceiveText;

If MSG = 'add' then
Server.Socket.Connections[0].SendText(IntToStr(mathe.add(2,5)));

If MSG = 'mult' then
  Server.Socket.Connections[0].SendText(IntToStr(mathe.mult(2,5)));

end;



Könnt ihr mir helfen?

Vielen Dank im Voraus.

Gruss
xthing

Moderiert von user profile iconraziel: Delphi-Tags hinzugefügt


jakobwenzel - Sa 15.07.06 17:17

IMHO musst du zum Senden anstatt von Server.Socket.Connections[0] einfach Socket (Parameter der Prozedur) nehmen.


Narses - Sa 15.07.06 23:21

Moin!

Mir scheint, du brauchst einmal das volle Programm: ;)

FAQ: ...die Clients von TServerSocket auseinanderhalten? [http://www.delphi-library.de/topic_die+Clients+von+TServerSocket+auseinanderhalten_47183.html]
FAQ: Datenpakete bei den Socket-Komponenten auseinanderhalten [http://www.delphi-library.de/topic_Datenpakete+bei+den+SocketKomponenten+auseinanderhalten_56194.html]
FAQ: ...einen LAN/Internet-Chat mit TServer-/TClientSocket machen [http://www.delphi-library.de/topic_einen+LANInternetChat+mit+TServerTClientSocket+machen_60744.html]
Tutorial: Protokoll-Chat-Tutorial (TServerSocket/TClientSocket) v3.00 [http://www.delphi-library.de/topic_ProtokollChatTutorial+TServerSocketTClientSocket+v300_54269.html]

cu
Narses