zoukankan      html  css  js  c++  java
  • 一段下载文件的源码

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtActns, ComCtrls;

    type
    TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    DownLoadURL : TDownLoadURL;
    procedure DownloadProgress(Sender: TDownLoadURL; Progress,
    ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String;
    var Cancel: Boolean);
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.DownloadProgress(Sender: TDownLoadURL; Progress,
    ProgressMax: Cardinal; StatusCode: TURLDownloadStatus;
    StatusText: String; var Cancel: Boolean);
    begin
    Label1.Caption := StatusText;
    ProgressBar1.Max := ProgressMax;
    ProgressBar1.Position := Progress;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    DownLoadURL := TDownLoadURL.Create(self);
    with DownLoadURL do
    begin
    FileName := 'c:p.exe';
    URL := 'http://www.teechart.net/files/vcl/public/TeeChartPro6/TeeChart601Delphi6_RTL3.EXE';
    OnDownloadProgress := DownloadProgress;
    end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    DownLoadURL.ExecuteTarget(DownLoadURL);
    end;

  • 相关阅读:
    Android logcat命令详解
    使用Dom4j操作XML
    最全面的常用正则表达式大全
    struts.xml配置文件(package,namespace,action)
    ActiveMQ入门实例
    Windows Intel VT-x开启
    Java ArrayList的不同排序方法
    Hibernate面试问题集锦: 概述
    10个有关String的面试问题
    50道Java线程面试题
  • 原文地址:https://www.cnblogs.com/onionhacker/p/3527192.html
Copyright © 2011-2022 走看看