用Delphi 6開發ASP上傳組件詳解

來源:互聯網
上載者:User
上傳|詳解

檔案上傳是WEB開發中經常要用到的功能,但ASP本身和內建的組件都不支援檔案上傳功能。網上流傳的一些第三方組件雖然能夠解決這個問題,但大多是要收費的,更別說Open Source了。本文將詳細剖析WEB檔案上傳的原理,以及一步步指導讀者如何用Delphi6開發一個ASP上傳組件。

1 Html檔案分析
  首先我們來看一個html檔案源碼,檔案名稱是test.htm,功能是提供使用者上傳的介面:

<html>
<body>
<center>
   <form name="mainForm" enctype="multipart/form-data"
action="test.asp" method=post>
    <input type=file name=mefile><br>
<input type=hidden name=a1 value="fdsaf">
<input type=hidden name=a2 value="fdsaf">
<input type=hidden name=a3 value="fdsaf">
<input type=hidden name=a4 value="fsdfsdsaf">
<input type=hidden name=a5 value="這個是這個">
<input type=text name=a6 value="fdsaf">
   <input type=submit name=ok value="OK">
   </form>
</center>
</body>
</html>

  這個檔案裡包含了一個名為mainForm的form,以及隨手寫的一些input域。注意這個form和一般的form有兩個不同的地方:一是它有一個type=file的域,沒有value。用瀏覽器開啟這個檔案時,這個域會表現為一個右側有“瀏覽”字樣的檔案輸入框,使用者可以通過它來選擇本地硬碟上的檔案。二是form有一個特殊的屬性:enctype="multipart/form-data"。這個屬性告訴瀏覽器要上傳二進位檔案,並進行相應編碼。
  這種編碼會產生什麼樣的表單資訊呢?讓我們來看看test.asp,也就是接受表單的asp檔案的源碼,它非常簡單:

<%
formsize=request.totalbytes   '獲得表單原始資訊的長度
formdata=request.binaryread(formsize)   '讀取表單原始資訊

response.binarywrite formdata  '返回表單原始資訊
%>

  如讀者在注釋中瞭解的,這段代碼的功能是將表單的原始資訊返回。讓我們來看看它的運行效果。將這兩個檔案置於web目錄下,訪問test.htm。在檔案輸入框中,選擇一個檔案(我選了一個jpg圖片,不過最大不要太大)。提交,然後可以看到這樣一堆亂七八糟的資訊:

-----------------------------7d2227629012e Content-Disposition: form-data; name="mefile"; filename="C:\Documents and Settings\aaa\My Documents\My Pictures\zzjh.jpg" Content-Type: image/pjpeg (作者註:以下為亂碼) -----------------------------7d2227629012e Content-Disposition: form-data; name="a1" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a2" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a3" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a4" fsdfsdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="a5" 這個是這個 -----------------------------7d2227629012e Content-Disposition: form-data; name="a6" fdsaf -----------------------------7d2227629012e Content-Disposition: form-data; name="ok" OK -----------------------------7d2227629012e--

  這就是用"multipart/form-data"方式編碼的表單原始資訊。其中那一段看起來是亂碼的部分,就是jpg圖片的編碼。(實際的jpg圖片編碼可能要比這長得多,視檔案大小而定。為了行文方便,作者只保留了一小部分。)
  分析一下這段資訊的格式:  

-----------------------------7d2227629012e 這是各個域之間的分隔字元。
Content-Disposition: form-data; 說明這是表單中的域。
name="mefile"; 域的名稱。
filename="C:\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; safecal



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。