用Delphi 6开发ASP上传组件详解

　2007-12-09 12:51:04　来源：WEB开发网　　　

核心提示：文件上传是WEB开发中经常要用到的功能，但ASP本身和内置的组件都不支持文件上传功能，用Delphi 6开发ASP上传组件详解，网上流传的一些第三方组件虽然能够解决这个问题，但大多是要收费的，为了行文方便，作者只保留了一小部分，更别说Open Source了，本文将详细剖析WEB文件上传的原理

　　文件上传是WEB开发中经常要用到的功能，但ASP本身和内置的组件都不支持文件上传功能。网上流传的一些第三方组件虽然能够解决这个问题，但大多是要收费的，更别说Open Source了。本文将详细剖析WEB文件上传的原理，以及一步步指导读者如何用Delphi6开发一个ASP上传组件。

1 Html文件分析
　　首先我们来看一个html文件源码，文件名是test.htm，功能是提供用户上传的界面：

　　这个文件里包含了一个名为mainForm的form，以及随手写的一些input域。注意这个form和一般的form有两个不同的地方：一是它有一个type=file的域，没有value。用浏览器打开这个文件时，这个域会表现为一个右侧有“浏览”字样的文件输入框，用户可以通过它来选择本地硬盘上的文件。二是form有一个特殊的属性：enctype="multipart/form-data"。这个属性告诉浏览器要上传二进制文件，并进行相应编码。
　　这种编码会产生什么样的表单信息呢？让我们来看看test.asp，也就是接受表单的asp文件的源码，它非常简单：

<%
formsize=request.totalbytes 　　'获得表单原始信息的长度
formdata=request.binaryread(formsize) 　　'读取表单原始信息

response.binarywrite formdata　　'返回表单原始信息
%>

　　如读者在注释中了解的，这段代码的功能是将表单的原始信息返回。让我们来看看它的运行效果。将这两个文件置于web目录下，访问test.htm。在文件输入框中，选择一个文件（我选了一个jpg图片，不过最大不要太大）。提交，然后可以看到这样一堆乱七八糟的信息：

-----------------------------7d2227629012e Content-Disposition: form-data; name="mefile"; filename="C:\Documents and Settings\aaa\My Documents\My Pictures\zzjh.jpg" Content-Type: image/pjpeg （作者注：以下为乱码） -----------------------------7d2227629012e Content-Disposition: form-data; name="a1" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a2" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a3" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a4" fsdfsdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a5" 这个是这个 -----------------------------7d2227629012e Content-Disposition: form-data; name="a6" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="ok" OK -----------------------------7d2227629012e--

　　这就是用"multipart/form-data"方式编码的表单原始信息。其中那一段看起来是乱码的部分，就是jpg图片的编码。（实际的jpg图片编码可能要比这长得多，视文件大小而定。为了行文方便，作者只保留了一小部分。）
　　分析一下这段信息的格式：　　

-----------------------------7d2227629012e 这是各个域之间的分隔符。

1 2 3 4 下一页