亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

Delphi用TActionList實(shí)現(xiàn)下載文件的方法

 更新時(shí)間：2014年07月17日 10:28:14   投稿：shichen2014  
這篇文章主要介紹了Delphi用TActionList實(shí)現(xiàn)下載文件的方法,需要的朋友可以參考下

Delphi中的TActionList有個(gè)標(biāo)準(zhǔn)動(dòng)作TDownLoadURL，內(nèi)部是使用的URLDownloadToFile，它下載文件時(shí)會(huì)定時(shí)產(chǎn)生OnDownloadProgress 事件，這樣就可以用進(jìn)度條顯示。

本文講述了Delphi用TActionList實(shí)現(xiàn)下載文件的方法，實(shí)現(xiàn)代碼如下所示：

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtActns, ActnList, StdCtrls, ComCtrls;
 
type
 TForm1 = class(TForm)
  Button1: TButton;
  ActionList1: TActionList;
  ProgressBar1: TProgressBar;
  procedure Button1Click(Sender: TObject);
 private
  { Private declarations }
  procedure URL_OnDownloadProgress
       (Sender: TDownLoadURL;
       Progress, ProgressMax: Cardinal;
       StatusCode: TURLDownloadStatus;
       StatusText: String; var Cancel: Boolean) ;
 public
  { Public declarations }
 end;
 
var
 Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Tform1.URL_OnDownloadProgress;
begin
  ProgressBar1.Max:= ProgressMax;
  ProgressBar1.Position:= Progress;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TDownloadURL.Create(self) do
  try
   URL:='http://chabaoo.cn/images/logo.gif';
   FileName := 'logo.gif';
   OnDownloadProgress := URL_OnDownloadProgress;
   ExecuteTarget(nil) ;
  finally
   Free;
  end;
  showMessage('OK');
  ProgressBar1.Max := 0;
end;

相關(guān)文章

  • Delphi Command模式

    Delphi Command模式

    最近學(xué)習(xí)模式入迷， 所以就想寫一篇關(guān)于模式的文章，這篇文章是<<Java 與模式>> （閻宏 著）里的一個(gè)例子， 我把它改成Delphi的.第一次寫東西， 有不足之處希望大家可以諒解.
    2008-03-03
  • Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解

    Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解

    CountDownLatch和CyclicBarrier是Java并發(fā)包提供的兩個(gè)非常易用的線程同步工具類,本文主要介紹了Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解,具有一定的參考價(jià)值,感興趣的可以了解一下
    2023-11-11
  • Delphi 生成excel中餅圖的實(shí)例代碼

    Delphi 生成excel中餅圖的實(shí)例代碼

    這篇文章介紹了Delphi 生成excel中餅圖的實(shí)例代碼，有需要的朋友可以參考一下
    2013-08-08
  • Delphi基本圖像處理方法匯總

    Delphi基本圖像處理方法匯總

    這篇文章主要介紹了Delphi基本圖像處理方法,實(shí)例匯總了Delphi操作圖像實(shí)現(xiàn)浮雕、反色、模糊、翻轉(zhuǎn)等常用效果的方法,非常具有實(shí)用價(jià)值,需要的朋友可以參考下
    2015-05-05
  • delphi 判斷字符串是否為純字母組合的函數(shù)

    delphi 判斷字符串是否為純字母組合的函數(shù)

    這篇文章主要介紹了delphi 判斷字符串是否為純字母組合的函數(shù),需要的朋友可以參考下
    2022-12-12
  • Delphi實(shí)現(xiàn)木馬文件傳輸代碼實(shí)例

    Delphi實(shí)現(xiàn)木馬文件傳輸代碼實(shí)例

    這篇文章主要介紹了Delphi實(shí)現(xiàn)木馬文件傳輸?shù)姆椒?對(duì)于了解木馬的運(yùn)行原理有一定的幫助,需要的朋友可以參考下
    2014-07-07
  • Delphi中判斷文件是否為文本文件的函數(shù)

    Delphi中判斷文件是否為文本文件的函數(shù)

    在用Delphi 編程處理文本文件的時(shí)候，如果要裝載的文件比較大，你可能會(huì)想在文件裝載過(guò)程中提供一個(gè)裝載進(jìn)度的提示－－那么你就必需自己編寫直接通過(guò)文件打開(kāi)/讀取函數(shù)來(lái)裝載文件內(nèi)容的函數(shù)。
    2008-03-03
  • Delphi使用大圖標(biāo)編譯程序的方法

    Delphi使用大圖標(biāo)編譯程序的方法

    這篇文章主要介紹了Delphi使用大圖標(biāo)編譯程序的方法,需要的朋友可以參考下
    2017-09-09
  • 初探Delphi中的插件編程

    初探Delphi中的插件編程

    前言我寫Delphi程序是從MIS系統(tǒng)入門的，開(kāi)始嘗試子系統(tǒng)劃分的時(shí)候采用的是MDI窗體的結(jié)構(gòu)。隨著系統(tǒng)功能的擴(kuò)充，不斷有新的子系統(tǒng)加入系統(tǒng)中，單個(gè)工程會(huì)變得非常大，每次做一點(diǎn)修改都要重新編譯，單個(gè)工程的形式也不利于團(tuán)隊(duì)協(xié)作。為了提高工作效率，我希望利用DLL動(dòng)態(tài)鏈接庫(kù)的形式實(shí)現(xiàn)插件結(jié)構(gòu)的編程。
    2008-03-03
  • Delphi創(chuàng)建開(kāi)機(jī)啟動(dòng)項(xiàng)的方法示例

    Delphi創(chuàng)建開(kāi)機(jī)啟動(dòng)項(xiàng)的方法示例

    這篇文章主要介紹了Delphi創(chuàng)建開(kāi)機(jī)啟動(dòng)項(xiàng)的方法,很有實(shí)用價(jià)值,需要的朋友可以參考下
    2014-07-07

最新評(píng)論