请教一个socket编程的问题：一个socket连接，可以多次post数据到web

2015-03-09 05:04:19 457 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用Socket 完成HTTP post方式的文本及文件上传 demo HttpUrlConnection具有缓存功能，在上传文件信息时，会将内容缓存在内存中，因此很容易导致内存溢出，内存溢出是指申请不到够用的内存空间，内存泄漏是指借用空间未归还。阅读详情

服务器是apache搭建的，支持keep-alive，人家配套的客户端程序可以和服务器保持一个tcp连接，然后可以多次post相同、不同的数据；抓包分析也是这样的，连接没有变的。

需要自己单独写个辅助程序，实现另外的功能，问题来了，连接一次，只能post一次数据。
弱弱的测试代码如下：请教大神如何修改，能建立好socket连接后，可以重复post，谢谢了。



Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click



        Dim endPoint As New IPEndPoint(IPAddress.Parse("10.255.1.100"), 80)



        Dim s As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)



        s.Connect(endPoint)



        If s.Connected Then



	    dim data as string="xxxxxxxx"



            Dim ascii As Encoding = System.Text.Encoding.UTF8

            Dim buf As New StringBuilder

            buf.Append("POST /httpServlet HTTP/1.1" & vbCrLf)

            buf.Append("Content-Type: application/x-www-form-urlencoded" & vbCrLf)

            buf.Append("Connection: Keep-Alive" & vbCrLf)

            buf.Append("Content-Length: " & data.Length & vbCrLf & vbCrLf & vbCrLf)



            buf.Append(data & vbCrLf)

            Dim bytesSent As [Byte]() = ascii.GetBytes(buf.ToString)

            Dim bytesReceived(4096) As [Byte]



            s.Send(bytesSent, bytesSent.Length, 0)



           

            Dim bytes As Int32



            Dim page As [String] = ""

            Dim i As Integer = 0



            bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)



            page = page + System.Text.Encoding.GetEncoding("GB2312").GetString(bytesReceived, 0, bytes)





            txtLog.Text = page.ToString



	    '想继续发送就不行了，发现连接已经被断开了。。。

            s.Send(bytesSent, bytesSent.Length, 0)



        End If



    End Sub