如何把 HTTP: 的檔案COPY 下來

發文回覆瀏覽次數：1944

推到 Plurk!

推到 Facebook!

答題得分者是：Fishman

steve9226
一般會員

發表：1
回覆：0
積分：0
註冊：2004-11-29

發送簡訊給我

#1 引用回覆回覆

發表時間：2006-08-03 11:46:29

IP:218.168.xxx.xxx 訂閱

請教各位大大,公司某設備的伺服器上有檔案,我要怎樣用程式把他擷取下來到Local disk啊?

目前是於檔案總管網址輸入 http:\\10.10.111.27\calfile.bin ,就會出現存檔的視窗,讓我存檔.

Thanks in advance !

Fishman
尊榮會員

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

發送簡訊給我

#2 引用回覆回覆

發表時間：2006-08-03 12:35:00

IP:210.65.xxx.xxx 未訂閱

參考一下
http://www.51cto.com/html/2005/1013/7418.htm
Uses UrlMon
procedure TForm1.Button2Click(Sender: TObject);
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
begin
if DownloadFile('http://localhost/aa.bin', 'c:\abc.bin') then
ShowMessage('Download succesful')
else
ShowMessage('Download unsuccesful');
end;

Fishman

------
Fishman

系統時間：2024-04-29 1:34:08

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！