zahra_67
یک شنبه 17 تیر 1386, 19:05 عصر
سلام . من دارمیه برنامه سرور کلاینت ساده مینویسم با استفاده از winsock ولی نمیدونم چرا همش توی این خطی که توی گیومه گذاشتم error میده !! اگه ممکنه راهنماییم کنین:. یه سوال البته این برنامه فرمیه که واسه سرورمه . برنامه مربوط به کلاینت رو پایین گذاشتم.دیگه هم دارم . توی vb 2005 کنترل winsock را از کجا باید روی فرم اضافه کرد؟؟
با تشکر
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
"tcpServer.SendData txtSendData.Text"
End Sub
Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
برنامه مربوط به کلاینت :
Private Sub Form_Load()
tcpClient.RemoteHost = "RemoteComputerName"
tcpClient.RemotePort = 1001
End Sub
Private Sub cmdConnect_Click()
tcpClient.Connect
End Sub
Private Sub txtSend_Change()
tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub
با تشکر
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
"tcpServer.SendData txtSendData.Text"
End Sub
Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
برنامه مربوط به کلاینت :
Private Sub Form_Load()
tcpClient.RemoteHost = "RemoteComputerName"
tcpClient.RemotePort = 1001
End Sub
Private Sub cmdConnect_Click()
tcpClient.Connect
End Sub
Private Sub txtSend_Change()
tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub