demowin.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

unit demowin;

interface

uses
  Windows, SysUtils, Classes, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, HTTPGet;

type
  TMainform = class(TForm)
    ProgressBar: TProgressBar;
    Panel1: TPanel;
    Image: TImage;
    HTTPGetPicture: THTTPGet;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    URLEdit: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    FileNameEdit: TEdit;
    Button3: TButton;
    HTTPGetString: THTTPGet;
    HTTPGetFile: THTTPGet;
    UseCacheBox: TCheckBox;
    procedure HTTPGetPictureDoneFile(Sender: TObject; FileName: String; FileSize: Integer);
    procedure HTTPGetPictureError(Sender: TObject);
    procedure HTTPGetPictureProgress(Sender: TObject; TotalSize, Readed: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure HTTPGetStringDoneString(Sender: TObject; Result: String);
    procedure Button3Click(Sender: TObject);
    procedure HTTPGetFileDoneFile(Sender: TObject; FileName: String; FileSize: Integer);
    procedure UseCacheBoxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainform: TMainform;

implementation

{$R *.DFM}

procedure TMainform.HTTPGetPictureDoneFile(Sender: TObject; FileName: String; FileSize: Integer);
begin
  Image.Picture.LoadFromFile(FileName);
  ProgressBar.Position := 0;
end;

procedure TMainform.HTTPGetPictureError(Sender: TObject);
begin
  ShowMessage('Error');
end;

procedure TMainform.HTTPGetPictureProgress(Sender: TObject; TotalSize,
  Readed: Integer);
begin
  ProgressBar.Max := TotalSize;
  ProgressBar.Position := Readed;
end;

procedure TMainform.Button1Click(Sender: TObject);
begin
  HTTPGetPicture.GetFile;
end;

procedure TMainform.Button2Click(Sender: TObject);
begin
  HTTPGetString.GetString;
end;

procedure TMainform.HTTPGetStringDoneString(Sender: TObject; Result: String);
begin
  ShowMessage(Result);
end;

procedure TMainform.Button3Click(Sender: TObject);
begin
  HTTPGetFile.URL := URLEdit.Text;
  HTTPGetFile.FileName := FileNameEdit.Text;
  HTTPGetFile.GetFile;
end;

procedure TMainform.HTTPGetFileDoneFile(Sender: TObject; FileName: String; FileSize: Integer);
begin
  ShowMessage('File stored to: ' + FileName + #13#10 +
              'File size: ' + IntToStr(FileSize) + ' bytes');
end;

procedure TMainform.UseCacheBoxClick(Sender: TObject);
begin
  HTTPGetFile.UseCache := UseCacheBox.Checked;
end;

end.