开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
NMDayTim.pas
资源名称：FastNet.rar　[点击查看]
上传用户：szzdds
上传日期：2013-09-18
资源大小：293k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

NMDayTim.pas：源码内容
  1. unit NMDayTim;
  3. {$X+}
  4. {$R-}
  6. {$IFDEF VER100}
  7. {$DEFINE NMF3}
  8. {$ENDIF}
  9. {$IFDEF VER110}
  10. {$DEFINE NMF3}
  11. {$ENDIF}
  12. {$IFDEF VER120}
  13. {$DEFINE NMF3}
  14. {$ENDIF}
  15. {$IFDEF VER125}
  16. {$DEFINE NMF3}
  17. {$ENDIF}
  19. interface
  21. uses
  22.   SysUtils, Classes, Forms, Psock, Winsock, NMConst;
  23. {$IFDEF VER110}
  24. {$OBJEXPORTALL On}
  25. {$ENDIF}
  26. {$IFDEF VER120}
  27. {$OBJEXPORTALL On}
  28. {$ENDIF}
  29. {$IFDEF VER125}
  30. {$OBJEXPORTALL On}
  31. {$ENDIF}
  33. //  CompName='TNMdayTim';
  34. //  Major_Version='4';
  35. //  Minor_Version='02';
  36. //  Date_Version='012798';
  42. type
  43.   TNMDayTime = class(TPowerSock)
  44.   private
  45.     function GetTimeStr: string;
  46.   protected
  47.     { Protected declarations }
  48.   public
  49.     constructor Create(AOwner: TComponent); override;
  50.     property DayTimeStr: string read GetTimeStr;
  51.   published
  53.   end;
  55. implementation
  57. constructor TNMDayTime.Create(AOwner: TComponent);
  58. begin
  59.   inherited Create(AOwner);
  60.   Port := 13;
  61.   TimeOut := 500;
  62. end;
  64. function TNMDayTime.GetTimeStr: string;
  65. var i, ct: integer;
  66.   handled: boolean;
  67. begin
  68.   BeenCanceled := FALSE; {Turn Canceled off}
  69.   if FConnected then {If already connected raise exception}
  70.     raise ESockError.Create(sPSk_Cons_msg_Conn);
  71.   ct := 0;
  72.   repeat
  73.     try
  74.       ResolveRemoteHost; {Resolve the IP address of remote host}
  75.     except
  76.       on E: ESockError do
  77.         if (E.Message = sPSk_Cons_msg_host_to) or (E.Message = sPSk_Cons_msg_host_Can) then raise;
  78.     end;
  79.     if RemoteAddress.sin_addr.S_addr = 0 then
  80.       if ct > 0 then raise ESockError.Create(sPSk_Cons_msg_add_null) {If Resolving failed raise exception}
  81.       else
  82.         if not Assigned(OnInvalidHost) then raise ESockError.Create(sPSk_Cons_msg_add_null)
  83.         else
  84.         begin
  85.           handled := FALSE;
  86.           OnInvalidHost(handled);
  87.           if not handled then raise ESockError.Create(sPSk_Cons_msg_add_null); {If Resolving failed raise exception}
  88.           ct := ct + 1;
  89.         end;
  90.   until RemoteAddress.sin_addr.S_addr <> 0;
  91.   StatusMessage(Status_Debug, sPSk_Cons_msg_Conning); {Inform Status}
  92.   RemoteAddress.sin_family := AF_INET; {Make connected true}
  93. {$R-}
  94.   if Proxy = '' then
  95.     RemoteAddress.sin_port := htons(Port) {If no proxy get port from Port property}
  96.   else
  97.     RemoteAddress.sin_port := htons(ProxyPort); {else get port from ProxyPort property}
  98. {$R+}
  99.   i := SizeOf(RemoteAddress); {i := size of remoteaddress structure}
  100.   {Connect to remote host}
  101.   succeed := FALSE;
  102.   Timedout := FALSE;
  103.   TimerOn;
  104.   Winsock.Connect(ThisSocket, RemoteAddress, i);
  105.   repeat
  106.     application.processmessages; {Process messages till response received}
  107.   until succeed or Timedout; {Responce received,  Timed out or Cancelled exits loop}
  108.   TimerOff;
  109.   if Timedout then raise Exception.Create(Cons_Msg_ConnectionTimedOut);
  110.   try
  111.     while not DataAvailable do
  112.       application.processmessages;
  113.     Result := Read(0);
  114.   finally
  115.     Disconnect;
  116.   end;
  117. end;
  120. end.