dntimer.pas

一个国外比较早的IOCP控件

// The contents of this file are used with permission, subject to
// the Mozilla Public License Version 1.1 (the "License"); you may
// not use this file except in compliance with the License. You may
// obtain a copy of the License at
// http://www.mozilla.org/MPL/MPL-1.1.html
//
// Software distributed under the License is distributed on an
// "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
// implied. See the License for the specific language governing
// rights and limitations under the License.
{$I DnConfig.inc}
unit DnTimer;

interface
uses
  Classes, contnrs, SysUtils, SyncObjs, Windows,
  DnInterfaces, DnRtl, DnAbstractExecutor, DnAbstractLogger,
  DnAbstractTimer, DnConst, DnTimerEngine;

type

  TDnTimer = class (TDnAbstractTimer, IDnTimerHandler)
  public
    constructor Create{$IFDEF ROOTISCOMPONENT}(AOwner: TComponent); override{$ENDIF};
    destructor  Destroy; override;
  end;


procedure Register;

implementation

constructor TDnTimer.Create{$IFDEF ROOTISCOMPONENT}(AOwner: TComponent){$ENDIF};
begin
  inherited Create{$IFDEF ROOTISCOMPONENT}(AOwner){$ENDIF};
  FTimerEngine := TDnTimerEngine.Create;
end;

destructor TDnTimer.Destroy;
begin
  inherited Destroy;
end;

procedure Register;
begin
  {$IFDEF ROOTISCOMPONENT}
  RegisterComponents('DNet', [TDnTimer]);
  {$ENDIF}
end;

//----------------------------------------------------------------------


end.