三种使用控件的方法,用Delphi实现文件下载的几种方法

uses UrlMon;
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) =
0;
except
Result := False;
end;
end;

有个API就是UrlDownloadToFile。不仅如此,Delphi的一些控件也可以轻松实现下载,如NMHTTP,指定NMHTTP1.InputFileMode
:= ture; 指定Body为本地文件名,指定Get就可以下载了。

if DownloadFile(‘, ‘c:kylix.zip’)
then
ShowMessage(‘Download succesful’)
else ShowMessage(‘Download unsuccesful’)

uses UrlMon; 
function DownloadFile(Source, Dest: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil)
= 0; 
    except 
      Result := False; 
    end; 
  end; 
  
  if DownloadFile(”,
”c:kylix.zip”) then 
ShowMessage(”Download succesful”) 
else ShowMessage(”Download unsuccesful”) 

*************************************************************************************************

======================== 
例程: 

Uses URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,
nil) = 0;
except
Result := False;
end;
end;

Uses URLMon, ShellApi; 
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
try 
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,
nil) = 0; 
except 
Result := False; 
end; 
end; 

procedure TForm1.Button1.Click(Sender: TObject);
const
// URL Location
SourceFile := ”;
// Where to save the file
DestFile := ‘c:tempgoogle-image.gif’;
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage(‘Download succesful!’);
// Show downloaded image in your browser
ShellExecute(Application.Handle,PChar(‘open’),PChar(DestFile),PChar(”),nil,SW_NORMAL)
end
else
ShowMessage(‘Error while downloading ‘ + SourceFile)
end;

procedure TForm1.Button1.Click(Sender: TObject); 
const 
// URL Location 
SourceFile :=
””; 
// Where to save the file 
DestFile := ”c:tempgoogle-image.gif”; 
begin 
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    ShowMessage(”Download succesful!”); 
    // Show downloaded image in your browser 
ShellExecute(Application.Handle,PChar(”open”),PChar(DestFile),PChar(””),nil,SW_NORMAL) 
  end 
  else 
  ShowMessage(”Error while downloading ” + SourceFile) 
end; 

*************************************************************************************************

================= 

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.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(‘”); 

NMHTTP1.Get(”);

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

发表评论

电子邮件地址不会被公开。 必填项已用*标注