also, ich habe versucht 2 programme zu schreiben, eins als clienten mit nem clientsocket und der server mit nem serversocket.
Der client sendet in regelmäßigen abständen strings an den server. Dieser sollte wiederum diese strings an alle zu ihm verbundenen clients schicken.
Im Serverfenster kommen die strings des clienten an, ich habe sie über ein Memo ausgeben lassen. Allerdings scheint der Server sie nich wieder an die clients zu schicken, bei denen kommt nämlich nichts mehr an....
Hier is erstmal der Client Code:
Aktivierung des ClientSockets
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:='Connecting...';
ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Open;
end; |
Senden der Strings
Delphi-Quelltext
1:
| ClientSocket1.Socket.SendText(sx); |
Code für das Empfangen der Strings:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var text:string;
begin
text:=socket.receivetext;
MEmo1.Lines.Add(socket.receivetext);
end; |
Hier jetzt der Server-Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var i:integer;
begin
Memo1.Lines.Add(socket.receivetext);
For I := 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin with ServerSocket1.Socket.Connections [I] do
if (Connected) then SendText(socket.receivetext); end;
end; |
ich glaube der Fehler liegt irgendwo im
markierten bereich, hab aber eigentlich keine Ahnung warum das nich klappt!
wär nett wenn jemand mir auf die sprünge helfen könnte.....
mtin