ACC2000: µÑÇÍÂèÒ§Êͧ·ÕèãªéµÑǤǺ¤ØÁ activex Winsock

º·¤ÇÒÁ¹ÕéáÊ´§µÑÇÍÂèÒ§·ÕèÊͧ¢Í§ÇÔ¸Õ¡ÒÃãªéµÑǤǺ¤ØÁ Winsock ActiveX ·ÕèµÔ´µÑ駾ÃéÍÁ¡Ñºà¤Ã×èͧ Microsoft Office 2000 ¹Ñ¡¾Ñ²¹Ò Edition Á×Í

µÑǤǺ¤ØÁ Winsock ªèÇÂãËé¤Ø³ÊÒÁÒöàª×èÍÁµèÍä»ÂѧÃÕâÁ·¤ÍÁ¾ÔÇàµÍÃìáÅÐÍѵÃÒáÅ¡à»ÅÕè¹¢éÍÁÙÅÃÐËÇèÒ§¤ÍÁ¾ÔÇàµÍÃìä¤Åà͹µìáÅÐà«ÔÃì¿àÇÍÃì µÑǤǺ¤ØÁ Winsock ʹѺʹعâ¾Ãâ·¤ÍÅÊͧ: Ê觤Ǻ¤ØÁâ¾Ãâ·¤ÍÅ (TCP) áÅÐâ¾Ãâ·¤ÍÅà´µÒá¡ÃÁ¼Ùéãªé (UDP)

tcp à»ç¹â¾Ãâ·¤ÍÅẺàª×èÍÁµèÍ analogy ·ÑèÇä»·Õèãªéà¾×èÍ͸ԺÒ TCP à»ç¹¢Í§â·ÃÈѾ·ì ã¹ analogy ¹Õé ¼ÙéàÃÕ¡µéͧÊÃéÒ§¡ÒÃàª×èÍÁµèͺ¹·Ñé§ÊÔé¹ÊØ´¢Í§ÊÒÂâ·ÃÈѾ·ì¡è͹·Õè¨ÐÊÒÁÒöáÅ¡à»ÅÕè¹¢éÍÁÙÅ ¤ÍÁ¾ÔÇàµÍÃìâ´Âãªé TCP µéͧÃѺ¡ÒÃÂ×¹Âѹ¨Ò¡¤ÍÁ¾ÔÇàµÍÃìà¤Ã×èͧÃѺ·Õèä´éÃѺ¡ÒÃàª×èÍÁµèÍ·ÕèÊÃéÒ§äÇé¡è͹·Õè¤ÍÁ¾ÔÇàµÍÃìÊͧà¤Ã×èͧÊÒÁÒö¶èÒÂâ͹¢éÍÁÙÅ

udp à»ç¹â¾Ãâ·¤Í connectionless analogy ·ÑèÇä»·Õèãªéà¾×èÍ͸ԺÒ UDP à»ç¹¢Í§ÇÔ·ÂØ ã¹ analogy ¹Õé ʶҹÕÇÔ·ÂØ¡ÃШÒÂÊÑ­­Ò³¹Ñé¹â´ÂäÁè·ÃÒºÍÂèÒ§á¹èã¨ÇèÒÇèÒã¤Ã¡çµÒÁ¡Òÿѧ ¤ÍÁ¾ÔÇàµÍÃì·Õèãªé UDP Ê觢éÍÁÙÅ áÅÐäÁè¨Óà»ç¹µéͧàª×èÍÁµè͡Ѻ¤ÍÁ¾ÔÇàµÍÃì㹡ÒÃÃѺÊÔ¹¤éҨشÊÔé¹ÊØ´¢Í§¡ÒÃÊ觼èÒ¹

µÑÇÍÂèÒ§·Õè 1 - ¡ÒÃãªéµÑǤǺ¤ØÁ activex Winsock ¡Ñº TCP

µÑÇÍÂèÒ§¹Õéãªé¤ÍÁ¾ÔÇàµÍÃìà¤Ã×èͧà´ÕÂÇà¾×èÍÊè§ áÅÐÃѺ¢éÍÁÙÅ ¤Ø³ÊÒÁÒöÊÃéÒ§¿ÍÃìÁ ´éǵÑǤǺ¤ØÁ Winsock ·ÕèÊÒÁ µÑǤǺ¤ØÁÍÂèÒ§ã´ÍÂèҧ˹Öè§ emulates Ãкº¤ÍÁ¾ÔÇàµÍÃìä¤Åà͹µìÊ觡ÒÃÃéͧ¢Í¡ÒÃàª×èÍÁµè͡Ѻà«ÔÃì¿àÇÍÃì µÑÇÊͧ¤Çº¤ØÁÍ×è¹ æ ¢Í§Ãкºº¹¤ÍÁ¾ÔÇàµÍÃìà«ÔÃì¿àÇÍÃì·ÕèàÅÕ¹Ẻ: µÑǤǺ¤ØÁ˹Öè§ÃÍ¡ÒÃÃéͧ¢Í¡ÒÃàª×èÍÁµèÍ áÅÐÍ×è¹ æ ÂÍÁÃѺ¡ÒÃÃéͧ¢ÍàÁ×èÍÁѹÁÒ

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. ¾ÔÁ¾ì¢Ñ鹵͹µèÍ仹Õé
   
   àÁ×è͵éͧ¡ÒÃáÊ´§ãËéàËç¹ optimally ¶Ö§ÇÔ¸Õ¡ÒäǺ¤ØÁ 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. ¤ÅÔ¡¡ÒÃÊ觢éÍÁÙÅ»ØèÁ áÅÐËÁÒÂà˵ØÇèÒ¢éͤÇÒÁ "Hello" ä¤Åà͹µì»ÃÒ¡¯ã¹¡Åèͧ¢éͤÇÒÁº¹áºº¿ÍÃìÁ
   4. ¤ÅÔ¡¡Òõͺʹͧ»ØèÁ áÅÐâ»Ã´·ÃÒºÇèÒ ¢éͤÇÒÁà«ÔÃì¿àÇÍÃì "¢Íº¤Ø³ÊÓËÃѺ¢éͤÇÒÁ¶Ù¡áÊ´§ã¹¡Åèͧ¢éͤÇÒÁ
   5. ¤ÅÔ¡¡ÒûԴ¡ÒÃàª×èÍÁµèÍ»ØèÁ áÅкѹ·Ö¡Âèͧ͢¢éͤÇÒÁ¡Åèͧ¨Ò¡ä¤Åà͹µìáÅÐà«ÔÃì¿àÇÍÃì·ÕèÃкØÇèÒ ¡ÒÃàª×èÍÁµèÍä´é»Ô´

µÑÇÍÂèÒ§·Õè 2 - ¡ÒÃãªéµÑǤǺ¤ØÁ activex Winsock ´éÇ UDP

µÑÇÍÂèÒ§¹Õéãªé¤ÍÁ¾ÔÇàµÍÃìà¤Ã×èͧà´ÕÂÇà¾×èÍÊè§ áÅÐÃѺ¢éÍÁÙÅ ¤Ø³ÊÃéÒ§¿ÍÃìÁ·Õè ÁÕ¡ÒäǺ¤ØÁ Winsock ·ÕèÊͧ: ˹Ö觢ͧµÑǤǺ¤ØÁ emulates ¤ÍÁ¾ÔÇàµÍÃìä¤Åà͹µì áÅеÑǤǺ¤ØÁÍ×è¹ æ emulates à«ÔÃì¿àÇÍÃì

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. ¾ÔÁ¾ì¢Ñ鹵͹µèÍ仹Õé
   
   àÁ×è͵éͧ¡ÒÃáÊ´§ãËéàËç¹ optimally ¶Ö§ÇÔ¸Õ¡ÒäǺ¤ØÁ 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 ã¹ÁØÁÁͧ¿ÍÃìÁ áÅФÅÔ¡¡ÒÃÊ觢éÍÁÙÅ»ØèÁ
   
   â»Ã´ÊѧࡵÇèÒ ¡Åèͧ¢éͤÇÒÁáÊ´§ "Hello" à¹×èͧ¨Ò¡à»ç¹Ê觢éÍÁÙÅ connectionless ¤Ø³äÁèÁÕ¡ÒÃÊÃéÒ§¡ÒÃàª×èÍÁµèÍä¤ÅàÍç¹µìà«ÔÃì¿àÇÍÃì