|
摘 要 本文通過(guò)delphi的Tihttp控件，將超大文件分割成幾個(gè)小文件，通過(guò)構(gòu)造的表單數(shù)據(jù)流，
直接發(fā)送到接收數(shù)據(jù)網(wǎng)頁(yè)，由vb編寫(xiě)的服務(wù)器端進(jìn)行文件接收和還原
一、問(wèn)題的提出：
本單位在開(kāi)發(fā)課件生成系統(tǒng)時(shí)，需要通過(guò)瀏覽器向服務(wù)器指定目錄傳送大的音、視頻文件。在微軟asp中未提供相應(yīng)的控件，asp.net雖然提供了form表單中的file控件進(jìn)行文件上傳，但對(duì)上傳的文件有長(zhǎng)度限制，文件長(zhǎng)度大于50M上傳會(huì)失敗，而微軟基于安全考量，file控件中的文件名在運(yùn)行期間只讀，這樣利用微軟提供的控件向服務(wù)器端上傳長(zhǎng)度超過(guò)50M的文件變?yōu)椴豢尚校仨毩砼鑿健?/span>
二、解決方案
delphi以其強(qiáng)大的控件集，快速的RAD開(kāi)發(fā)，深得程序開(kāi)發(fā)人員的青睞，其最新控件集Indy，集成了大部分流行的Internet協(xié)議，包括TCP、UDP、DNS、ICMP、FINGER、FTP、GOPHER、HTTP、POP3、SMTP、TELNET、WHOIS，而瀏覽器的傳輸協(xié)議為http。這樣我們可以利用delphi7中的TIHTTP控件，將數(shù)據(jù)打包后上傳到服務(wù)器端。基本思路為：開(kāi)發(fā)兩部分功能程序，一個(gè)為ActiveX控件，嵌入到網(wǎng)頁(yè)中，負(fù)責(zé)將客戶(hù)端本地上傳文件分解成n個(gè)數(shù)據(jù)包，每個(gè)數(shù)據(jù)包直接編碼成“multipart/form-data”格式的表單信息，依次調(diào)用TIhttp控件的post方法向服務(wù)器端發(fā)送信息。另一個(gè)為服務(wù)器端的com組件，接受發(fā)送過(guò)來(lái)的原始信息，將數(shù)據(jù)包拼接還原成文件保存到服務(wù)器的指定目錄中。
三、技術(shù)要點(diǎn)：
1．Delyhi 7開(kāi)發(fā)Active X控件要點(diǎn)：選擇新建項(xiàng)目→Active x標(biāo)簽→Active Form→填入控件名可快速搭建一個(gè)Acfire X控件架構(gòu)，產(chǎn)生一個(gè)表單和一個(gè)框架代碼文件。
2．上傳Active x控件設(shè)計(jì)要點(diǎn)：①表單控件中放置一個(gè)編輯控件、三個(gè)命令按鈕、一個(gè)進(jìn)度條控件、一個(gè)文本標(biāo)簽控件、一個(gè)文件對(duì)話框控件。編輯控件用來(lái)放置上傳文件名。一個(gè)瀏覽按鈕打開(kāi)文件選擇對(duì)話框，選擇上傳文件；進(jìn)度條控件顯示上傳文件進(jìn)度；文本標(biāo)簽顯示上傳文件百分比，取消按鈕可中斷文件上傳。
②項(xiàng)目包含兩個(gè)代碼文件，其中一個(gè)文件用來(lái)將上傳文件拆分成小數(shù)據(jù)包。其關(guān)鍵代碼如下：
for y:=0 to filenum do
begin
if y=0 then //第一個(gè)包
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 //最后一個(gè)包
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;
③另一個(gè)文件用來(lái)將小數(shù)據(jù)包按照http格式封裝成二進(jìn)制文件上傳數(shù)據(jù)流發(fā)送到指定的接收頁(yè)面（URL），數(shù)據(jù)流除必要的頭信息，包含兩個(gè)表單城，一個(gè)數(shù)據(jù)塊，其中一個(gè)表單域用來(lái)傳遞文件標(biāo)記，用來(lái)區(qū)分本數(shù)據(jù)包是第一個(gè)包，中間包還是最后一個(gè)包，另一個(gè)表單域傳遞上傳文件名，其關(guān)鍵代碼如下：
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控件特色：可以實(shí)時(shí)顯示上傳進(jìn)度，并能隨時(shí)中斷文件的上傳，上傳頁(yè)面畫(huà)面如圖所示，可不能隨時(shí)中斷文件上傳，即應(yīng)用程序能隨時(shí)從循環(huán)語(yǔ)句中跳出，在循環(huán)語(yǔ)句中使用了ayydicdition Process Messages語(yǔ)句，該語(yǔ)句用來(lái)監(jiān)聽(tīng)和處理系統(tǒng)消息這樣就有效避免了文件上傳時(shí)，不能進(jìn)行系統(tǒng)的其它操作。
3．用VB6.0開(kāi)發(fā)服務(wù)器端接收文件的Activeex dll，主要利用VB6.0強(qiáng)大的網(wǎng)頁(yè)操作功能，引用庫(kù)文件microsoft Active sever Page object library。其中包含有asp對(duì)象Asp library request。創(chuàng)建一個(gè)接收函數(shù)load，使用request對(duì)象讀取上傳給接收頁(yè)面的二進(jìn)制數(shù)據(jù)流，分離出上傳標(biāo)志、上傳文件名以及文件內(nèi)容，根據(jù)上傳標(biāo)志將分段傳送來(lái)的文件內(nèi)容拼接成一個(gè)完整的文件，保存到指定目錄。
四、幾點(diǎn)說(shuō)明：
1．本程序在操作系統(tǒng)為Win98 Win2000的客戶(hù)端機(jī)器，IIS服務(wù)器端為Win 2000的環(huán)境下調(diào)試通過(guò)；
2．將upfile.htm，upload.asp，myget.dll，upfileproj1.ocx文件放置到IIS服務(wù)之虛擬目錄upfile下（缺省目錄為C:"Inetpub"unnroot"upfile）；
3．修改upfile.htm中codebase屬性（缺省為http://11.68.17.80/upfile/upfileproj1.ocx）中的IP地址為服務(wù)器端地址；
4．修改delphi工程文件upfileprojl中的upfilelmpl1文件中的Button2 click事件中的vul：string=’http://11.68.17.80/upfile/upload.asp’一行數(shù)據(jù)，將其中的IP地址轉(zhuǎn)接為服務(wù)器端地址，重新編譯后將upfrleprojl.ocx放置到虛擬目錄下；
5.上傳文件在服務(wù)器端的默認(rèn)保存目錄為c:"temp;
6.須手工注冊(cè)myget.dll，命令語(yǔ)句為regsvr32 C:"inetpub"wwwroot"upfile"myget.dll
7.覽器中敲擊網(wǎng)站地址執(zhí)行，缺省地址為http://11.68.17.80/upfile/upfile.htm。 |