Socket
( . Socket , ) , . 2 , . : , . . , , .
Delphi TclientSocket TserverSocket, Internet. Delphi7 , TClientSocket TServerSocket Internet, :
Component -> Install Packages -> Add dclsockets70.bpl
TclientSocket TserverSocket , . , . , IP .
Server.
, .
ServerSocket :
Port=1025 ( , 1024)
Active=False.
OnClientRead :
Var S:String;I:Integer;
Begin
S:=IntToStr(Socket.SocketHandle)+' > '+Socket.ReceiveText;
ListBox1.Items.Add(S);
For I:=0 To ServerSocket1.Socket.ActiveConnections-1 Do Begin
If ServerSocket1.Socket.Connections[i].SocketHandle<> Socket.SocketHandle Then
ServerSocket1.Socket.Connections[i].SendText(S);
End;
End;
:
Begin
ServerSocket1.Active:=True;
end;
Begin
ServerSocket1.Active:=False;Close;
end;
Begin
ListBox1.Clear;
end;
.
