全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2481
推到 Plurk!
推到 Facebook!

如何讓下載到不存在檔案時候不出現錯誤訊息 ?

 
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-01-22 15:31:26 IP:61.219.xxx.xxx 未訂閱
如何讓下載到不存在檔案時候不出現錯誤訊息

下面程式連上網站下載檔案 abc.exe 時候, 如果 abc.exe 不存在, IdHTTP1.Get(exe_URL, fs); 會出現 EIdHTTPProtocolException 錯誤
try
Dir:=GetCurrentDir '\abc.exe';
fs := TFileStream.Create(Dir, fmCreate);
IdHTTP1.Get(exe_URL, fs);
finally
fs.Free;
end;
但是改成下面後, 仍是出現 EIdHTTPProtocolException 錯誤, 請問該如何改 ?
try
Dir:=GetCurrentDir '\abc.exe';
fs := TFileStream.Create(Dir, fmCreate);
try
IdHTTP1.Get(exe_URL, fs);
except
on EIdHTTPProtocolException do ;
end;

finally
fs.Free;
end;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-01-26 09:01:35 IP:59.124.xxx.xxx 未訂閱
try
Dir:=GetCurrentDir '\abc.exe';
fs := TFileStream.Create(Dir, fmCreate);
IdHttp1.HandleRedirects := true; // 加這一行試試
try
IdHTTP1.Get(exe_URL, fs);
except
on EIdHTTPProtocolException do ;
end;
finally
fs.Free;
end;
jcjroc
高階會員


發表:21
回覆:279
積分:115
註冊:2002-09-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-01-27 22:23:08 IP:60.248.xxx.xxx 訂閱
URLDownToFile這個API就搞定了你的需求.
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-01-29 11:01:29 IP:61.219.xxx.xxx 未訂閱
還是不行
===================引 用 文 章===================
IdHttp1.HandleRedirects := true; // 加這一行試試

------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-01-29 11:08:19 IP:61.219.xxx.xxx 未訂閱
IdHTTP 沒有此 Method, Delphi 7 的 Win32 API Help 中也查不到此 API
用 Google 搜尋 URLDownToFile 只找到兩篇沒用的
http://www.microsoft.com/ 搜尋 URLDownToFile 找不到任何資料


===================引 用 文 章===================
URLDownToFile這個API就搞定了你的需求.
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-01-29 11:46:04 IP:210.65.xxx.xxx 未訂閱
------
Fishman
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-01-29 12:04:59 IP:61.219.xxx.xxx 未訂閱
[Error] Unit1.pas(37): Undeclared identifier: 'UrlDownloadToFile'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-01-29 12:28:15 IP:210.65.xxx.xxx 未訂閱
Sorry !! 忘了加
Uses UrlMon


Fishman
------
Fishman
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-01-29 15:10:32 IP:61.219.xxx.xxx 未訂閱
成功 ~
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
系統時間:2024-05-05 17:36:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!