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;

  • 相关阅读:
    地图初步
    多线程技术 初步
    核心动画 CAAnimation 进阶
    CALayer 进阶
    Quartz 2D 初步
    UIView 面面观
    CABasicAnimation 基础
    CGAffineTransform 放射变换解析 即矩阵变换
    RunTime 入门
    对Viewcontroller在UINavigationController中入栈出栈的一点点理解
  • 原文地址:https://www.cnblogs.com/onionhacker/p/3527192.html
Copyright © 2011-2022 走看看