fsocketperformanceclientmain.pas

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· PAS 代码 · 共 88 行

unit fSocketPerformanceClientMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBClient, MConnect, SConnect, Db, StdCtrls, Grids, DBGrids, ExtCtrls,
  DBCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    btnAddData: TButton;
    Edit2: TEdit;
    btnSelectData: TButton;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    SocketConnection1: TSocketConnection;
    ClientDataSet1NAME: TStringField;
    ClientDataSet1ADDRESS: TStringField;
    ClientDataSet1PHONE: TStringField;
    ClientDataSet1ID: TStringField;
    ClientDataSet1SALARY: TFloatField;
    ProgressBar1: TProgressBar;
    procedure btnAddDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const LOOPS = 10000;

procedure TForm1.btnAddDataClick(Sender: TObject);
var
  lStart, lEnd : Integer;
  iCount, iCount1 : Integer;
  sStr : string;
begin
  ProgressBar1.Max := LOOPS;
  ProgressBar1.Position := 0;

  lStart := GetTickCount;
  ClientDataSet1.DisableControls;
  for iCount := 0 to LOOPS do
  begin
    Application.ProcessMessages;
    ClientDataSet1.Insert;
    sStr := '';
    for iCount1 := 0 to 9 do
      sStr := sStr + Char(Ord('A') + Random(26));
    ClientDataSet1NAME.Value := sStr;

    sStr := '';
    for iCount1 := 0 to 59 do
      sStr := sStr + Char(Ord('0') + Random(10));
    ClientDataSet1ADDRESS.Value := sStr;

    sStr := '';
    for iCount1 := 0 to 11 do
      sStr := sStr + Char(Ord('0') + Random(10));
    ClientDataSet1PHONE.Value := sStr;

    sStr := '';
    sStr := Char(Ord('A') + Random(26));
    for iCount1 := 0 to 8 do
      sStr := sStr + Char(Ord('0') + Random(10));
    ClientDataSet1ID.Value := sStr;

    ClientDataSet1SALARY.Value := Random(100000) / 1.555;

    ClientDataSet1.Post;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    Edit1.Text := IntToStr(ProgressBar1.Position);
  end;
  ClientDataSet1.ApplyUpdates(0);
  lEnd := GetTickCount;

  Edit1.Text := FloatToStr((lEnd - lStart) / 1000.0) + '