程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 如何下載網絡文件的例子

如何下載網絡文件的例子

編輯:Delphi
  Http下載: (Delphi7)使用設計Indy控件下載網絡文件  //////////
  在Form1中添加控件:
    兩個Indy控件:IdAntiFreeze1,IdHTTP1;
    一個按鈕    :Button1;
    一個進度條  :ProgressBar1 顯示下載速度

  procedure TForm1.Button1Click(Sender: TObject);
  var
    MyStream:TMemoryStream;
  begin
    IdAntiFreeze1.OnlyWhenIdle:=False;//設置使程序有反應.
    MyStream:=TMemoryStream.Create;
    try
      IdHTTP1.Get('http://www.appcontrols.com/demos/exe/HTTPDemo.exe',MyStream);
    except
      Showmessage('沒有下載成功!');
      MyStream.Free;
      Exit;
    end;
    MyStream.SaveToFile(ExtractFilePath(paramstr(0))+'HTTPDemo.zip');
    MyStream.Free;
    Showmessage('OK');
  end;

  procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
    const AWorkCountMax: Integer);
  begin
    //開始下載前,將ProgressBar1的最大值設置為需要接收的數據大小.
    ProgressBar1.Max:=AWorkCountMax;
    ProgressBar1.Min:=0;
    ProgressBar1.Position:=0;
  end;

  procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
    const AWorkCount: Integer);
  begin
    //接收數據的時候,進度將在ProgressBar1顯示出來.
    ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
  end;

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