bm_timeu.pas

来自「Delphi办公管理系统」· PAS 代码 · 共 62 行

unit BM_TIMEU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Buttons, StdCtrls, DB, DBClient, MConnect,
  SConnect, Sockets;
const
  arrAddress: array[0..3] of string = ('192.43.244.18',
    // Time.nist.gov(NIST物理学实验室)
    '192.5.41.40', // tick.usno.navy.mil(美国海军天文台)
    '192.48.153.80', // Clock.sgi.com(SGI)
    '18.145.0.30'); // Tick.mit.edu(麻省理工学院)
type
  TBM_TIMEF = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    StatusBar1: TStatusBar;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     procedure AppException(Sender: TObject; E: Exception);
  
  public
    { Public declarations }
  end;

var
  BM_TIMEF: TBM_TIMEF;
   ConNum: integer;

const
  ServerAddress = '192.43.244.18';
 implementation
{$R *.dfm}

procedure TBM_TIMEF.AppException(Sender: TObject; E: Exception);
begin

end;

procedure TBM_TIMEF.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TBM_TIMEF.FormCreate(Sender: TObject);
begin
 Application.OnException := AppException;
  ConNum := 0;
end;

end.