//如何用程式從網頁下載一個檔案? 回答: 有很多方法可以達成,以下是一個很方便的辦法不使用元件,但要記得 USES ShellApi,UrlMon; 這個範例抓取 http://www.hinet.net/images/hinet_logo.gif圖檔至c:\hinet.gif中存檔,並呼叫出來顯示. P.S:附原始程式供下載參考.    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi,UrlMon;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  SourceString, DestinationString: string;
begin
//網頁檔案網址
  SourceString := 'http://www.hinet.net/images/hinet_logo.gif';
//存檔位址
  DestinationString := 'C:\hinet.gif';      if DownLoadInternetFile(SourceString, DestinationString) then
//呼叫檔案出來執行或顯示
    ShellExecute(Application.Handle, PChar('Open'), PChar(DestinationString), PChar(''), nil, SW_NORMAL)
  else
    ShowMessage('Error during Download '   SourceString);
end;
end.

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

附加檔案：00018128_test.zip