|
摘 要 本文通过delphi的Tihttp控件，将超大文件分割成几个小文件，通过构造的表单数据流，
直接发送到接收数据网页，由vb编写的服务器端进行文件接收和还原
一、问题的提出：
本单位在开发课件生成系统时，需要通过浏览器向服务器指定目录传送大的音、视频文件。在微软asp中未提供相应的控件，asp.net虽然提供了form表单中的file控件进行文件上传，但对上传的文件有长度限制，文件长度大于50M上传会失败，而微软基于安全考量，file控件中的文件名在运行期间只读，这样利用微软提供的控件向服务器端上传长度超过50M的文件变为不可行，必须另劈蹊径。
二、解决方案
delphi以其强大的控件集，快速的RAD开发，深得程序开发人员的青睐，其最新控件集Indy，集成了大部分流行的Internet协议，包括TCP、UDP、DNS、ICMP、FINGER、FTP、GOPHER、HTTP、POP3、SMTP、TELNET、WHOIS，而浏览器的传输协议为http。这样我们可以利用delphi7中的TIHTTP控件，将数据打包后上传到服务器端。基本思路为：开发两部分功能程序，一个为ActiveX控件，嵌入到网页中，负责将客户端本地上传文件分解成n个数据包，每个数据包直接编码成“multipart/form-data”格式的表单信息，依次调用TIhttp控件的post方法向服务器端发送信息。另一个为服务器端的com组件，接受发送过来的原始信息，将数据包拼接还原成文件保存到服务器的指定目录中。
三、技术要点：
1．Delyhi 7开发Active X控件要点：选择新建项目→Active x标签→Active Form→填入控件名可快速搭建一个Acfire X控件架构，产生一个表单和一个框架代码文件。
2．上传Active x控件设计要点：①表单控件中放置一个编辑控件、三个命令按钮、一个进度条控件、一个文本标签控件、一个文件对话框控件。编辑控件用来放置上传文件名。一个浏览按钮打开文件选择对话框，选择上传文件；进度条控件显示上传文件进度；文本标签显示上传文件百分比，取消按钮可中断文件上传。
②项目包含两个代码文件，其中一个文件用来将上传文件拆分成小数据包。其关键代码如下：
for y:=0 to filenum do
begin
if y=0 then //第一个包
begin
if y <> filenum then
begin
for i:=1 to basenum do
begin
read(f,ch);
tempf:=chr(ch);
temp:=temp+tempf;
application.ProcessMessages;
end;
vflag:=postdata(vurl,vfilename,temp,'0');
end
else
begin
j:=0;
while not eof(f) do
begin
read(f,ch);
tempf:=chr(ch);
temp:=temp+tempf;
j:=j+1;
application.ProcessMessages;
vflag:=postdata(vurl,vfilename,temp,'-2');
end;
end
else if y<> filenum then //中间包
begin
for i:=1 to basenum do
begin
read(f,ch);
tempf:=chr(ch);
temp:=temp+tempf;
application.ProcessMessages;
end;
vflag:=postdata(vurl,vfilename,temp,'1');
end
else //最后一个包
begin
j:=0;
while not eof(f) do
begin
read(f,ch);
tempf:=chr(ch);
temp:=temp+tempf;
j:=j+1;
application.ProcessMessages;
end;
vflag:=postdata(vurl,vfilename,temp,'-1');
end;
end;
end;
③另一个文件用来将小数据包按照http格式封装成二进制文件上传数据流发送到指定的接收页面（URL），数据流除必要的头信息，包含两个表单城，一个数据块，其中一个表单域用来传递文件标记，用来区分本数据包是第一个包，中间包还是最后一个包，另一个表单域传递上传文件名，其关键代码如下：
try
filedata.Seek(0,sofrombeginning);
tempstring:='';
tempstring:=tempstring+'------------------------------7cf87224d2020a'+
newline;
tempstring:=tempstring+'Content-Disposition: form-data;name="vflag"'+newline;
tempstring:=tempstring+''+newline;
tempstring:=tempstring+vflag+newline;
tempstring:=tempstring+''+newline;
tempstring:=tempstring+''+newline;
tempstring:=tempstring+'Content-Disposition: form-data; name="editfilename"; filename="'+infile+'"'+newline;
tempstring:=tempstring+'Content-Type: application/octet-stream'+newline;
tempstring:=tempstring+''+newline;
fillchar(temparray,sizeof(temparray),#0);
strpcopy(temparray,tempstring);
request.Write(temparray,length(tempstring));
request.seek(0,sofromend);
request.CopyFrom(filedata,filedata.size);
tempstring:='';
tempstring:=tempstring+''+newline;
tempstring:=tempstring+'------------------------------7cf87224d2020a--'
+newline;
fillchar(temparray,sizeof(temparray),#0);
strpcopy(temparray,tempstring);
request.write(temparray,length(tempstring));
try
http.Post(url,request,response);
if pos('成功',response.datastring)<>0 then
flag:=1
end.
End.
④本ActiveX控件特色：可以实时显示上传进度，并能随时中断文件的上传，上传页面画面如图所示，可不能随时中断文件上传，即应用程序能随时从循环语句中跳出，在循环语句中使用了ayydicdition Process Messages语句，该语句用来监听和处理系统消息这样就有效避免了文件上传时，不能进行系统的其它操作。
3．用VB6.0开发服务器端接收文件的Activeex dll，主要利用VB6.0强大的网页操作功能，引用库文件microsoft Active sever Page object library。其中包含有asp对象Asp library request。创建一个接收函数load，使用request对象读取上传给接收页面的二进制数据流，分离出上传标志、上传文件名以及文件内容，根据上传标志将分段传送来的文件内容拼接成一个完整的文件，保存到指定目录。
四、几点说明：
1．本程序在操作系统为Win98 Win2000的客户端机器，IIS服务器端为Win 2000的环境下调试通过；
2．将upfile.htm，upload.asp，myget.dll，upfileproj1.ocx文件放置到IIS服务之虚拟目录upfile下（缺省目录为C:"Inetpub"unnroot"upfile）；
3．修改upfile.htm中codebase属性（缺省为http://11.68.17.80/upfile/upfileproj1.ocx）中的IP地址为服务器端地址；
4．修改delphi工程文件upfileprojl中的upfilelmpl1文件中的Button2 click事件中的vul：string=’http://11.68.17.80/upfile/upload.asp’一行数据，将其中的IP地址转接为服务器端地址，重新编译后将upfrleprojl.ocx放置到虚拟目录下；
5.上传文件在服务器端的默认保存目录为c:"temp;
6.须手工注册myget.dll，命令语句为regsvr32 C:"inetpub"wwwroot"upfile"myget.dll
7.览器中敲击网站地址执行，缺省地址为http://11.68.17.80/upfile/upfile.htm。 |