unit1.pas

来自「HttpGet.rar 上传下载控件」· PAS 代码 · 共 71 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    pb: TProgressBar;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    hg:thttpget;
  public
     procedure onp(Sender: TObject; TotalSize, Readed: Integer);
     procedure ond(Sender: TObject; FileName: string; FileSize:
    Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
hg:=thttpget.Create(self);
hg.BinaryData:=true;
hg.UseCache:=false;
hg.FileName:=edit2.Text;
hg.URL:=edit1.Text;
hg.OnProgress:=onp;
hg.OnDoneFile:=ond;
hg.GetFile;
end;

procedure TForm1.ond(Sender: TObject; FileName: string; FileSize: Integer);
begin
  pb.Position:=0;
  showmessage('下载完了');
end;

procedure TForm1.onp(Sender: TObject; TotalSize, Readed: Integer);
begin
  pb.Max:=totalsize;
  pb.Position:=readed;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
hg.Abort;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
hg.getfile;
end;

end.