monsoc.pas

传奇源代码的delphi版本

unit MonSoc;

interface

uses
  svn, Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, JSocket, Grobal2;
type
  TFrmMonSoc=class(TForm)
    MonSocket: TServerSocket;
    MonTimer: TTimer;
    procedure FormCreate(Sender : TObject);
    procedure MonTimerTimer(Sender : TObject);
    procedure MonSocketClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMonSoc: TFrmMonSoc;

implementation

uses MasSock, LSShare;

{$R *.DFM}

procedure TFrmMonSoc.FormCreate(Sender : TObject);
var
  Config  :pTConfig;
begin
  Config:=@g_Config;
  MonSocket.Active:=False;
  MonSocket.Address:=Config.sMonAddr;
  MonSocket.Port:=Config.nMonPort;
  MonSocket.Active:=True;
end;

procedure TFrmMonSoc.MonTimerTimer(Sender : TObject);
var
  I: Integer;
  nC:Integer;
  MsgServer:pTMsgServerInfo;
  sServerName:String;
  sMsg:String;
begin
  sMsg:='';
  nC:=FrmMasSoc.m_ServerList.Count;
  for I := 0 to FrmMasSoc.m_ServerList.Count - 1 do begin
    MsgServer:=FrmMasSoc.m_ServerList.Items[i];
    sServerName:=MsgServer.sServerName;
//    if sServerName <> '' then
//    sMsg:=sMsg + sServerName + '/' + IntToStr(MsgServer.nServerIndex) + '/' + IntToStr(MsgServer.nOnlineCount) + '/';
//  if (GetTickCount - MsgServer.dwKeepAliveTick) < 30000 then sMsg:=sMsg + '正常 ;'
//  else  sMsg:=sMsg + '超时 ;';
//  end else sMsg:='-/-/-/-;';
// LeoCrasher Compatibility
    if sServerName <> '' then sMsg:=sMsg + 'C;/'+sServerName+'/'+IntToStr(MsgServer.nOnlineCount)+'/DiamondM2/SVN:'+inttostr(SVN_REVISION)+'-TIME:'+inttostr(BUILDTIME)+'//;';
  end;
  for I := 0 to MonSocket.Socket.ActiveConnections - 1 do begin
    MonSocket.Socket.Connections[i].SendText(IntToStr(nC) + ';' + sMsg);
  end;
end;

procedure TFrmMonSoc.MonSocketClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode:=0;
  Socket.Close;
end;


{---- Adjust global SVN revision ----}
initialization
  SVNRevision('$Id: MonSoc.pas 178 2006-08-09 04:01:48Z Dataforce $');
end.