0721 简单 TCP VB VC

0721 简单 TCP VB VC

Private Sub Form_Load()
\’将 LocalPort 属性设置为一个整数。
\’然后调用 Listen 方法。
tcpServer.LocalPort = 3333
tcpServer.Listen

End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
\’检查控件的 State 属性是否为关闭的。
\’如果不是，
\’在接受新的连接之前先关闭此连接。
If tcpServer.State <> sckClosed Then _
tcpServer.Close
\’接受具有 requestID 参数的
\’连接。
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
\’名为 txtSendData 的 TextBox 控件中
\’包含了要发送的数据。当用户往文本框中
\’键入数据时，使用 SendData 方法
\’发送输入的字符串。
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
\’为进入的数据声明一个变量。
\’调用 GetData 方法，并将数据赋予名为 txtOutput
\’的 TextBox 的 Text 属性。
Dim strData As String
tcpServer.GetData strData
Debug.Print strData
End Sub

if(!AfxSocketInit())
 &leftsign;
  AfxMessageBox("WindowsSocket初始化失败！");
  return 1;
 &rightsign;
  // Construct a socket
 if(!socket.Create())
 &leftsign; 
  AfxMessageBox("SOCKET创建失败！",MB_ICONSTOP);
  return 2;
 &rightsign; 

UINT CVC711fDlg::SocketClose()
&leftsign;
 socket.Close();
 return 0;
&rightsign;

UINT CVC711fDlg::SocketSend(char dataa[255])
&leftsign;
 socket.Send(dataa,strlen(dataa));
 return 0;
&rightsign;
void CVC711fDlg::OnCancel()
&leftsign;
 SocketClose();
 CDialog::OnCancel();
&rightsign;

if(!socket.Connect(ip,port))
 &leftsign;
  AfxMessageBox("SOCKET连接服务器失败！",MB_ICONSTOP);
  return 3;
 &rightsign;

历史博文

• Web Service xml - 2010
• 20080410 Eclipse java 开发 1 - 2009
• 20070801 Frameset TRIGGER - 2008
• 1222 watchthatpage gmail IMAP4 OE OUTLOOK - 2006