socket发送工具(socket发送文件)

双工？就是读写分开线程。。。。。。。。。。。如果连接被关闭，就重新打开连接

先解释概念性的东西。 1、何为网络socket——如果有两个不同机器上的进程需要通话（譬如RPC调用，文件传输），那么它们之间就需要建立一个网络连接。该连接的两端就是socket。你可以这么理解：socket是进程之间用来对话的中间层工具。2、本地绑定一个端口——如前所述，socket是一个中间层工具，它存在于操作系统的内核。电脑上的进程为了真正通过socket来发送／接受数据，socket必须和一个能够进行数据传送的接口连接起来，再通过那个接口送出数据。这个接口就是端口，而这个连接的过程就叫做绑定。3、与另一个IP、端口发起连接——既然socket可以介于两个不同的机器的进程之间，那么它当然需要连接另一台机器上的进程。它需要通过IP地址和端口号来识别对方的机器和进程。再说TClientSocket：这个类是专门用来描述TCP客户端的socket的。建立socket：这个不用说吧？绑定本地端口：用bind()函数——bind(Socket->SocketHandle, Addr, sizeof(Addr))，Addr的类型是TSockAddrIn * 与另一个IP和端口发起连接：socket->Address和socket->Port赋值成远程IP地址和端口号，调用socket->Open()
多谷歌
先去看tcpip协议就知道了

1、首先看控件区有无串口控件，表明串口控件并未被启用，选择工程→部件→Micosoft comm Control6.0选项，点击应用，即可添加串口控件。2、绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令，添加串口控件。3、编写程序：    Private Sub Command1_Click() MSComm1.Output = Text2.Text ‘发送数据End Sub Private Sub Form_Load()。4、串口数据的收发都正常。
在VB6中利用Winsock实现数据的发送和接收。下面的代码实现了两个程序：发送端程序和接收端程序，这两个程序实现以下功能：Socket通信采用UDP协议发送端程序向接收端程序发送字符串数据接收端接收到数据后在窗口显示数据一、接收端程序（1）新建一个VB6工程（2）添加Winsock控件。工具箱单击鼠标右键调出菜单：部件-->控件-->Winsock（3）在Form1上布置一个TextBox和一个Winsock控件（4）Form1窗体代码Option ExplicitPrivate Sub Form_Load()    '初始化Socket    With Winsock1        '采用UDP协议        .Protocol =sckUDPProtocol        '本机端口        .LocalPort = 8000        '打开Socket        .Bind    End With    Text1.Text = ""    Me.Caption = "UDP接收端程序"End SubPrivate Sub Form_Unload(Cancel As Integer)    '关闭窗口时先关闭socket    Winsock1.CloseEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    '接收数据    Dim strData As String    Winsock1.GetData strData, vbString    '将接收的显示在textBox1    Text1.Text = Text1.Text + strData + vbCrLfEnd Sub二、发送端程序（1）新建一个VB6工程（2）添加Winsock控件（3）在Form1上布置一个TextBox，一个Winsock和一个Command（4）Form1窗体代码Option ExplicitPrivate Sub Command1_Click()    '发送    Winsock1.SendData Text1.TextEnd SubPrivate Sub Form_Load()    With Winsock1        ' 采用UDP协议        .Protocol = sckUDPProtocol        '192.168.216.128是接收端程序所在计算机的IP地址        .RemoteHost = "192.168.216.128"        '接收端程序所使用的端口        .RemotePort = 8000        '打开Socket        .Bind    End With    Text1.Text = ""    Command1.Caption = "发送"    Me.Caption = "UDP发送端程序"End SubPrivate Sub Form_Unload(Cancel As Integer)    '窗口关闭时，先关闭Winsock1    Winsock1.CloseEnd Sub三、运行结果启动UDP接收端程序启动UDP发送端程序发送数据接收数据
用VB5 Winsock控件创建TCP/IP通讯程序 随着Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相应平台上的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具，Winsock控件就是其中之一。Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍，以便更好地理解程序源代码。服务器程序的实现过程是：（1）服务器程序必须设置好LocalPort属性，作为侦听端口，该值为一个整数（只要是一个其它TCP/IP应用程序没有使用过的值即可）。（2）使用Listen方法进入侦听状态，等待客户机程序的连接请求。（3）客户机程序发出连接请求，使服务器程序产生ConnectionRequest事件，该事件得到一个参数requestID。（4）服务器程序用Accept方法接受客户机程序的requestID请求。这样，服务器程序就可以用SendData方法发送数据了。Accept方法必须用上一步得到的requestID作为其参数。（5）当服务器程序接收到数据时，产生DataArrival事件，参数BytesTotal包含接收到的数据字节数。在该事件中，可以用GetData方法接收数据。（6）如果接受到Close事件，则用Close方法关闭TCP/IP连接。客户机程序的实现过程是：（1） 客户程序设置Remotehost属性，以便指定运行服务器程序的主机 名，该字符串可在“控制面板|网络|标识|计算机名”中查到。（2） 设置RemotePort属性,以便指定服务器程序的侦听端口。（3）使用Connect方法，向服务器提出连接请求。（4）服务器接受客户机程序的请求，客户机程序产生Connect事件，就可以用SendData方法发送数据了。（5）当客户机程序接收到数据时，产生DataArrival事件，参数BytesTotal包含接收到的数据字节数。在该事件中，可以用GetData方法接收数据。（6）如果接受到Close事件，则用Close方法关闭连接。Winsock控件还有两个重要的属性，即Protocol和State。Protocol设定使用的协议是TCP还是UDP：取值sckTCPProtocol表示TCP, 取值sckUDPProtocol则表示UDP。因为Winsock控件的缺省设置是sckTCPProtocol，所以程序中并没有使用Protocol属性。State属性反映的是当前TCP/IP的连接状态，取值如表1所示。表1 Winsock控件的State属性及其描述常数值 描述sckClosed0 缺省值，关闭。SckOpen 1打开。SckListening 2 侦听sckConnectionPending 3 连接挂起sckResolvingHost 4 识别主机。sckHostResolved 5 已识别主机sckConnecting 6 正在连接。sckConnected 7 已连接。sckClosing 8 同级人员正在关闭连接。sckError9 错误。先在一台计算机上运行服务器程序，此时窗口上只有一个“退出”按钮。 再在另一台计算机上运行客户机程序，在“连接”按钮右边的文本框中输入服务器 的主机名后单击“连接”按钮。如果连接成功，则服务器和客户机程序窗口都会出现两个文本框。这时，两端都可以在上面的文本框中输入文字，这些文字会立即在下面的文本框中出现。服务器程序使用的控件如下：（1）Command1：退出按钮；（2）textsend：发送数据文本框；（3）Winsockserver： 服务器Winsock；（4）textget ：接收数据文本框。服务器程序的界面如图所示。服务器程序的源代码如下：Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()textsend.Visible = Falsetextget.Visible = FalseWinsockserver.LocalPort = 1001Winsockserver.ListenEnd SubPrivate Sub textsend_Change()Winsockserver.SendData textsend.TextEnd SubPrivate Sub Winsockserver_Close()Winsockserver.CloseEndEnd SubPrivate Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)textsend.Visible = Truetextget.Visible = TrueIf Winsockserver.State <> sckClosed Then Winsockserver.CloseWinsockserver.Accept requestIDEnd SubPrivate Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)Dim tmpstr As StringWinsockserver.GetData tmpstrtextget.Text = tmpstrEnd Sub客户机程序使用的控件如下：（1）Command1：退出按钮；（2）Command2：连接按钮；（3）Winsockclient：客户Winsock；（4）Text1：主机名文本框；（5）Textsend：发送数据文本框；（6）Textget：接收数据文本框； 客户机程序的界面如图所示。客户机程序的源代码如下：Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Winsockclient.ConnectEnd SubPrivate Sub Form_Load()textsend.Visible = Falsetextget.Visible = FalseWinsockclient.RemotePort = 1001Winsockclient.RemoteHost = "sccdsz"End SubPrivate Sub Text1_Change()Winsockclient.RemoteHost = Text1.TextEnd SubPrivate Sub textsend_Change()Winsockclient.SendData textsend.TextEnd SubPrivate Sub Winsockclient_Close()Winsockclient.CloseEndEnd SubPrivate Sub winsockclient_Connect()textsend.Visible = Truetextget.Visible = TrueCommand2.Visible = FalseEnd SubPrivate Sub winsockclient_DataArrival(ByVal bytesTotal As Long)Dim tmpstr As StringWinsockclient.GetData tmpstrtextget.Text = tmpstr End Sub

建tcp协议的socket，用内存映射技术，把大文件分割成块，发送到对方，穗桐岩对方组合成原文件。做得好的话猜御，传输速度可以达到物理网卡的极限。源代码你可以参考飞鸽传书，轮颤不过它那个有点复杂，也没有使用内存映射。
和Socket 传输 点对点

SocketTool调试软件是一款网络TCP/UDP通信调试工具，本工具集功能强大与简单易用为一体，是无需安装的免费绿色软件。 它可以帮助网络编程人员、网络维护人员检查所开发的网络应用软硬件的通信状况。 是一款非常好用的socket 链接测试工具TCP/UDP Socket调试工具TCP/UDP Socket调试工具的特色★ 全面集成 TCP服务器/客户端; UDP服务器/客户端; UDP广播/组播 功能★ 支持多Socket并行测试, 采用树状Socket可视化界面,所有Socket句柄一目了然★ 在一个程序内可进行多句柄/多类型的Socket的创建/删除/以及数据收发等操作★ 支持16进制的发送和16进制接收显示，支持汉字以及文本发送★ 用户可以方便的把接收到的数据保存下来★ 支持发送、接收字节数统计 ★ 支持数据循环发送,同一内容可自动发送1次至10000次