用ＤＥＬＰＨＩ為ＡＳＰ開(kāi)發(fā)文件上載組件 (2000年12月6日) 

本站更新  分類(lèi):   作者:王發(fā)軍  推薦:   閱讀次數(shù):619  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
　 
　　ＡＳＰ(Active Server Page)是微軟公司的產(chǎn)品，由于它編程很容易上手，能快速開(kāi)發(fā)功能強(qiáng)大的
動(dòng)態(tài)網(wǎng)站，現(xiàn)在很多網(wǎng)站（特別是Intranet/Extranet內(nèi)部網(wǎng)）采用了ＮＴ＋ＩＩＳ＋ＡＳＰ的模式，
使得ＡＳＰ成為目前較為流行的網(wǎng)站開(kāi)發(fā)腳本語(yǔ)言。在ＷＥＢ服務(wù)中，文件上載服務(wù)是一個(gè)很常見(jiàn)的
功能，而ＷＩＮ９Ｘ下的ＰＷＳ沒(méi)有提供相關(guān)組件；ＮＴ下的ＩＩＳ提供了一個(gè)Post Acceptor組件，
但由于它要檢查用戶(hù)的ＷＷＷ訪問(wèn)權(quán)限而變得不太好用；也可以從Internet上下載有關(guān)組件，但這些
大多都是商業(yè)組件，用于下載的是試用版，在使用時(shí)間或功能上都有限制。由于ＡＳＰ可以調(diào)用標(biāo)準(zhǔn)
的ＯＬＥ／ＣＯＭ組件，我們可以用ＶＢ／ＶＣ／ＤＥＬＰＨＩ等高級(jí)編程工具根據(jù)我們自己的要求
來(lái)定制自己的ＡＳＰ文件上載組件，滿(mǎn)足自己的應(yīng)用系統(tǒng)要求。
　　下面將討論用ＤＥＬＰＨＩ為ＡＳＰ開(kāi)發(fā)文件上載組件的原理和具體實(shí)現(xiàn)過(guò)程。

一、文件上載的實(shí)現(xiàn)原理
　　基于Web方式數(shù)據(jù)上傳，要遵從RFC1867標(biāo)準(zhǔn)，上載的文件數(shù)據(jù)也不例外。如用下面ＨＴＭＬ頁(yè)面
文件（delphiup.htm）選擇上載文件：


用ＤＥＬＰＨＩ編寫(xiě)的文件上載組件實(shí)現(xiàn)文件上載



文件另存為：


請(qǐng)要選擇上載的文件：
 





　　當(dāng)客戶(hù)端選擇了一個(gè)文件（如Test.TXT，其內(nèi)容為“這里是一個(gè)用于上載的文件的內(nèi)容。”）并按
“確認(rèn)上載”按鈕提交數(shù)據(jù)后，服務(wù)器端程序收到的數(shù)據(jù)將具有如下形式：
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="SaveAs"#13#10#13#10
NewFileName#13#10
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="FileData"; filename="D:\test.txt" 
Content-Type: text/plain#13#10#13#10
這里是一個(gè)用于上載的文件的內(nèi)容。#13#10
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="b1"#13#10#13#10
確認(rèn)上載#13#10
-----------------------------7cf1d6c47c-- 
其中，“-----------------------------7cf1d6c47c”是分界符，用于分隔表單（Form）中的各個(gè)域；
#13#10是回車(chē)換行符的ＤＥＬＰＨＩ表示。我們可以這樣認(rèn)為，每個(gè)表單域的信息描述，都是以分界
符加一對(duì)回車(chē)換行符#13#10開(kāi)始；表單域名以“name="”開(kāi)始，以“"”為結(jié)束；表單域值以?xún)蓪?duì)回車(chē)
換行符#13#10#13#10開(kāi)始，以一對(duì)回車(chē)換行符#13#10#加分界符結(jié)束；文件名稱(chēng)以“filename="”開(kāi)始，
以“"”為結(jié)束。有了這些標(biāo)志，我們就可以獲取表單域的名稱(chēng)和值以及要上載的文件的名稱(chēng)，從而實(shí)
現(xiàn)文件數(shù)據(jù)的讀取和存儲(chǔ)了。

二、文件上載的實(shí)現(xiàn)過(guò)程
　　在理解上面提到的數(shù)據(jù)格式后，自己動(dòng)手編寫(xiě)一個(gè)文件上載組件對(duì)我們來(lái)說(shuō)已經(jīng)不是困難了。

　　（一）開(kāi)始建立一個(gè)ＡＳＰ組件的工程
　　　　　如果您對(duì)用ＤＥＬＰＨＩ開(kāi)發(fā)OLE Automation Server的步驟不太熟悉的話，請(qǐng)參見(jiàn)《電子與
電腦》１９９９年第０６期的一篇文章《用ＤＥＬＰＨＩ開(kāi)發(fā)用于ＡＳＰ的OLE Automation Server 》。
這里只簡(jiǎn)要介紹一下操作步驟。
　　１、建立ActiveX Library工程
　　在ＤＥＬＰＨＩ中選擇菜單File＝》New...，在“New Item”對(duì)話框的ActiveX選項(xiàng)卡中選擇
“ActiveX Library”，ＤＥＬＰＨＩ會(huì)自動(dòng)創(chuàng)建一個(gè)ＤＬＬ工程Project1。
　　２、建立Automation組件
　　在ＤＥＬＰＨＩ中選擇菜單File＝》New...，在“New Item”對(duì)話框的ActiveX選項(xiàng)卡中選
擇“Automation Object”；然后在“Automation Object Wizard”對(duì)話框中輸入Class Name
(如“UploadFile”)，Instancing選擇“Multiple Instance”即可，單擊“OK”后ＤＥＬＰＨＩ會(huì)自動(dòng)
創(chuàng)建一個(gè)ＴＬＢ（Type Library）文件Project1_TLB.PAS和一個(gè)ＰＡＳ(Unit)文件Unit1.PAS。在Type 
Library設(shè)計(jì)窗口中，將Project1改名為MyUpload，則該文件上載組件的ＯＬＥ注冊(cè)碼為“MyUpload.UploadFile”。
　　３、引入ＡＳＰ類(lèi)型庫(kù)
　　為了使用ＡＳＰ的五個(gè)內(nèi)建對(duì)象（Request、Response、Server、Application、Session），需要引入
ＡＳＰ類(lèi)型庫(kù)。我們主要利用Request對(duì)象讀取從客戶(hù)端傳遞到服務(wù)器端的數(shù)據(jù)。
　　在Project菜單中選擇“Import Type Library”，在“Import Type Library”對(duì)話框的“Type 
Libraries”列表選擇“Microsoft Active Server Pages Object Library(Version 2.0)”（如果沒(méi)有這
個(gè)選項(xiàng)，請(qǐng)確定您的計(jì)算機(jī)上安裝了ＩＩＳ３以上或ＰＷＳ４以上并且ASP.DLL已正確注冊(cè)），ＤＥＬＰＨＩ
會(huì)自動(dòng)創(chuàng)建一個(gè)ＴＬＢ文件ASPTypeLibrary_TLB.PAS，其中有我們需要的ＡＳＰ對(duì)象類(lèi)型聲明。
　　４、定義OnStartPage、OnEndPage過(guò)程
　　當(dāng)在ＡＳＰ頁(yè)面上用Server.CreateObject創(chuàng)建一個(gè)ＯＬＥ對(duì)象實(shí)例時(shí)，ＷＥＢ服務(wù)器會(huì)調(diào)用其方法
OnStartPage，將ＡＳＰ應(yīng)用環(huán)境信息傳遞給該對(duì)象，我們可以在該過(guò)程中獲取客戶(hù)端信息；當(dāng)在ＡＳＰ
頁(yè)面中釋放一個(gè)ＯＬＥ對(duì)象實(shí)例時(shí)，ＷＥＢ服務(wù)器會(huì)調(diào)用其方法OnEndPage，我們可以在該過(guò)程中進(jìn)行釋放
內(nèi)存等結(jié)束操作。在我們這個(gè)組件中，我們要用到其OnStartPage方法。
　　OnStartPage方法應(yīng)該在Unit1.PAS中定義，OnStartPage的函數(shù)原型為：
procedure OnStartPage(AScriptingContext: IUnknown);
其中參數(shù)AScriptingContext是一個(gè)IScriptingContext類(lèi)型變量，包含五個(gè)屬性（Request、Response、
Server、Application、Session）分別對(duì)應(yīng)ＡＳＰ的五個(gè)內(nèi)建同名對(duì)象。
　　我們需要在ＴＬＢ定義窗口（View＝》Type Library）中，為IUploadFile增加方法OnStartPage，其
Declaration語(yǔ)句為“procedure OnStartPage(AScriptingContext: IUnknown);”。

　　（二）提取客戶(hù)端上傳的數(shù)據(jù)
　　該工作可以放在OnStartPage過(guò)程中進(jìn)行。
　　利用AScriptingContext的屬性Request(類(lèi)型為IRequest)中的屬性TotalBytes（請(qǐng)求信息內(nèi)容長(zhǎng)度）
和方法BinaryRead可將客戶(hù)端上傳的請(qǐng)求信息數(shù)據(jù)讀取到一個(gè)Byte類(lèi)型的數(shù)組中，然后按RFC1867標(biāo)準(zhǔn)定
義的數(shù)據(jù)格式來(lái)分析和提取數(shù)據(jù)。
　　１、首先定義TUploadFile的幾個(gè)私有變量
在單元文件UP01.PAS（由Unit1.PAS另存）中加入對(duì)ASPTypeLibrary_TLB.PAS的引用（Uses），
然后加入
private
FContentLength : LongInt;//請(qǐng)求信息內(nèi)容長(zhǎng)度
FContentData : Variant;//內(nèi)容數(shù)據(jù),以數(shù)組形式存儲(chǔ)請(qǐng)求信息內(nèi)容
FFileName, //要上載的文件名稱(chēng)
FDelimeter : string; //表單域分界符
FScriptingContext : IScriptingContext;//ASP處理上下文環(huán)境內(nèi)容
FFileDataStart, //文件數(shù)據(jù)開(kāi)始位置
FFileDataEnd : LongInt; //文件數(shù)據(jù)結(jié)束位置

　　２、提取客戶(hù)端上傳的請(qǐng)求信息數(shù)據(jù)
//在OnStartPage事件中，獲取ASP上下文信息、請(qǐng)求信息內(nèi)容、表單域的分界符、文件數(shù)據(jù)
procedure TUploadFile.OnStartPage(AScriptingContext: IUnknown);
var
ARequest : IRequest; //WWW請(qǐng)求對(duì)象
AOleVariant : OleVariant; //記錄請(qǐng)求信息內(nèi)容長(zhǎng)度
intDelimterLength : integer;//分界符長(zhǎng)度
longIndex,ALongInt,longPos : LongInt;
ContentData : AnsiString;//請(qǐng)求信息內(nèi)容的字符串表示
strTemp : string;
FindEndOfFileData : boolean;//是否找到文件數(shù)據(jù)結(jié)束位置
begin
//提取客戶(hù)端上傳的請(qǐng)求信息數(shù)據(jù)
FScriptingContext := AScriptingContext as IScriptingContext;//獲取ASP上下文信息
ARequest := FScriptingContext.Request;//獲取WWW請(qǐng)求信息
FContentLength := ARequest.TotalBytes;//請(qǐng)求信息內(nèi)容長(zhǎng)度
//創(chuàng)建動(dòng)態(tài)數(shù)組，用于以數(shù)組形式存儲(chǔ)請(qǐng)求信息內(nèi)容
FContentData := VarArrayCreate( [0,FContentLength], varByte );
//將請(qǐng)求信息內(nèi)容存儲(chǔ)到數(shù)組中
AOleVariant := FContentLength;
FContentData := ARequest.BinaryRead( AOleVariant );//讀取請(qǐng)求信息內(nèi)容
//將請(qǐng)求信息內(nèi)容轉(zhuǎn)化為字符串，便于定位
ContentData := '';
for longIndex := 0 to FContentLength - 1 do
begin
ContentData := ContentData + chr( Byte( FContentData[ longIndex ] ));
if FContentData[ longIndex ] = 0 then break;//0表示內(nèi)容結(jié)束
end;

　　３、獲取分界符、上載文件名稱(chēng)
//獲取表單域的分界符
longPos := pos( #13#10,ContentData );//回車(chē)換行符所在位置
FDelimeter := Copy( ContentData,1,longPos-1);//該位置之前的內(nèi)容為分隔符

//獲取帶源路徑的文件名稱(chēng)，在請(qǐng)求信息內(nèi)容中，文件名稱(chēng)以
//filename="path/filename"的形式存儲(chǔ)
strTemp := 'filename="';//文件名稱(chēng)在“filename="”之后
longPos := pos( strTemp, ContentData );//獲取“filename="”位置
if longPos <= 0 then
begin
FFileName := '';
FFileDataStart := -1;
FFileDataEnd := -2;
exit;
end;
//獲取下個(gè)雙引號(hào)“"”之前的內(nèi)容，即帶源路徑的文件名稱(chēng)
longPos := longPos + length( strTemp );
strTemp := '';
for longIndex := longPos to FContentLength - 1 do
if ContentData[ longIndex ] <> '"' then
strTemp := strTemp + ContentData[ longIndex ]
else break;
FFileName := strTemp;

　　４、獲取文件數(shù)據(jù)的在請(qǐng)求信息內(nèi)容中的開(kāi)始、結(jié)束位置
//文件數(shù)據(jù)開(kāi)始位置在文件名稱(chēng)后的第一個(gè)#13#10#13#10之后
delete( ContentData, 1, longIndex );
strTemp := #13#10#13#10;
FFileDataStart := longIndex + pos(strTemp, ContentData) + length(strTemp) - 1;

//文件數(shù)據(jù)結(jié)束位置在下一個(gè)#13#10和分界符之前
//由于文件數(shù)據(jù)可能包含非法字符，不能再用字符串定位函數(shù)POS
//查找下一個(gè)分界符的位置
FFileDataEnd := FFileDataStart;
intDelimterLength := length( FDelimeter );
FindEndOfFileData := false;
while FFileDataEnd <= FContentLength - intDelimterLength do
begin
FindEndOfFileData := true;
for ALongInt := 0 to intDelimterLength - 1 do
if Byte( FDelimeter[ ALongInt + 1 ] ) <> 
FContentData[ FFileDataEnd + ALongInt ] then
begin
FindEndOfFileData := false;
break;
end;
if FindEndOfFileData then break;
FFileDataEnd := FFileDataEnd + 1;
end;
if not FindEndOfFileData then FFileDataEnd := FFileDataStart - 1//未找到分界符
else FFileDataEnd := FFileDataEnd - 3;//分界符,向前跳過(guò)#13#10
end;

　　（三）向ＡＳＰ程序傳遞信息
　　在進(jìn)行了（二）的操作之后，我們的上載組件可以根據(jù)ＡＳＰ程序的要求向其傳遞數(shù)據(jù)了。目前
可以提供的數(shù)據(jù)有：客戶(hù)端源文件名稱(chēng)（FFileName，含路徑）、文件大小（FFileDataEnd-FFileDataStart+1）。
首先應(yīng)該在ＴＬＢ設(shè)計(jì)窗口中聲明如下兩個(gè)方法GetFileName和GetFileSize。
　　１、返回客戶(hù)端源文件名稱(chēng)（含路徑）
//返回客戶(hù)端源文件名稱(chēng)（含路徑）
function TUploadFile.GetFileName: OleVariant;
begin
result := FFileName;//客戶(hù)端源文件名稱(chēng)（含路徑）
end;
　　２、返回文件大小
//返回文件大小（Bytes）
function TUploadFile.GetFileSize: OleVariant;
begin
result := FFileDataEnd - FFileDataStart + 1;
end;

　　（四）保存文件
　　在進(jìn)行了（二）的操作之后，我們的上載組件可以根據(jù)ＡＳＰ程序的要求保存文件了。首先應(yīng)該在
ＴＬＢ設(shè)計(jì)窗口中聲明如下兩個(gè)方法SaveFileAs和SaveFile。
　　１、按指定文件名稱(chēng)保存文件
//按指定的文件名稱(chēng)保存文件，參數(shù)FileName為指定的文件名稱(chēng)，返回值True表示文件保存成功
function TUploadFile.SaveFileAs(FileName: OleVariant): OleVariant;
var
longIndex : LongInt;
AFile : file of byte;//以二進(jìn)制的形式保存文件
byteData : Byte;
begin
result := true;
try
assign( AFile, FileName );
rewrite( AFile );
for longIndex := FFileDataStart to FFileDataEnd do
begin
byteData := Byte( FContentData[ longIndex ] );
Write( AFile, byteData );
end;
CloseFile( AFile );
except
result := false;
end;
end;
　　２、按缺省文件名稱(chēng)保存文件
//按缺省文件名稱(chēng)保存文件，將文件以同名文件保存在調(diào)用頁(yè)面所在目錄
function TUploadFile.SaveFile: OleVariant;
var
CurrentFilePath : string;
begin
//獲取調(diào)用頁(yè)面所在目錄
CurrentFilePath := FScriptingContext.Request.ServerVariables['PATH_TRANSLATED'];
CurrentFilePath := ExtractFilePath( CurrentFilePath );
//保存文件
result := SaveFileAs( CurrentFilePath + ExtractFileName( FFileName ));
end;

三、上載組件應(yīng)用舉例
　　在我們的例子中，DelphiUp.HTM是文件上載界面，DelphiUp.ASP用來(lái)執(zhí)行文件上載操作。
DelphiUp.ASP的代碼如下：





四、幾點(diǎn)說(shuō)明
　　１、由ＤＥＬＰＨＩ自動(dòng)生成的源代碼編譯的ＤＬＬ文件大小有２１５Ｋ，可以在
ASPTypeLibrary_TLB.PAS的Interface段中將Uses中的單元除ActiveX外全部刪除，在
MyUpload_TLB.PAS中刪除Uses中所有單元，則生成的ＤＬＬ文件大小可減少到６１Ｋ。
　　２、以上方法同樣適用于ＣＧＩ程序，不過(guò)要用TWebRequest對(duì)象。

以上程序在PWIN98+Delphi3.0+PWS4.0下調(diào)試通過(guò)。
(作者：王發(fā)軍 wangfajun@163.net http://wangfajun.163.net) 
Welcome to www.net990.net ,2000,7,24