製作一個壓縮檔案的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
%> 想請各位高手幫我看看到底是那裡出了問題?
|
發表時間：2004-05-12 17:47:58
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-05-22 6:01:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |