object ServerSocket1: TServerSocket
Active = True
Port = 50
ServerType = stNonBlocking
OnAccept = ServerSocket1Accept
OnClientRead = ServerSocket1ClientRead
Left = 32
Top = 24
end
object ClientSocket1: TClientSocket
Active = True
ClientType = ctNonBlocking
Host = 'sweetch' //或主机的 IP 地址
Port = 50
OnConnecting = ClientSocket1Connecting
OnConnect = ClientSocket1Connect
OnRead = ClientSocket1Read
OnError = ClientSocket1Error
Left = 32
Top = 24
end
//这是个最简单的 Socket 程序