实现使用HTTP协议发送multipart/form-data类型的HTTP表单

本文探讨了.NET Framework在处理multipart/form-data表单提交时的局限性，并提供了一个自定义类HttpProc的实现，该类扩展了.NET Framework的HTTP处理能力，支持文件和表单混合提交及多文件上传。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

.Net FrameWork对HTTP协议做了很好的封装，使我们使用HTTP协议的时候变的非常简单，但是.Net只能使用 application/x-www-form-urlencoded 方式来POST数据，使用System.Net.WebClient上传递文件(multipart/form-data方式)只能上传单个，而我们在实际中文件和表单混合提交、多文件上传的需求也很多，这些都是目前的.net framework不支持的。这些需求都是以multipart/form-data方式发送数据的，也就是说目前.net对multipart/form-data方式提交表单支持性并不好，本文所列的源代码就是就是解决这个问题。

multipart/form-data方式HTTP协议大致如下,红色是额外加上的：

POST /msb/WebForm1.aspx HTTP/1.1
Connection: Keep-Alive
Content-Length: 458
Content-Type: multipart/form-data; boundary=-----------------------------7d6bb34502ce[上传方式，边界]
Accept: */*
Expect: 100-continue
Host: localhost
Referer: http://mtv.1ting.com/
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)

-------------------------------7d6bb34502ce[边界这里开头多了2个中划线]
Content-Disposition: form-data; name="key1[表单域名]"

ffffffffffffffffffffffffffffffffffffffffffffffffffffff[表单域值]
-------------------------------7d6bb34502ce[边界这里开头多了2个中划线]
Content-Disposition: form-data; name="file[文件类型表单域名]"; filename="d:/1.rar[文件名]"
Content-Type: application/x-msdownload[文件类型]

[文件内容]
-------------------------------7d6bb34502ce--[最后一个边界，开头和结尾都多了2个中划线]

这里是源代码：http://blog.csdn.net/images/blog_csdn_net/Qqwwee_Com/HttpProc.gif

调用代码：

        Dim a As New ArrayList
        a.Add(New EntityFormValue("key1", "key1")) '表单
        a.Add(New EntityFormValue("key2", "value2")) '表单
        a.Add(New EntityFormFile("file", "d:/1.rar")) '文件
        Dim http As New HttpProc("http://localhost/msb/WebForm1.aspx")
        Console.WriteLine(http.PostMultipartForm(a))

关于HttpProc

http是我在.net frameWork支持http协议基础上拓展的一个类，用来简化http的GET和POST操作，可以满足日常大部分的 HTTP处理，这在我的csdn小助手各版本里面均有体现。

下面是一个模拟登陆，可以看到代码已经很简洁了：

        Dim Url As String = "http://localhost/login.aspx"‘地址
        Dim postDate As String = "username=user123&passWork=123456"
        ‘用户名和密码
        Dim Res As String = ""
        Dim http As New HttpProc(Url)
        Res = http.Proc'得到响应

本文原始发表地址：http://blog.csdn.net/Qqwwee_Com/archive/2006/04/08/655711.aspx（转贴请保留）