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

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

Delphi控件源码

开发平台：

Delphi

NMMSG.pas：源码内容
  1. unit NMMSG;
  2. {$X+}
  3. {$R-}
  5. {$IFDEF VER100}
  6. {$DEFINE NMF3}
  7. {$ENDIF}
  8. {$IFDEF VER110}
  9. {$DEFINE NMF3}
  10. {$ENDIF}
  11. {$IFDEF VER120}
  12. {$DEFINE NMF3}
  13. {$ENDIF}
  14. {$IFDEF VER125}
  15. {$DEFINE NMF3}
  16. {$ENDIF}
  18. interface
  20. uses
  21.   Classes, SysUtils, Forms, Psock, NMConst, Winsock;
  22. {$IFDEF VER110}
  23. {$OBJEXPORTALL On}
  24. {$ENDIF}
  25. {$IFDEF VER120}
  26. {$OBJEXPORTALL On}
  27. {$ENDIF}
  28. {$IFDEF VER125}
  29. {$OBJEXPORTALL On}
  30. {$ENDIF}
  33. //  CompName='NMMSG32';
  34. //  Major_Version='4';
  35. //  Minor_Version='02';
  36. //  Date_Version='012798';
  38. type
  39.   TMSGEvent = procedure(Sender: TComponent; const sFrom, sMsg: string) of object;
  42.   TNMMsg = class(TPowerSock)
  43.   private
  44.     sFromName: string;
  45.     FOnMessageSent: TNotifyEvent;
  46.   protected
  47.   public
  48.     constructor Create(AOwner: TComponent); override;
  49.     procedure Abort; override;
  50.     function PostIt(const sMsg: string): string;
  51.   published
  52.     property FromName: string read sFromName write sFromName;
  53.     property OnMessageSent: TNotifyEvent read FOnMessageSent write FOnMessageSent;
  54.   end; {_ TNMMsg = class(TPowerSock) _}
  58.   TNMMSGServ = class(TNMGeneralServer)
  59.   private
  60.     FOnMSG: TMSGEvent;
  61.   protected
  62.   public
  63.     constructor Create(AOwner: TComponent); override;
  64.     procedure Serve; override;
  65.   published
  66.     property OnMSG: TMSGEvent read FOnMSG write FOnMSG;
  67.   end; {_ TNMMSGServ = class(TNMGeneralServer) _}
  68.  
  69. implementation
  71. constructor TNMMsg.Create;
  72. begin
  73.   inherited Create(AOwner);
  74.   Port := 6711;
  75. end; {_ constructor TNMMsg.Create; _}
  77. function TNMMsg.PostIt;
  78. var i: integer;
  79. begin
  80.   Connect;
  81.   try
  82.     Write(Format('%.4d', [Length(FromName)]) + FromName);
  83.     Write(Format('%.4d', [Length(sMsg)]) + sMsg);
  84.     if Assigned(FOnMessageSent) then FOnMessageSent(self);
  85.     Result := Read(16);
  86.   finally
  87.     DisConnect;
  88.   end; {_ try _}
  89. end; {_ function TNMMsg.PostIt; _}
  91. procedure TNMMsg.Abort;
  92. begin
  93.   if Connected then
  94.   begin
  95.     Cancel;
  96.     DisConnect;
  97.   end; {_ if connected then _}
  98. end; {_ procedure TNMMsg.Abort; _}
  100. {TNMMSGServ}
  101. constructor TNMMSGServ.Create;
  102. begin
  103.   inherited Create(AOwner);
  104.   Port := 6711;
  105. end; {_ constructor TNMMSGServ.Create; _}
  107. procedure TNMMSGServ.Serve;
  108. var sFrom, sMsg: string;
  109.   i: integer;
  110. begin
  111.   try
  112.     i := StrToInt(Read(4));
  113.     if i > 0 then
  114.       sFrom := Read(i);
  115.     i := StrToInt(Read(4));
  116.     if i > 0 then
  117.       sMsg := Read(i)
  118.     else {_ NOT if i > 0 then _}  sMsg := '';
  119.     Write('OK' + '              ');
  120.     if Assigned(TNMMSGServ(Chief).FOnMSG) then (TNMMSGServ(Chief).FOnMSG(self, sFrom, sMsg));
  121.     while Connected and (not beencanceled) do
  122.       Wait;
  123.   except
  124.   end;
  125. end; {_ procedure TNMMSGServ.Serve; _}
  128. end.