网站推广的效果好,学编程选什么专业,东莞全网合一网站,电脑app怎么制作文件上传是WEB开发中经常要用到的功能#xff0c;但ASP本身和内置的组件都不支持文件上传功能。网上流传的一些第三方组件虽然能够解决这个问题#xff0c;但大多是要收费的#xff0c;更别说Open Source了。本文将详细剖析WEB文件上传的原理#xff0c;以及一步步指导读者…文件上传是WEB开发中经常要用到的功能但ASP本身和内置的组件都不支持文件上传功能。网上流传的一些第三方组件虽然能够解决这个问题但大多是要收费的更别说Open Source了。本文将详细剖析WEB文件上传的原理以及一步步指导读者如何用Delphi6开发一个ASP上传组件。 1 Html文件分析 首先我们来看一个html文件源码文件名是test.htm功能是提供用户上传的界面 html body center form namemainForm enctypemultipart/form-data actiontest.asp methodpost input typefile namemefilebr input typehidden namea1 valuefdsaf input typehidden namea2 valuefdsaf input typehidden namea3 valuefdsaf input typehidden namea4 valuefsdfsdsaf input typehidden namea5 value这个是这个 input typetext namea6 valuefdsaf input typesubmit nameok valueOK /form /center /body /html 这个文件里包含了一个名为mainForm的form以及随手写的一些input域。注意这个form和一般的form有两个不同的地方一是它有一个typefile的域没有value。用浏览器打开这个文件时这个域会表现为一个右侧有“浏览”字样的文件输入框用户可以通过它来选择本地硬盘上的文件。二是form有一个特殊的属性enctypemultipart/form-data。这个属性告诉浏览器要上传二进制文件并进行相应编码。 这种编码会产生什么样的表单信息呢让我们来看看test.asp也就是接受表单的asp文件的源码它非常简单 % formsizerequest.totalbytes 获得表单原始信息的长度 formdatarequest.binaryread(formsize) 读取表单原始信息 response.binarywrite formdata 返回表单原始信息 % 如读者在注释中了解的这段代码的功能是将表单的原始信息返回。让我们来看看它的运行效果。将这两个文件置于web目录下访问test.htm。在文件输入框中选择一个文件我选了一个jpg图片不过最大不要太大。提交然后可以看到这样一堆乱七八糟的信息 -----------------------------7d2227629012e Content-Disposition: form-data; namemefile; filenameC:\Documents and Settings\aaa\My Documents\My Pictures\zzjh.jpg Content-Type: image/pjpeg 作者注以下为乱码 -----------------------------7d2227629012e Content-Disposition: form-data; namea1 fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; namea2 fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; namea3 fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; namea4 fsdfsdsaf -----------------------------7d2227629012e Content-Disposition: form-data; namea5 这个是这个 -----------------------------7d2227629012e Content-Disposition: form-data; namea6 fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; nameok OK -----------------------------7d2227629012e-- 这就是用multipart/form-data方式编码的表单原始信息。其中那一段看起来是乱码的部分就是jpg图片的编码。实际的jpg图片编码可能要比这长得多视文件大小而定。为了行文方便作者只保留了一小部分。 分析一下这段信息的格式 -----------------------------7d2227629012e 这是各个域之间的分隔符。 Content-Disposition: form-data; 说明这是表单中的域。 namemefile; 域的名称。 filenameC:\Documents and Settings\aaa\My Documents\My Pictures\zzjh.jpg 上传文件在本地硬盘上的名称。 Content-Type: image/pjpeg 文件类型。 后面是文件本身的数据。 其它各个域的信息也可以以此类推。 众所周知在ASP中使用request对象可以访问用户提交表单的各个域。因为request对象会对原始的表单信息进行解析提取出表单中每个域的值。但是request并不能解析这multipart/form-data格式的表单信息。这就是ASP不能直接支持文件上传的原因所在。读者可以试试在test.asp中用request(mefile)这样的格式是不能读取到正确的信息的。 问题的症结已经找到解决的思路也很简单用Delphi开发一个COM组件接受这种原始表单信息将各个域一一提取出来返回给asp文件。也就是完成request对象没有完成的功能。 2 用Delphi开发组件 Delphi6对开发ASP组件提供了极好的支持大大简化了我们的开发过程。 启动Delphi 6选择File-New-Other-ActiveX-ActiveX Library这样就建立了一个ActiveX库。将此Library改名为myobj存盘。选择File-New-Other-ActiveX-Active Server Object在CoClassname中填入upfile确定。这时会跳出一个标题为myobj_tlb的对话框这是Delphi特有的以可视化方式编辑COM接口的功能用Delphi开发过COM的读者应该比较熟悉。 在myobj下的名为Iupfile的Interface下添加5个属性和一个方法。如果不懂得如何操作请参见Delphi参考书的相关部分。按F12可以看到生成的相应的myobj_tlb.pas文件其中的Iupfile接口应该是这个样子 Iupfile interface(IDispatch) [{5C40D0EB-5A22-4A1E-8808-62207AE04B51}] procedure OnStartPage(const AScriptingContext: IUnknown); safecall; procedure OnEndPage; safecall; function Get_Form(Formname: OleVariant): OleVariant; safecall; function Get_FileName: OleVariant; safecall; function Get_FileSize: Integer; safecall; procedure FileSaveAs(FileName: OleVariant); safecall; function Get_FileData: OleVariant; safecall; function Get_FileType: OleVariant; safecall; property Form[Formname: OleVariant]: OleVariant read Get_Form; property FileName: OleVariant read Get_FileName; property FileSize: Integer read Get_FileSize; property FileData: OleVariant read Get_FileData; property FileType: OleVariant read Get_FileType; end; 其中的OnStartPage方法和OnEndPage方法是Delphi默认生成的其它的是手动加入的。 切换到unit1.pas也是Delphi自动生成的改名为upfile.pas存盘。可以看到存在一个Tupfile类的声明它是继承自TASPObject类和Iupfile接口的。Delphi 6已经自动生成了相应的代码。接下来的任务就是实现这个接口。 除了完成Iupfile接口中的属性和方法之后还需要补充一些东西以便完成我们的任务。最终的Tupfile类的声明如下 Tupfile class(TASPObject, Iupfile) public protected procedure OnEndPage; safecall; //页面开始 procedure OnStartPage(const AScriptingContext: IUnknown); safecall; //页面结束 procedure FileSaveAs(Filename: OleVariant); safecall; //保存文件 function Get_Form(Formname: OleVariant): OleVariant; safecall; // function Get_FileName: OleVariant; safecall; function Get_FileSize: Integer; safecall; function Get_FileData: OleVariant; safecall; function Get_FileType: OleVariant; safecall; private FContentData:string; FFileData,FFileName,FFileType:string; FFormInfo:TStringList; function instr(str1,str2:string;startpos:integer):integer; procedure AnalyFormData(content:string); end; 下面我们来一一分析这些成员的具体实现。 procedure Tupfile.OnStartPage(const AScriptingContext: IUnknown); var AOleVariant : OleVariant; tmpvar : OleVariant; contentlength : integer; i,DeliCount,pos1,pos2,lastpos : integer; FDelimeter : string; begin inherited OnStartPage(AScriptingContext); FFormInfo : TStringList.Create; contentlength : Request.TotalBytes; AOleVariant : contentlength; tmpvar : Request.BinaryRead(AOleVariant); for i : 1 to contentlength -1 do begin FContentData : FContentData chr(byte(tmpvar[i])); end; pos1 : pos(#13#10,FContentData); FDelimeter : copy(FContentData,1,pos11); DeliCount : length(FDelimeter); lastpos : 1; pos1:0; while pos2pos1 do begin pos1 : instr(FDelimeter,FContentData,lastpos); if pos1 0 then Break; pos1 : pos1 DeliCount; pos2 : instr(FDelimeter,FContentData,pos1)-1; AnalyFormData(copy(FContentData,pos1,pos2-pos1-1)); lastpos : pos2; end; end; 前面说过OnStartPage方法是Delphi自动生成的在装载页面时发生。在这个方法中我们完成一些初始化的任务读取表单的原始数据解析表单中的域并存入相应的属性中以备调用。 由于Delphi已经对ASP中的对象进行了很好的封装所以即使在Delphi环境下也可以方便地调用它们就象在ASP中一样例如Request.TotalBytes。首先将原始表单数据读入到一个OleViarians类型的tmpvar中然后通过一个循环将它转换为Delphi中的string格式并存放在FContentData中。 接下来通过查找换行符解析出分隔符的内容和长度。然后在一个循环中用AnalyFormData成员函数一一解析出每个域。初始化工作就这样完成了。 再看AnalyFormData函数的实现 procedure Tupfile.AnalyFormData(content: string); var pos1,pos2:integer; FormName,FormValue:string; isFile:boolean; begin isFile : false; pos1 : instr(name,content,1)6; pos2 : instr(,content,pos1); FormName : copy(content,pos1,pos2-pos1); //检查是否文件 pos1 : instr(filename,content,pos21); if pos1 0 then begin isFile : true; pos1 : pos1 10; pos2 : instr(,content,pos1); FFilename : copy(content,pos1,pos2-pos1); end; pos1 : instr(#13#10#13#10,content,pos21)4; FormValue : copy(content,pos1,length(content)-pos1); if isfile then begin FFileData : FormValue; //查找文件类型信息 pos2 : instr(Content-Type: ,content,pos21); if pos2 0 then begin pos2 : pos2 14; FFileType : copy(content,pos2,pos1-4-pos2); end; end else begin FFormInfo.add(FormNameFormValue); end; end; 如注释中所表达的AnalyFormData提取原始数据中的域。如果是域是文件类型则将文件类型和文件数据分别放入FFileType和FFileData中。如果是其它类型则将名称和值放入一个TStringlist类型的FFormInfo中。FFormInfo中维护着除文件类型外的所有域的信息以“名称值”的格式存放。 function Tupfile.Get_Form(Formname: OleVariant): OleVariant; begin Result : FFormInfo.Values[Formname]; end; 这个函数返回域的值。只需要简单地调用FFormInfo的values方法就可以得到相应的值。这是在Tstringlist类内部实现的。 function Tupfile.Get_FileName: OleVariant; begin Result : ExtractFileName(FFileName); end; function Tupfile.Get_FileSize: Integer; begin Result : length(FFileData); end; function Tupfile.Get_FileData: OleVariant; var i:integer; begin Result : VarArrayCreate( [0,length(FFileData)], varByte ); for i : 0 to length(FFileData)-1 do begin Result[i] : Byte(FFileData[i1]); end; end; 这三个函数分别返回文件的名称、大小、数据。要注意的是在返回文件数据时必须进行相应的转换将Delphi中的string类型转换为OleVariant类型。 procedure Tupfile.FileSaveAs(Filename: OleVariant); var fsout:TFileStream; begin fsout : TFileStream.Create(Filename,fmcreate); try fsout.Write(Byte(FFileData[1]),Length(FFileData)) finally fsout.Free; end; end; 这个方法将文件保存到服务器上的磁盘。 编译myobj这个project得到一个myobj.dll文件。开发工作就此完成。 3 使用ASP上传组件 在命令行下输入“regsvr32 myobj.dll”。弹出一个对话框告诉你组件已经注册。如果找不到regsvr32.exe这个文件它在windows\system32或winnt\system32目录下。 将本文开头提到的test.asp文件修改为如下内容 %建立对象 Set upfile Server.CreateObject(myobj.upfile) 获得表单对象 response.write upfile.form(a1)br response.write upfile.form(a2)br response.write upfile.form(a3)br response.write upfile.form(a4)br response.write upfile.form(a5)br response.write upfile.form(a6)br 获得文件大小 response.write 文件字节数upfile.filesizebr 获得文件类型 response.write 文件类型upfile.filetypebr 获得文件名保存文件 upfile.filesaveas(Server.MapPath()upfile.filename) set upfile nothing % 再次访问test.htm提交表单。现在你可以看到相关的返回信息并且在服务器上test.asp所处的目录下找到上传的文件。 这个组件只能上传单个文件但根据同样的原理一次上传多个文件的功能也是不难实现的。有兴趣的读者可以自行尝试。 转载于:https://www.cnblogs.com/MaxWoods/archive/2007/10/30/943378.html
