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
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 
raziel: Delphi-Tags hinzugefügt
