那位仁兄帮忙看一下代码（端口通信）100分送！见着有分！！最好详细解释（我是用delphi的）

Question

'信息2002.3.1
'Print #Filenum, "姓名=";// 设置二进制数组，Buf(0)--Buf(7)是八字节的消息头
buf(0) = Chr(&HFF)
buf(1) = Chr(8)
buf(4) = Chr(1)
buf(5) = Chr(0)
buf(6) = Chr(0)
buf(7) = Chr(0)j = 7        //
longc = 7
longb = 8
Dim xm$, lxm
Static zj As Integer
zj = 0
xm = TxtFields(22).Text     //读入要发送的字串
lc = Len(xm)                //取字串长度
lb = LenB(StrConv(xm, vbFromUnicode))       //取字串二进制长度
longc = longc + 2 + lc// 生成发送的Buf数组
buf(j + 1) = Chr(1)
For i = 1 To lc Step 1
 buf(j + 2 + i) = Mid(xm, i, 1)
  Next i
 buf(j + 2) = Chr(lb + 2)
longb = longb + 2 + lb
j = j + 2 + lc// 如果Winsock1未关闭，就关闭它
If Winsock1.State <> 0 Then Winsock1.CloseWinsock1.RemoteHost = ipadress                 // 设置远程IP地址
Winsock1.RemotePort = dksz                     // 远程访问端口
Winsock1.Protocol = sckTCPProtocol             // 传输使用协议
Winsock1.Connect                               // 连接到远程主机
Do
DoEvents
Loop Until Winsock1.State = sckConnected       // 直到连接成功 ''''    If (n > 0) Then
''''        MsgBox "数据发送成功！"
''''    Else
''''        MsgBox "数据发送失败！"
''''    End If// 下面循环发送数组内容
For i = 0 To longc Step 1
Winsock1.SendData buf(i)