ACC2000: ????? ?????? ???? ??????? ???? ???? ActiveX Winsock

?????? ????????? ?????? ?????????
???? ???????: 209905 - ??? ???????? ???? ????? ????? ??? ???????.
??????: ????? ????? ?????? ??????? ??????? ???????? ? ?????? ?????? ??????????.

??? ????? ??? ?????? ??? ??? ????? ?????? Microsoft Access (.mdb).

????? ???? | ?? ????

?? ??? ??????

??????

???? ??? ??????? ??? ????? ??? ??????? ???? ???? Winsock ActiveX ??????? ?? ????? ??????? Microsoft Office 2000 ?????? ?????.

??????? ????

???? ???? ???? Winsock ??????? ??? ????????? ???? ??????? ????? ??? ????? ??????? ?????? ???????. ????? ???? ???? Winsock ????????: ???????? ?????? ???????? (TCP) "?" ???????? ???? ?????? ???????? (UDP).

TCP ???????? ???????? ??? ???????. analogy ????? ????????? ???? TCP ???? ????. ?? ??? analogy ??? ?? ???????? ????? ????? ??? ???? ?? ?????? ??? ?? ???? ????? ?????????. ??? ?? ????? ??????? ???????? TCP ??????? ?? ????????? ??????? ????? ?? ?? ??????? ?? ??? ????? ????????? ??? ????????.

UDP ???????? ???? ?????. analogy ????? ????????? ???? UDP ???? ???????. ?? ??? analogy ???? ???? ????? ?? ????? ??? ????? ??? ??? ??? ??? ???????? ??? ???. ???? ?????? ??????? ???????? UDP ? ?? ????? ????? ?? ????????? ??? ????? ??????? ?????????.

?????? 1 - ??????? ???? ???? ActiveX Winsock ?? TCP

?????? ??? ?????? ??? ????????? ?? ????? ???????? ???????. ????? ????? ???????? ????? ????? ???? Winsock. ??? ????? ?????? ??????? ???? ????????? ?????? ?????? ??? ????? ??? ????. ?????? ????? ???? ???? ?????? ??? ??????? ????: ???? ???? ???? ???? ????? ? ????? ????? ???? ????? ????? ????? ?????.
  1. ????? ????? ?????? ????? ????? ???? WinsockDemo.mdb.
  2. ????? ????? ???? ??????? (?? ????? ??? ?? ???? ?? ???????) ?? ????? ????? "?????":
       Form: TCPForm
       ---------------------------------
       Caption: TCP Form
    
       Command button:
          Name: cmdListen
          Caption: Listen
       Command button:
          Name: cmdConnect
          Caption: Establish Connection
       Command button:
          Name: cmdSend
          Caption: Send Data
       Command button:
          Name: cmdRespond
          Caption: Respond
       Command button:
          Name: cmdClose
          Caption: Close Connection
       Text box:
          Name: Text1
          Label Caption: Data Received:
       Winsock control:
          Name: axWinsockListen
       Winsock control:
          Name: axWinsockClient
       Winsock control:
          Name: axWinsockServer
    					
  3. ?? ??????? ???? ???? ??? ?????.
  4. ???? ????? ?????? ?? ?????? ????? ??? ?????? ??????? ???????:
    Dim wsListen, wsClient, wsServer As Winsock
    					
  5. ???? ????????? ???????.

    ?????? ????? ??? ???? ???? Winsock ??? ?????? ???????, ?????? ?????? ????????? ???????? ?? ??????? ???? ??????.
    Private Sub Form_Load()
       ' Set one server Winsock control and the client Winsock control
       ' when the form loads.
       Set wsListen = Me!axWinsockListen.Object
       Set wsClient = Me!axWinsockClient.Object
    
       ' Set the protocol for each control.
       wsListen.Protocol = sckTCPProtocol
       wsClient.Protocol = sckTCPProtocol
    
       ' Set the remote host on the client Winsock control. Because
       ' client and server are the same computer in this example, set
       ' RemoteHost equal to LocalIP.
       wsClient.RemoteHost = wsListen.LocalIP
    
       ' Set a local and a remote port for the client.
       wsClient.RemotePort = 100
       wsClient.LocalPort = 99
    
       ' Set a local and a remote port for the server. Note that the
       ' server RemotePort is the client LocalPort and vice versa.
       wsListen.LocalPort = 100
       wsListen.RemotePort = 99
    End Sub
    
    Private Sub cmdListen_Click()
       ' Start the server listening for a connection request.
       wsListen.Listen
       Msgbox "Server is waiting for a connection request."
    End Sub
    
    Private Sub cmdConnect_Click()
       ' The client requests a connection with the server.
       Msgbox "Client requested connection with server."
       wsClient.Connect
    End Sub
    
    Private Sub axWinsockListen_ConnectionRequest(ByVal requestID As _
       Long)
       ' When the server receives a connection request, set the second
       ' Winsock on the server to accept the request.
       Set wsServer = Me!axWinsockServer.Object
       wsServer.Protocol = sckTCPProtocol
    
       ' Accept the connection request.
       wsServer.Accept requestID
       Msgbox "Server accepted client connection request."
    End Sub
    
    Private Sub axWinsockClient_Connect()
       ' When the server accepts the connection request, the Connect
       ' event fires on the client. Display a message indicating success.
       MsgBox "Connection Successful!"
    End Sub
    
    Private Sub cmdSend_Click()
       ' After a connection is established, use a command button to send
       ' data from client to server.
       wsClient.SendData "Hello"
    End Sub
    
    Private Sub axWinsockServer_DataArrival(ByVal bytesTotal As Long)
       Dim strClientMsg As String
    
       ' The DataArrival event fires on the server when the client sends
       ' information. Get the data and display it in a text box.
       wsServer.GetData strClientMsg, vbString
       Me!Text1.Value = strClientMsg
    End Sub
    
    Private Sub cmdRespond_Click()
       ' Send a message from the server to the client.
       wsServer.SendData "Thanks for the message!"
    End Sub
    
    Private Sub axWinsockClient_DataArrival(ByVal bytesTotal As Long)
       Dim strServerMsg As String
    
       ' The DataArrival event fires on the client when the server sends
       ' information. Get the data and display it in a text box.
       wsClient.GetData strServerMsg
       Me!Text1.Value = strServerMsg
    End Sub
    
    Private Sub cmdClose_Click()
       ' Close the server connections
       wsServer.Close
       wsListen.Close
       Msgbox "Server connections closed."
    End Sub
    
    Private Sub axWinsockClient_Close()
       ' Close event on client fires after server closes connection.
       ' Close the client connection and display a message box.
       wsClient.Close
       MsgBox "Client connections closed. Good-Bye!"
    End Sub
    					
  6. ???? ????? TCPForm.
  7. ???? TCPForm ?? ????? ????? "?????" ?????? ?????? ???????:
    1. ???? ??? ???? "????????" ??? ????? ?????? ?? ???????? ??? ?????.

      ???? ???? ???? ??????? ???? ???? ?????? ?????? ????? ???????.
    2. ???? ??? ???? ????? ???????.

      ?????? ???? ????? ?? ???? ?????? ?? ???? ??????? ???? ??????? ?? ?????? ?????? ?? ???? ?????.
    3. ???? ??? ???? ????? ???????? ????? ???? ??????? ?????? "??????" ?? ???? ???? ?? ???????.
    4. ???? ??? ???? ????????? ????? ??? ??? ??? ????? ???? "????? ???????!" ?? ???? ????.
    5. ???? ??? ???? ????? ??????? ????? ?????? ??????? ?? ?????? ??????? ???? ??? ????? ?????????.

?????? 2 - ??????? ???? ???? ActiveX Winsock ?? UDP

?????? ??? ?????? ??? ????????? ?? ????? ???????? ???????. ????? ????? ?? ????? ???? Winsock: ??? ????? ?????? ??????? ???? ????????? ?????? ? ???? ???? ??? ??????? ??????.
  1. ????? ????? ?????? ????? ????? ???? WinsockDemo.mdb ?? ??????? ????? ???????? ???? ?????? ?? ?????? ??????.
  2. ????? ????? ???? ??????? (?? ????? ??? ?? ???? ?? ???????) ?? ????? ????? "?????":
       Form: UDPForm
       --------------------------------
       Caption: UDP Form
    
       Command button:
         Name: cmdSend
            Caption: Send Data
         Text box:
            Name: Text1
            Label Caption: Data Received:
         Winsock control:
            Name: axWinsockClient
         Winsock control:
            Name: axWinsockServer
    					
  3. ?? ??????? ???? ???? ??? ?????.
  4. ???? ????? ?????? ?? ?????? ????? ??? ?????? ??????? ???????:
    Dim wsClient, wsServer As Winsock
    					
  5. ???? ????????? ???????.

    ?????? ????? ??? ???? ???? Winsock ??? ?????? ???????, ?????? ?????? ??? ??? ????????? ???????? ???? ??????.
    Private Sub Form_Load()
       ' Set the control objects when the form loads.
       Set wsClient = Me!axWinsockClient.Object
       Set wsServer = Me!axWinsockServer.Object
    
       ' Set the protocol for client and server.
       wsClient.Protocol = sckUDPProtocol
       wsServer.Protocol = sckUDPProtocol
    
       ' Set the host and ports for client and server. Because client
       ' and server are the same computer in this example, set RemoteHost
       ' equal to LocalIP.
       wsServer.RemoteHost = wsClient.LocalIP
       wsServer.RemotePort = 1007
       wsClient.Bind 1007
    End Sub
    
    Private Sub CmdSend_Click()
       ' Send a broadcast message from the server.
       wsServer.SendData "Hello"
    End Sub
    
    Private Sub axWinsockClient_DataArrival(ByVal bytesTotal As Long)
       Dim strServerMsg As String
    
       ' When a message arrives from the server, display it in a text
       ' box.
       wsClient.GetData strServerMsg, vbString
       Me!Text1.Value = strServerMsg
    End Sub
    					
  6. ???? ????? ??????? UDPForm.
  7. ???? UDPForm ?? ????? ????? "?????" ?? ???? ??? ???? ????? ????????.

    ???? ?? ???? ???? ???? "??????." ??? ????? ???? ????? ??? ???? ?????? ????? ???? - ????.

???????

???? ???????: 209905 - ????? ??? ??????: 10/????? ??????/1425 - ??????: 2.0
????? ???
  • Microsoft Access 2000 Standard Edition
????? ??????: 
kbmt kbhowto kbinfo kbusage KB209905 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????209905

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com