程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 用Delphi實現文件下載的幾種方法(2)

用Delphi實現文件下載的幾種方法(2)

編輯:Delphi

加入如下代碼:

NMHTTP1.InputFileMode := ture;
NMHTTP1.Body := '本地文件名';
NMHTTP1.Header := 'Head.txt';
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
NMHTTP1.Proxy := '代理服務器的IP地址';
NMHTTP1.ProxyPort := '代理服務器的端口號';
With NMHTTP1.HeaderInfo do
 
 Begin
  CookIE := '';
  LocalMailAddress := '';
  LocalProgram := '';
  Referer := '';
  UserID := '用戶名稱';
  PassWord := '用戶口令';
  End;
  
  NMHTTP1.Get(‘http://www.abcdefg.com/software/a.zip');

試試吧,Delphi的目錄中有TNMHTTP控件的例子。NT4+,Win95+,IE3+,你可以用URL Moniker的功能。

uses URLMon;
...
OleCheck(URLDownloadToFile(nil,'URL','Filename',0,nil));

其中最後一個參數你還可以傳入一個IBindStatusCallback的實現以跟蹤下載進度或控制中止下載。簡單的場合一句話就搞定了。

BTW, URL Moniker封裝了大多數URL,而不是像NMHTTP那樣封裝協議,因此你可以用URLDownloadToFile下載HTTP,FTP甚至本地文件和局域網文件,還有其他的custom moniker,比如MSITSTORE(MSDN Library的文檔moniker實現)。

var
DownLoadFile:TFileStream;
beginio
DownLoadFile:=TFileStream.Create('c:\aa.rar',fmCreate);
IdHTTP1.Get('http://www.sina.com.cn/download/aa.rar',DownLoadFile);
DownLoadFile.Free;
end;
//---------------------------

程序結束

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved