用DELPHI為ASP開發(fā)文件上載組件

2019-11-18 18:57:23

字體：大中小

供稿：網(wǎng)友

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

下面將討論用ＤＥＬＰＨＩ為ＡＳＰ開發(fā)文件上載組件的原理和具體實現(xiàn)過程。

一、文件上載的實現(xiàn)原理

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



<html><head><title>文件上載</title></head><body>

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

<form NAME="UploadForm" ACTION="delphiup.asp" METHOD="POST" ENCTYPE="mult
<p>文件另存為：<input TYPE=text NAME="SaveAs">

<p>請要選擇上載的文件：<input TYPE=file NAME="FileData">

<input type="submit" name="b1" value="確認(rèn)上載"> </p>

</form>

</body></html>

當(dāng)客戶端選擇了一個文件（如Test.TXT，其內(nèi)容為“這里是一個用于上載的文件的內(nèi)容?！保┎?BR>
“確認(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: est.txt"

Content-Type: text/plain#13#10#13#10

這里是一個用于上載的文件的內(nèi)容。#13#10

-----------------------------7cf1d6c47c#13#10

Content-Disposition: form-data; name="b1"#13#10#13#10

確認(rèn)上載#13#10

-----------------------------7cf1d6c47c--

其中，“-----------------------------7cf1d6c47c”是分界符，用于分隔表單（Form）中的各個域；

#13#10是回車換行符的ＤＥＬＰＨＩ表示。我們可以這樣認(rèn)為，每個表單域的信息描述，都是以分界符加一對回車換行符#13#10開始；表單域名以“name="”開始，以“"”為結(jié)束；表單域值以兩對回車換行符#13#10#13#10開始，以一對回車換行符#13#10#加分界符結(jié)束；文件名稱以“filename="”開始，以“"”為結(jié)束。有了這些標(biāo)志，我們就可以獲取表單域的名稱和值以及要上載的文件的名稱，從而實現(xiàn)文件數(shù)據(jù)的讀取和存儲了。

二、文件上載的實現(xiàn)過程

在理解上面提到的數(shù)據(jù)格式后，自己動手編寫一個文件上載組件對我們來說已經(jīng)不是困難了。

（一）開始建立一個ＡＳＰ組件的工程

如果您對用ＤＥＬＰＨＩ開發(fā)OLE Automation Server的步驟不太熟悉的話，請參見《電子與電腦》１９９９年第０６期的一篇文章《用ＤＥＬＰＨＩ開發(fā)用于ＡＳＰ的OLE Automation Server 》。

這里只簡要介紹一下操作步驟。

１、建立ActiveX Library工程

在ＤＥＬＰＨＩ中選擇菜單File＝》New...，在“New Item”對話框的ActiveX選項卡中選擇“ActiveX Library”，ＤＥＬＰＨＩ會自動創(chuàng)建一個ＤＬＬ工程 PRoject1。

２、建立Automation組件

在ＤＥＬＰＨＩ中選擇菜單File＝》New...，在“New Item”對話框的ActiveX選項卡中選擇“Automation Object”；然后在“Automation Object Wizard”對話框中輸入Class Name(如“UploadFile”)，Instancing選擇“Multiple Instance”即可，單擊“OK”后ＤＥＬＰＨＩ會自動創(chuàng)建一個ＴＬＢ（Type Library）文件Project1_TLB.PAS和一個ＰＡＳ(Unit)文件Unit1.PAS。在Type Library設(shè)計窗口中，將Project1改名為MyUpload，則該文件上載組件的ＯＬＥ注冊碼為“MyUpload.UploadFile”。

３、引入ＡＳＰ類型庫

為了使用ＡＳＰ的五個內(nèi)建對象（Request、Response、Server、application、session），需要引入ＡＳＰ類型庫。我們主要利用Request對象讀取從客戶端傳遞到服務(wù)器端的數(shù)據(jù)。

在Project菜單中選擇“Import Type Library”，在“Import Type Library”對話框的“Type Libraries”列表選擇“Microsoft Active Server Pages Object Library(Version 2.0)”（如果沒有這個選項，請確定您的計算機(jī)上安裝了ＩＩＳ３以上或ＰＷＳ４以上并且ASP.DLL已正確注冊），ＤＥＬＰＨＩ會自動創(chuàng)建一個ＴＬＢ文件ASPTypeLibrary_TLB.PAS，其中有我們需要的ＡＳＰ對象類型聲明。

４、定義OnStartPage、OnEndPage過程

當(dāng)在ＡＳＰ頁面上用Server.CreateObject創(chuàng)建一個ＯＬＥ對象實例時，ＷＥＢ服務(wù)器會調(diào)用其方法OnStartPage，將ＡＳＰ應(yīng)用環(huán)境信息傳遞給該對象，我們可以在該過程中獲取客戶端信息；當(dāng)在ＡＳＰ頁面中釋放一個ＯＬＥ對象實例時，ＷＥＢ服務(wù)器會調(diào)用其方法OnEndPage，我們可以在該過程中進(jìn)行釋放內(nèi)存等結(jié)束操作。在我們這個組件中，我們要用到其OnStartPage方法。

OnStartPage方法應(yīng)該在Unit1.PAS中定義，OnStartPage的函數(shù)原型為：

procedure OnStartPage(AScriptingContext: IUnknown);

其中參數(shù)AScriptingContext是一個IScriptingContext類型變量，包含五個屬性（Request、Response、Server、Application、Session）分別對應(yīng)ＡＳＰ的五個內(nèi)建同名對象。

我們需要在ＴＬＢ定義窗口（View＝》Type Library）中，為IUploadFile增加方法OnStartPage，其Declaration語句為“procedure OnStartPage(AScriptingContext: IUnknown);”。

（二）提取客戶端上傳的數(shù)據(jù)

該工作可以放在OnStartPage過程中進(jìn)行。

利用AScriptingContext的屬性Request(類型為IRequest)中的屬性TotalBytes（請求信息內(nèi)容長度）和方法BinaryRead可將客戶端上傳的請求信息數(shù)據(jù)讀取到一個Byte類型的數(shù)組中，然后按RFC1867標(biāo)準(zhǔn)定義的數(shù)據(jù)格式來分析和提取數(shù)據(jù)。

１、首先定義TUploadFile的幾個私有變量

在單元文件UP01.PAS（由Unit1.PAS另存）中加入對ASPTypeLibrary_TLB.PAS的引用（Uses），

然后加入

private

FContentLength : LongInt;//請求信息內(nèi)容長度

FContentData : Variant;//內(nèi)容數(shù)據(jù),以數(shù)組形式存儲請求信息內(nèi)容

FFileName, //要上載的文件名稱

FDelimeter : string; //表單域分界符

FScriptingContext : IScriptingContext;//ASP處理上下文環(huán)境內(nèi)容

FFileDataStart, //文件數(shù)據(jù)開始位置

FFileDataEnd : LongInt; //文件數(shù)據(jù)結(jié)束位置

２、提取客戶端上傳的請求信息數(shù)據(jù)

//在OnStartPage事件中，獲取ASP上下文信息、請求信息內(nèi)容、表單域的分界符、文件數(shù)據(jù)

procedure TUploadFile.OnStartPage(AScriptingContext: IUnknown);

var

ARequest : IRequest; //WWW請求對象

AOleVariant : OleVariant; //記錄請求信息內(nèi)容長度

intDelimterLength : integer;//分界符長度

longIndex,ALongInt,longPos : LongInt;

ContentData : AnsiString;//請求信息內(nèi)容的字符串表示

strTemp : string;

FindEndOfFileData : boolean;//是否找到文件數(shù)據(jù)結(jié)束位置

begin

//提取客戶端上傳的請求信息數(shù)據(jù)

FScriptingContext := AScriptingContext as IScriptingContext;//獲取ASP上下文信息

ARequest := FScriptingContext.Request;//獲取WWW請求信息

FContentLength := ARequest.TotalBytes;//請求信息內(nèi)容長度

//創(chuàng)建動態(tài)數(shù)組，用于以數(shù)組形式存儲請求信息內(nèi)容

FContentData := VarArrayCreate( [0,FContentLength], varByte );

//將請求信息內(nèi)容存儲到數(shù)組中

AOleVariant := FContentLength;

FContentData := ARequest.BinaryRead( AOleVariant );//讀取請求信息內(nèi)容

//將請求信息內(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;

３、獲取分界符、上載文件名稱

//獲取表單域的分界符

longPos := pos( #13#10,ContentData );//回車換行符所在位置

FDelimeter := Copy( ContentData,1,longPos-1);//該位置之前的內(nèi)容為分隔符

//獲取帶源路徑的文件名稱，在請求信息內(nèi)容中，文件名稱以

//filename="path/filename"的形式存儲

strTemp := 'filename="';//文件名稱在“filename="”之后

longPos := pos( strTemp, ContentData );//獲取“filename="”位置

if longPos <= 0 then

begin

FFileName := ';

FFileDataStart := -1;

FFileDataEnd := -2;

exit;

end;

//獲取下個雙引號“"”之前的內(nèi)容，即帶源路徑的文件名稱

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ù)的在請求信息內(nèi)容中的開始、結(jié)束位置

//文件數(shù)據(jù)開始位置在文件名稱后的第一個#13#10#13#10之后

delete( ContentData, 1, longIndex );

strTemp := #13#10#13#10;

FFileDataStart := longIndex + pos(strTemp, ContentData) + length(strTemp) - 1;

//文件數(shù)據(jù)結(jié)束位置在下一個#13#10和分界符之前

//由于文件數(shù)據(jù)可能包含非法字符，不能再用字符串定位函數(shù)POS

//查找下一個分界符的位置

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;//分界符,向前跳過#13#10

end;

（三）向ＡＳＰ程序傳遞信息

在進(jìn)行了（二）的操作之后，我們的上載組件可以根據(jù)ＡＳＰ程序的要求向其傳遞數(shù)據(jù)了。目前可以提供的數(shù)據(jù)有：客戶端源文件名稱（FFileName，含路徑）、文件大?。‵FileDataEnd-FFileDataStart+1）。

首先應(yīng)該在ＴＬＢ設(shè)計窗口中聲明如下兩個方法GetFileName和GetFileSize。

１、返回客戶端源文件名稱（含路徑）

//返回客戶端源文件名稱（含路徑）

function TUploadFile.GetFileName: OleVariant;

begin

result := FFileName;//客戶端源文件名稱（含路徑）

end;

２、返回文件大小

//返回文件大?。˙ytes）

function TUploadFile.GetFileSize: OleVariant;

begin

result := FFileDataEnd - FFileDataStart + 1;

end;

（四）保存文件

在進(jìn)行了（二）的操作之后，我們的上載組件可以根據(jù)ＡＳＰ程序的要求保存文件了。首先應(yīng)該在

ＴＬＢ設(shè)計窗口中聲明如下兩個方法SaveFileAs和SaveFile。

１、按指定文件名稱保存文件

//按指定的文件名稱保存文件，參數(shù)FileName為指定的文件名稱，返回值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;

２、按缺省文件名稱保存文件

//按缺省文件名稱保存文件，將文件以同名文件保存在調(diào)用頁面所在目錄

function TUploadFile.SaveFile: OleVariant;

var

CurrentFilePath : string;

begin

//獲取調(diào)用頁面所在目錄

CurrentFilePath := FScriptingContext.Request.ServerVariables['PATH_TRANSLATED'];

CurrentFilePath := ExtractFilePath( CurrentFilePath );

//保存文件

result := SaveFileAs( CurrentFilePath + ExtractFileName( FFileName ));

end;

三、上載組件應(yīng)用舉例

在我們的例子中，DelphiUp.HTM是文件上載界面，DelphiUp.ASP用來執(zhí)行文件上載操作。

DelphiUp.ASP的代碼如下：



<html><head><title>文件上載</title></head><body>

<% dim Upload, FileName

set Upload = Server.CreateObject("MyUpload.UploadFile")

FileName = Upload.GetFileName

Response.Write "<br>正在保存文件《"&FileName&"》......"

if Upload.SaveFile then

Response.Write "<br>文件《"&FileName&"》上載成功。"

Response.Write "<br>文件大小為"&Upload.GetFileSize&"字節(jié)。"

else

Response.Write "<br>文件《"&FileName&"》上載失敗。"

end if

set Upload=nothing %>

</body></html>

四、幾點說明

１、由ＤＥＬＰＨＩ自動生成的源代碼編譯的ＤＬＬ文件大小有２１５Ｋ，可以在

ASPTypeLibrary_TLB.PAS的Interface段中將Uses中的單元除ActiveX外全部刪除，在

MyUpload_TLB.PAS中刪除Uses中所有單元，則生成的ＤＬＬ文件大小可減少到６１Ｋ。

２、以上方法同樣適用于ＣＧＩ程序，不過要用TWebRequest對象。

以上程序在PWIN98+Delphi3.0+PWS4.0下調(diào)試通過。

上一篇：用Delphi進(jìn)行OpenGL編程學(xué)習(xí)心得

下一篇：在Delphi程序中應(yīng)用IE瀏覽器控件

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注