製作一個壓縮檔案的asp元件 |
尚未結案
|
aghid
一般會員 發表:2 回覆:2 積分:0 註冊:2003-11-24 發送簡訊給我 |
我用Delphi製作一個壓縮資料夾的asp元件
http://www.huo.idv.tw/DelphiASP/---這個是參考用delphi製作asp元件的方式 以下為我所寫的程式,當它為獨立的Form時是可以進行壓縮資料夾,但當我欲把它製成元件,卻無法壓縮資料夾
procedure Tzip.zip(fdir: OleVariant);
var
eParameters, eDirectory, f1: String;
begin
f1 := fdir;
if fileexists(f1 '.zip') = false then
begin
eParameters:= '-min -a -p -ef ' f1 ' ' f1;
eDirectory:='C:\Program Files\WinZip\';
ShellExecute(0, 'open', 'winzip32', PChar(eParameters), PChar(eDirectory), SW_show);
end;
end; 以下為我測試元件的asp檔案
<%
Set kkk = Server.CreateObject("Project2.zip")
fdir="c:\temp\"
kkk.zip cstr(fdir)
response.write fdir
%> 想請各位高手幫我看看到底是那裡出了問題?
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |