2012/03/29

JAVA TCP連線

Server端

畫面截圖

Client端

畫面截圖

VB JAVA連線時 VB畫面

VB TCP連線

sckClosed = 0 --缺省值，關閉。
SckOpen = 1 --打開。
SckListening = 2 --偵聽
sckConnectionPending = 3 --連結掛起
sckResolvingHost = 4 --識別主機。
sckHostResolved = 5 --已識別主機
sckConnecting = 6 --正在連結。
sckConnected = 7 --已連結。
sckClosing = 8 --同級人員正在關閉連結。
sckError = 9 --錯誤

TCP-Server

程式碼

Option Explicit

Private Sub cmdSend_Click()

  Winsock1.SendData txtSend.Text

  Label2.Caption = Winsock1.State

End Sub

Private Sub Command1_Click()

Winsock1.Bind 7777, Winsock1.LocalIP

Label2.Caption = Winsock1.State

End Sub

Private Sub Command2_Click()

Label2.Caption = Winsock1.State

End Sub

Private Sub Command3_Click()

Winsock1.Listen

Label2.Caption = Winsock1.State

End Sub

Private Sub Command4_Click()

Winsock1.Close

Label2.Caption = Winsock1.State

End Sub

Private Sub Command5_Click()

Label2.Caption = Winsock1.State

End Sub

Private Sub Form_Load()

  'Winsock1.LocalPort = 7777

  'Winsock1.Listen  '監聽

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

  Dim strData As String

  Winsock1.GetData strData, vbString

  txtReceived.Text = strData

  If strData = "close" Then

    Winsock1.Close

    cmdSend.Enabled = False

    Winsock1.Listen

  End If

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

  Winsock1.Close

  Winsock1.Accept requestID  '改成接受

  cmdSend.Enabled = True

End Sub

截圖

Bind →  Command1

initial → Command2

Listen →  Command3
Close →  Command4
State →  Command5

TCP-Client

程式碼

Private Sub cmdConnect_Click()

  Winsock1.LocalPort = 0   '以便自動產生Local Port

  Winsock1.Connect "192.168.15.47"  '設定改成您 Server 電腦的IP 號碼

  Label1.Caption = Winsock1.State

End Sub

Private Sub cmdExit_Click()

  Winsock1.SendData "close"

  DoEvents

  Winsock1.Close

  Winsock1.LocalPort = 0

  Label1.Caption = Winsock1.State

End Sub

Private Sub cmdSend_Click()

  Winsock1.SendData txtOutput.Text

  DoEvents

  Label1.Caption = Winsock1.State

End Sub

Private Sub Command1_Click()

Winsock1.LocalPort = 0

Label1.Caption = Winsock1.State

End Sub

Private Sub Form_Load()

  Winsock1.RemotePort = 7777  '設定與Server端做Listen的Port相同

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Winsock1.State <> sckClosed Then

   cmdExit_Click

End If

End Sub

Private Sub Label2_Click()

nd Sub

Private Sub Label3_Click()

End Sub

Private Sub Winsock1_Connect()

If Winsock1.State = sckConnected Then

   lstInput.AddItem "Connected! LocalPort =" & Winsock1.LocalPort _

                    & " RemptePort = " & Winsock1.RemotePort

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

  Dim mydata As String

  Winsock1.GetData mydata, vbString

  lstInput.AddItem mydata

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

  lstInput.AddItem Description

End Sub

截圖

連線 →  cmdconnect
傳送 →  cmdSend
停止 →  cmdExit