timer.pas

Source code Delphi FTP-server

{$A+,B-,C+,D+,E-,F-,G+,H-,I-,J+,K-,L+,M-,N+,O-,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
unit Timer;

{-----------------------------------------------------------------}
{ Timer. To create calibrated timeouts (1/10 sec).                }
{ 11/19/1999 Drt.                                                 }
{-----------------------------------------------------------------}

interface

uses
  Windows, Classes;

type
 pbool = ^boolean;

 TTimeout = class(TThread)
 public
   Flag : pbool;
   Timeout : longint;
   constructor create(ATimeout : longint; AFlag : pbool);
 private
   procedure execute; override;
   end;

implementation

constructor TTimeout.create(ATimeout : longint; AFlag : pbool);
begin
inherited create(true);
FreeOnTerminate:=true;
Flag:=AFlag;
Timeout:=ATimeout;
Flag^:=false;
resume;
end;

procedure TTimeout.execute;
begin
while ((Timeout > 0) or (Timeout < 0)) and not terminated do
  begin
  sleep(100);
  if Timeout > 0 then dec(Timeout);
  end;
Flag^:=true;
if not terminated then terminate;
end;

end.