用DELPHI为ASP开发文件上载组件
2006-02-04 13:27:40 来源：WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簻椤掋垺銇勯幇顖毿撻柟渚垮妼椤粓宕卞Δ鈧獮濠勭磽閸屾艾鈧懓顫濋妸鈺佺疅缂佸顑欓崥瀣煕椤愵偅绶氱紓鍐╂礋濮婂宕掑▎鎴М濠电姭鍋撻梺顒€绉甸幆鐐哄箹濞ｎ剙濡肩紒鎰殜閺屸€愁吋鎼粹€茬敖婵炴垶鎸哥粔鐢稿Φ閸曨垰鍐€妞ゆ劦婢€濞岊亪姊虹紒妯诲蔼闁稿海鏁诲濠氭晲婢跺﹤宓嗛梺缁樺姈缁佹挳宕戦幘璇叉嵍妞ゆ挻绋戞禍鐐叏濡厧浜鹃悗姘炬嫹
闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簼閹癸綁鏌ｉ鐐搭棞闁靛棙甯掗～婵嬫晲閸涱剙顥氬┑掳鍊楁慨鐑藉磻濞戔懞鍥偨缁嬫寧鐎梺鐟板⒔缁垶宕戦幇鐗堢厵缂備焦锚缁椦囨煃瑜滈崜锕傚矗閸愵煈娼栭柛婵嗗珔瑜斿畷鎯邦槾濞寸姴銈稿铏规嫚閼碱剛顔夐梺鐓庣秺缁犳牠骞冩ィ鍐╁€婚柦妯侯槼閹芥洟姊洪棃娑辨濠碘€虫喘瀹曘垽鎮介崨濞炬嫼闁荤喐鐟ョ€氱兘宕箛娑欑厱闁绘ê纾晶鐢告煏閸℃鈧湱缂撴禒瀣窛濠电姴瀚獮鍫ユ⒑绾懎顥嶉柟娲讳簽濡叉劙寮撮悢鍝勨叞闂傚倸鍊风欢姘缚瑜嶇叅闁靛牆娲犻崑鎾愁潩椤愩垹绁梺缁樹緱閸ｏ綁鐛幒鎳虫棃鍩€椤掑倻涓嶉柨婵嗘缁♀偓闂傚倸鐗婄粙鎴﹀汲濞嗗緷鐟扳堪閸垻鏆梺鍝勭焿缂嶄焦鎱ㄩ埀顒勬煃閹増纭炬繝鈧潏銊х彾闁哄洨鍠撶弧鈧┑顔斤供閸橀箖宕㈤悽鍛娾拺缂備焦锚婵箓鏌涢幘鏉戝摵闁诡喗蓱濞煎繘濡搁妶鍥╃暰闂備礁婀辩划顖滄暜閻愬瓨娅犳繛鎴炴皑绾捐偐绱撴担璐細婵炴彃顕埀顒冾潐濞叉牕鐣烽鍐簷闂備礁鎲￠崝鏇㈠疮閻樿绀堟繝闈涚墛瀹曞弶绻涢幋鐐ㄧ細闁哄棗妫楅埞鎴︽偐鏉堫偄鍘￠梺杞扮劍閻楁粎妲愰幘瀛樺濞寸姴顑呴幗鐢告⒑閸︻厽鍤€婵炲眰鍊濋幃楣冩倻閽樺顔婇梺瑙勬儗閸樹粙宕撻悽鍛娾拺闁荤喐婢橀幃渚€鏌ｉ幒鐐电暤闁诡喗顨婇獮鏍ㄦ媴閸忓瀚藉┑鐐舵彧缁插潡宕曢妶澶婂惞闁逞屽墴濮婃椽骞栭悙娴嬪亾閺嶎厽鍋嬮柣妯垮吹瀹撲線鐓崶銊р姇闁哄懏鎮傞弻銊╂偆閸屾稑顏�
婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繘鏌ｉ幋锝嗩棄闁哄绶氶弻娑樷槈濮楀牊鏁鹃梺鍛婄懃缁绘垿濡甸崟顖氱闁告鍋熸禒鑲╃磽娴ｅ搫顎岄柛銊ョ埣瀵鈽夐姀鐘电杸闂傚倸鐗婄粙鎺楁倶閸儲鍊甸柣鐔哄閸熺偟绱掔拠鎻掓殻濠碉紕鏁诲畷鐔碱敍濮橀硸鍟嬮梺璇查叄濞佳囧箺濠婂牊鍋╁┑鍌氭啞閳锋垹鐥鐐村婵炲吋鍔栫换娑㈡嚑椤掆偓閺嬪孩銇勯銏㈢缂佽鲸甯掕灒闁兼祴鏅滈崵宀勬⒒娓氣偓閳ь剛鍋涢懟顖涙櫠椤旇偐鏆嗛柨婵嗙墕閸斿灚銇勯敂鐣屽弨闁诡噯绻濇俊鑸靛緞鐎ｎ剙甯鹃梻浣稿閸嬪懐鎹㈤崘顔肩；妞ゅ繐鎳愮粻鍓р偓鐟板閸犳洜鑺辨繝姘畾闁绘柨鍚嬮埛鎴︽倵閸︻厼校闁靛棗鍟撮弻銈夊礃閼碱剙鐓熼悗瑙勬礃缁诲牓寮崘顔肩劦妞ゆ帒瀚ч埀顒佹瀹曟﹢顢欓崲澹洦鐓曢柍鈺佸枤濞堟﹢鏌ｉ悢绋垮婵﹥妞介幃鈩冩償閳╁啯鐦ｉ梻浣虹帛閻楁洟濡剁粙璺ㄦ殾闁绘垶岣跨弧鈧梺鎼炲劀閸愩劎銈梻鍌欑窔濞佳勵殽韫囨洘顫曢柡鍥ュ灩閸屻劍銇勮箛鎾跺闁抽攱鍨块弻鐔兼嚃閳轰椒绮堕梺鍛婃⒐椤ㄥ﹪寮婚敓鐘插窛妞ゆ棃鏁慨鍥╃磽娴ｇǹ鈧湱鏁悢濡撳洨鈧潧鎽滅壕濂稿级閸稑濡肩紒妤佺缁绘盯鎮℃惔锝囶啋闂佺硶鏂侀崜婵嬪箯閸涘瓨鐓ラ悗锝呯仛缂嶆姊婚崒姘偓宄懊归崶褜娴栭柕濞炬櫆閸婂潡鏌ㄩ弴鐐测偓鍝ョ不閺屻儲鐓曢柕澶樺枛婢ь噣鏌＄€ｂ晝绐旈柡宀€鍠栧畷婊嗩槾閻㈩垱鐩弻锟犲川椤旇棄鈧劙鏌＄仦璇插闁诡喓鍊濆畷鎺戔槈濮楀棔绱�闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簻椤掋垺銇勯幇顖毿撻柟渚垮妼椤粓宕卞Δ鈧獮濠勭磽閸屾艾鈧懓顫濋妸鈺佺疅缂佸顑欓崥瀣煕椤愵偅绶氱紓鍐╂礋濮婂宕掑▎鎴М濠电姭鍋撻梺顒€绉甸幆鐐哄箹濞ｎ剙濡肩紒鎰殜閺屸€愁吋鎼粹€茬敖婵炴垶鎸哥粔鐢稿Φ閸曨垰鍐€妞ゆ劦婢€濞岊亪姊虹紒妯诲蔼闁稿海鏁诲濠氭晲婢跺﹤宓嗛梺缁樺姈缁佹挳宕戦幘璇叉嵍妞ゆ挻绋戞禍鐐叏濡厧浜鹃悗姘炬嫹 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻锝夊箣閿濆憛鎾绘煕閵堝懎顏柡灞诲€濆畷顐﹀Ψ閿旇姤鐦庡┑鐐差嚟婵潧顫濋妸褎顫曢柟鎹愵嚙绾惧吋绻涢崱妯虹瑨闁告﹫绱曠槐鎾寸瑹閸パ勭彯闂佹悶鍔岄悥鍏间繆閹绢喖绀冩い鏃傚帶缁愭盯姊洪崫鍕垫Ч闁搞劌缍婂畷銏犆洪鍛偓鍨殽閻愯尙浠㈤柛鏃€纰嶉妵鍕晜鐠囪尙浠搁悗瑙勬穿缁绘繈鐛惔銊﹀殟闁靛／鍐ㄥ闂傚倸饪撮崑鍕洪敃鈧叅闁哄秲鍔庢晶锟犳⒒閸屾瑦绁版い鏇嗗應鍋撻崹顐㈡诞鐎规洘绮撻幃銏＄附婢跺绋侀梻浣瑰劤缁绘劕锕㈡潏鈺侇棜闁稿繘妫跨换鍡樸亜閺嶃劎顣查柟顖氱墛閵囧嫰顢曢姀鈶裤垺銇勯鍕殻濠碘€崇埣瀹曞崬螖閳ь剟锝炴惔銊︹拺闁告稑饪撮悞濂告煕閵夋垵鎳庡銊モ攽閻橆喖鐏辨繛澶嬬閻у矂姊虹紒妯荤叆闁告艾顑夐幃锟犲Ψ閳哄倸鈧敻鏌ㄥ┑鍡涱€楅柛妯绘尦閺屾稓鈧綆鍋呯亸鎵磼缂佹ḿ绠撴い顐ｇ箞椤㈡ê鈽夊▎蹇ｄ紪闂備浇宕甸崰鎰垝鎼淬垺娅犳俊銈呭暞閺嗘粓鏌熼悜妯诲暗妞も晜褰冮湁闁绘挸娴烽幗鐘绘煟閹惧瓨绀嬮柡宀€鍠栭獮鍡氼檨闁搞倗鍠栭弻宥夋寠婢舵ɑ鈻堥梺鍝勮嫰缁夊墎妲愰幒鎳崇喖鎳￠妶鍛辈濠碉紕鍋戦崐銈夊磻閸涱垱宕查柛顐犲劚缁犵姵绻濇繝鍌涘櫣闁哄鐗婃穱濠囶敍濠垫劕娈銈呯箰缂嶅﹤顫忔繝姘＜婵炲棙鍩堝Σ顕€姊虹涵鍜佸殝缂佽鲸娲滈崚鎺戔枎閹惧磭顓洪梺鎸庢煥閹碱偅绂嶆總鍛娾拺闁告繂瀚峰Σ褰掓煕閵娧冩灈鐎殿喗鎮傚顕€宕奸悢鍝勫箰闂備礁鎲￠崝褏寰婇懞銉ь洸闁告挆鍛紳婵炶揪缍€濞咃絿鏁☉姘辩＜閻庯綆鍋呯亸鎵磼閸屾稑娴柡浣稿暣瀹曟帒顫濋幉瀣簥濠电姵顔栭崰妤呮晝閳哄懎绀堥柨鏇炲€归崐鐢告煙閹澘袚闁抽攱甯掗湁闁挎繂鎳忛幉鎼佹煥濞戞ḿ肖缂佽鲸甯￠、姘跺川椤撶姳妗撴俊銈囧Х閸嬬偤宕归崹顔炬殾闁割偅娲﹂弫鍡涙煕鐏炵偓鐨戦柕鍫畵濮婅櫣鎷犻幓鎺戞瘣缂傚倸绉村Λ娆戠矉瀹ュ鍐€妞ゆ挾鍋熼崫妤佺箾鐎电ǹ孝妞ゆ垵妫濋幃鈥斥枎閹剧补鎷哄銈嗘尪閸斿酣鎮鹃崡鐑嗙唵鐟滄粓宕归柆宥呂﹂柛鏇ㄥ灠濡﹢鏌涢…鎴濇灀闁稿鎸鹃幉鎾礋椤撴稒鏁靛┑鐘垫暩婵潙煤閿曞倸纾归梺鍨儍娴滄粓鐓崶銊﹀碍妞ゅ繈鍊濋弻娑氣偓锝庡亝瀹曞瞼鈧鍠栭埀顒傚櫏濡俱劌鈹戦悙鎻掓倯闁绘娲熼崺鐐哄箣閿旇棄浜归柣搴℃贡婵挳藟濠靛鈷戠紒瀣劵椤箓鏌涢弬鍧楀弰妤犵偛顦～銏犵暆閳ь剟鎮块埀顒€鈹戦悙鏉戠仸瀹€锝呮健閹潡宕ㄧ€涙ǚ鎷洪梺闈╁瘜閸欌偓婵＄偓鎮傞弻娑㈡偐閹颁焦鐤侀悗娈垮枟閻擄繝鐛弽銊﹀闁革富鍘煎鎶芥⒒娴ｈ櫣甯涙繛鍙夌墵瀹曟劙宕烽娑樹壕婵ḿ鍋撶€氾拷
核心提示：ＡＳＰ(Active Server Page)是微软公司的产品，由于它编程很容易上手，用DELPHI为ASP开发文件上载组件，能快速开发功能强大的动态网站，现在很多网站（特别是Intranet/Extranet内部网）采用了ＮＴ＋ＩＩＳ＋ＡＳＰ的模式，２、以上方法同样适用于ＣＧＩ程序，不过要用TWebRequest对象
ＡＳＰ(Active Server Page)是微软公司的产品，由于它编程很容易上手，能快速开发功能强大的动态网站，现在很多网站（特别是Intranet/Extranet内部网）采用了ＮＴ＋ＩＩＳ＋ＡＳＰ的模式，使得ＡＳＰ成为目前较为流行的网站开发脚本语言。在ＷＥＢ服务中，文件上载服务是一个很常见的功能，而ＷＩＮ９Ｘ下的ＰＷＳ没有提供相关组件；ＮＴ下的ＩＩＳ提供了一个Post Acceptor组件，但由于它要检查用户的ＷＷＷ访问权限而变得不太好用；也可以从Internet上下载有关组件，但这些大多都是商业组件，用于下载的是试用版，在使用时间或功能上都有限制。由于ＡＳＰ可以调用标准的ＯＬＥ／ＣＯＭ组件，我们可以用ＶＢ／ＶＣ／ＤＥＬＰＨＩ等高级编程工具根据我们自己的要求来定制自己的ＡＳＰ文件上载组件，满足自己的应用系统要求。
下面将讨论用ＤＥＬＰＨＩ为ＡＳＰ开发文件上载组件的原理和具体实现过程。
一、文件上载的实现原理
基于Web方式数据上传，要遵从RFC1867标准，上载的文件数据也不例外。如用下面ＨＴＭＬ页面文件（delphiup.htm）选择上载文件：
<!-- DelphiUp.htm：文件上载界面 -->
<html><head><title>文件上载</title></head><body>
用ＤＥＬＰＨＩ编写的文件上载组件实现文件上载
<form NAME="UploadForm" ACTION="delphiup.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<p>文件另存为：<input TYPE=text NAME="SaveAs">
<p>请要选择上载的文件：<input TYPE=file NAME="FileData">
<input type="submit" name="b1" value="确认上载"> </p>
</form>
</body></html>
当客户端选择了一个文件（如Test.TXT，其内容为“这里是一个用于上载的文件的内容。”）并按
“确认上载”按钮提交数据后，服务器端程序收到的数据将具有如下形式：
-----------------------------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
这里是一个用于上载的文件的内容。#13#10
-----------------------------7cf1d6c47c#13#10
Content-Disposition: form-data; name="b1"#13#10#13#10
确认上载#13#10
-----------------------------7cf1d6c47c--
其中，“-----------------------------7cf1d6c47c”是分界符，用于分隔表单（Form）中的各个域；
#13#10是回车换行符的ＤＥＬＰＨＩ表示。我们可以这样认为，每个表单域的信息描述，都是以分界符加一对回车换行符#13#10开始；表单域名以“name="”开始，以“"”为结束；表单域值以两对回车换行符#13#10#13#10开始，以一对回车换行符#13#10#加分界符结束；文件名称以“filename="”开始，以“"”为结束。有了这些标志，我们就可以获取表单域的名称和值以及要上载的文件的名称，从而实现文件数据的读取和存储了。
二、文件上载的实现过程
在理解上面提到的数据格式后，自己动手编写一个文件上载组件对我们来说已经不是困难了。
（一）开始建立一个ＡＳＰ组件的工程
如果您对用ＤＥＬＰＨＩ开发OLE Automation Server的步骤不太熟悉的话，请参见《电子与电脑》１９９９年第０６期的一篇文章《用ＤＥＬＰＨＩ开发用于ＡＳＰ的OLE Automation Server 》。
这里只简要介绍一下操作步骤。
１、建立ActiveX Library工程
在ＤＥＬＰＨＩ中选择菜单File＝》New...，在“New Item”对话框的ActiveX选项卡中选择“ActiveX Library”，ＤＥＬＰＨＩ会自动创建一个ＤＬＬ工程PRoject1。
２、建立Automation组件
在ＤＥＬＰＨＩ中选择菜单File＝》New...，在“New Item”对话框的ActiveX选项卡中选择“Automation Object”；然后在“Automation Object Wizard”对话框中输入Class Name(如“UploadFile”)，Instancing选择“Multiple Instance”即可，单击“OK”后ＤＥＬＰＨＩ会自动创建一个ＴＬＢ（Type Library）文件Project1_TLB.PAS和一个ＰＡＳ(Unit)文件Unit1.PAS。在Type Library设计窗口中，将Project1改名为MyUpload，则该文件上载组件的ＯＬＥ注册码为“MyUpload.UploadFile”。
３、引入ＡＳＰ类型库
为了使用ＡＳＰ的五个内建对象（Request、Response、Server、application、session），需要引入ＡＳＰ类型库。我们主要利用Request对象读取从客户端传递到服务器端的数据。
在Project菜单中选择“Import Type Library”，在“Import Type Library”对话框的“Type Libraries”列表选择“Microsoft Active Server Pages Object Library(Version 2.0)”（如果没有这个选项，请确定您的计算机上安装了ＩＩＳ３以上或ＰＷＳ４以上并且ASP.DLL已正确注册），ＤＥＬＰＨＩ会自动创建一个ＴＬＢ文件ASPTypeLibrary_TLB.PAS，其中有我们需要的ＡＳＰ对象类型声明。
４、定义OnStartPage、OnEndPage过程
当在ＡＳＰ页面上用Server.CreateObject创建一个ＯＬＥ对象实例时，ＷＥＢ服务器会调用其方法OnStartPage，将ＡＳＰ应用环境信息传递给该对象，我们可以在该过程中获取客户端信息；当在ＡＳＰ页面中释放一个ＯＬＥ对象实例时，ＷＥＢ服务器会调用其方法OnEndPage，我们可以在该过程中进行释放内存等结束操作。在我们这个组件中，我们要用到其OnStartPage方法。
OnStartPage方法应该在Unit1.PAS中定义，OnStartPage的函数原型为：
procedure OnStartPage(AScriptingContext: IUnknown);
其中参数AScriptingContext是一个IScriptingContext类型变量，包含五个属性（Request、Response、Server、Application、Session）分别对应ＡＳＰ的五个内建同名对象。
我们需要在ＴＬＢ定义窗口（View＝》Type Library）中，为IUploadFile增加方法OnStartPage，其Declaration语句为“procedure OnStartPage(AScriptingContext: IUnknown);”。
（二）提取客户端上传的数据
该工作可以放在OnStartPage过程中进行。
利用AScriptingContext的属性Request(类型为IRequest)中的属性TotalBytes（请求信息内容长度）和方法BinaryRead可将客户端上传的请求信息数据读取到一个Byte类型的数组中，然后按RFC1867标准定义的数据格式来分析和提取数据。
１、首先定义TUploadFile的几个私有变量
在单元文件UP01.PAS（由Unit1.PAS另存）中加入对ASPTypeLibrary_TLB.PAS的引用（Uses），
然后加入
private
FContentLength : LongInt;//请求信息内容长度
FContentData : Variant;//内容数据,以数组形式存储请求信息内容
FFileName, //要上载的文件名称
FDelimeter : string; //表单域分界符
FScriptingContext : IScriptingContext;//ASP处理上下文环境内容
FFileDataStart, //文件数据开始位置
FFileDataEnd : LongInt; //文件数据结束位置
２、提取客户端上传的请求信息数据
//在OnStartPage事件中，获取ASP上下文信息、请求信息内容、表单域的分界符、文件数据
procedure TUploadFile.OnStartPage(AScriptingContext: IUnknown);
var
ARequest : IRequest; //WWW请求对象
AOleVariant : OleVariant; //记录请求信息内容长度
intDelimterLength : integer;//分界符长度
longIndex,ALongInt,longPos : LongInt;
ContentData : AnsiString;//请求信息内容的字符串表示
strTemp : string;
FindEndOfFileData : boolean;//是否找到文件数据结束位置
begin
//提取客户端上传的请求信息数据
FScriptingContext := AScriptingContext as IScriptingContext;//获取ASP上下文信息
ARequest := FScriptingContext.Request;//获取WWW请求信息
FContentLength := ARequest.TotalBytes;//请求信息内容长度
//创建动态数组，用于以数组形式存储请求信息内容
FContentData := VarArrayCreate( [0,FContentLength], varByte );
//将请求信息内容存储到数组中
AOleVariant := FContentLength;
FContentData := ARequest.BinaryRead( AOleVariant );//读取请求信息内容
//将请求信息内容转化为字符串，便于定位
ContentData := ';
for longIndex := 0 to FContentLength - 1 do
begin
ContentData := ContentData + chr( Byte( FContentData[ longIndex ] ));
if FContentData[ longIndex ] = 0 then break;//0表示内容结束
end;
３、获取分界符、上载文件名称
//获取表单域的分界符
longPos := pos( #13#10,ContentData );//回车换行符所在位置
FDelimeter := Copy( ContentData,1,longPos-1);//该位置之前的内容为分隔符
//获取带源路径的文件名称，在请求信息内容中，文件名称以
//filename="path/filename"的形式存储
strTemp := 'filename="';//文件名称在“filename="”之后
longPos := pos( strTemp, ContentData );//获取“filename="”位置
if longPos <= 0 then
begin
FFileName := ';
FFileDataStart := -1;
FFileDataEnd := -2;
exit;
end;
//获取下个双引号“"”之前的内容，即带源路径的文件名称
longPos := longPos + length( strTemp );
strTemp := ';
for longIndex := longPos to FContentLength - 1 do
if ContentData[ longIndex ] <> '"' then
strTemp := strTemp + ContentData[ longIndex ]
else break;
FFileName := strTemp;
４、获取文件数据的在请求信息内容中的开始、结束位置
//文件数据开始位置在文件名称后的第一个#13#10#13#10之后
delete( ContentData, 1, longIndex );
strTemp := #13#10#13#10;
FFileDataStart := longIndex + pos(strTemp, ContentData) + length(strTemp) - 1;
//文件数据结束位置在下一个#13#10和分界符之前
//由于文件数据可能包含非法字符，不能再用字符串定位函数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;
（三）向ＡＳＰ程序传递信息
在进行了（二）的操作之后，我们的上载组件可以根据ＡＳＰ程序的要求向其传递数据了。目前可以提供的数据有：客户端源文件名称（FFileName，含路径）、文件大小（FFileDataEnd-FFileDataStart+1）。
首先应该在ＴＬＢ设计窗口中声明如下两个方法GetFileName和GetFileSize。
１、返回客户端源文件名称（含路径）
//返回客户端源文件名称（含路径）
function TUploadFile.GetFileName: OleVariant;
begin
result := FFileName;//客户端源文件名称（含路径）
end;
２、返回文件大小
//返回文件大小（Bytes）
function TUploadFile.GetFileSize: OleVariant;
begin
result := FFileDataEnd - FFileDataStart + 1;
end;
（四）保存文件
在进行了（二）的操作之后，我们的上载组件可以根据ＡＳＰ程序的要求保存文件了。首先应该在
ＴＬＢ设计窗口中声明如下两个方法SaveFileAs和SaveFile。
１、按指定文件名称保存文件
//按指定的文件名称保存文件，参数FileName为指定的文件名称，返回值True表示文件保存成功
function TUploadFile.SaveFileAs(FileName: OleVariant): OleVariant;
var
longIndex : LongInt;
AFile : file of byte;//以二进制的形式保存文件
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;
２、按缺省文件名称保存文件
//按缺省文件名称保存文件，将文件以同名文件保存在调用页面所在目录
function TUploadFile.SaveFile: OleVariant;
var
CurrentFilePath : string;
begin
//获取调用页面所在目录
CurrentFilePath := FScriptingContext.Request.ServerVariables['PATH_TRANSLATED'];
CurrentFilePath := ExtractFilePath( CurrentFilePath );
//保存文件
result := SaveFileAs( CurrentFilePath + ExtractFileName( FFileName ));
end;
三、上载组件应用举例
在我们的例子中，DelphiUp.HTM是文件上载界面，DelphiUp.ASP用来执行文件上载操作。
DelphiUp.ASP的代码如下：
<!--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&"字节。"
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下调试通过。
中查找“用DELPHI为ASP开发文件上载组件”更多相关内容
中查找“用DELPHI为ASP开发文件上载组件”更多相关内容更多精彩
赞助商链接
