server_main_1.~inc

以前用delphi+kol写的监视工具

{ KOL MCK } // Do not remove this line!
const Col1 = 0;
const Col2 = 1;
const Col3 = 2;
const Col1 = 0;
const Col2 = 1;
const Col3 = 2;
const Col4 = 3;
const N1 = 0;
const N2 = 1;

const N5 = 0;
const N3 = 1;

const N4 = 0;


procedure NewclassPolicySrv( var Result: PclassPolicySrv; AParent: PControl );
begin

  New( Result, Create );
  Result.Form := NewForm( AParent, 'TCP Server' ).SetPosition( 123, 141 ).SetSize( 614, 391 );
  Applet :=  Result.Form;
  Result.Form.Add2AutoFree( Result );
    Result.Form.Font.FontHeight := 8;
    Result.Form.Font.FontPitch := fpVariable;
    Result.Form.Border := 0;
      Result.Form.OnClose := Result.MainClose;
    NewMenu( Result.Form, 0, [ '' ], nil );

    Result.PopupMenu1 := NewMenu( Result.Form, 0, [ 'Show'
      , 'Exit', '' ], nil );
    Result.PopupMenu1.AssignEvents( 0, [ Result.PopupMenu1N1Menu ] );
    Result.PopupMenu1.AssignEvents( 1, [ Result.PopupMenu1N2Menu ] );

      {$R classPolicySrv_TrayIcon1.RES}
    Result.TrayIcon1 := NewTrayIcon( Applet, 0 );
    Result.TrayIcon1.Active := FALSE;
    Result.TrayIcon1.Icon := LoadIcon( hInstance, 'ZCLASSPOLICYSRV_TRAYICON1' );
  Result.Form.Add2AutoFree( Result.TrayIcon1 );
      Result.TrayIcon1.OnMouse := Result.TrayIcon1Mouse;

    Result.open1 := NewOpenSaveDialog( '', '', [ OSCreatePrompt, OSFileMustExist, OSHideReadonly, OSOverwritePrompt, OSPathMustExist ] );
      Result.open1.Filter := 'wPolicy config file (*.wpc)|*.wpc';
  Result.Form.Add2AutoFree( Result.open1 );

    Result.Client:=newtcpclient;
    Result.Client.port:=0;
    Result.Client.host:='';
  Result.Form.Add2AutoFree( Result.Client );
      Result.Client.OnConnect := Result.ClientConnect;

    Result.PopupMenu2 := NewMenu( Result.Form, 0, [ 'Insert'
      , 'Update', '' ], nil );
    Result.PopupMenu2.AssignEvents( 0, [ Result.PopupMenu2N5Menu ] );
    Result.PopupMenu2.AssignEvents( 1, [ Result.PopupMenu2N3Menu ] );

    Result.Server:=NewTCPServer;
    Result.Server.port:=1234;
  Result.Form.Add2AutoFree( Result.Server );
      Result.Server.OnAccept := Result.ServerAccept;
      Result.Server.OnError := Result.ServerError;
      Result.Server.OnClientError := Result.ServerClientError;
      Result.Server.OnClientDisconnect := Result.ServerClientDisconnect;
      Result.Server.OnClientReceive := Result.ServerClientReceive;
      Result.Server.OnClientStreamReceive := Result.ServerClientStreamReceive;

    Result.PopupMenu3 := NewMenu( Result.Form, 0, [ 
      'Reload policy', '' ], nil );
    Result.PopupMenu3.AssignEvents( 0, [ Result.PopupMenu3N4Menu ] );
    // Result.Memo1.TabOrder = 0
    Result.Memo1 := NewEditBox( Result.Form, [ eoMultiline ] ).SetAlign ( caTop ).SetSize( 0, 65 );
    Result.Memo1.Color := clWindow;
    Result.Memo1.Font.FontHeight := 9;
    Result.Memo1.Text := 'Memo1'+#13+#10;
    // Result.Splitter2.TabOrder = 1
    Result.Splitter2 := NewSplitterEx( Result.Form, 0, 0, esNone ).SetAlign ( caTop ).SetSize( 0, 8 );
    // Result.p_client.TabOrder = 4
    Result.p_client := NewPanel( Result.Form, esNone ).SetAlign ( caClient );
    Result.p_client.Border := 2;
    // Result.packages.TabOrder = 0
      Result.packages := NewListEdit( Result.p_client, lvsDetail, [ lvoIconLeft, lvoAutoArrange, lvoEditLabel, lvoGridLines, lvoRowSelect, lvoOneClickActivate, lvoInfoTip, lvoUnderlineHot, lvoMultiWorkares ], nil, nil, nil ).SetAlign ( caClient );
    Result.packages.Color := clWhite;
    Result.packages.Font.FontHeight := 12;
      Result.packages.DoubleBuffered := True;
      Result.packages.LVBkColor := clWhite;
      Result.packages.SetAutoPopupMenu( Result.PopupMenu2 );
      Result.packages.LVColAdd( 'ExeProgram', taLeft, 50);
      Result.packages.LVColAdd( 'Effective Time', taLeft, 50);
      Result.packages.LVColAdd( 'Effective To', taLeft, 50);
    // Result.Panel1.TabOrder = 2
      Result.Panel1 := NewPanel( Result.p_client, esNone ).SetAlign ( caLeft ).SetSize( 200, 0 );
      Result.Panel1.Border := 0;
    // Result.Panel2.TabOrder = 1
        Result.Panel2 := NewPanel( Result.Panel1, esLowered ).SetAlign ( caTop ).SetSize( 0, 19 );
    Result.Panel2.TextAlign := taCenter;
    Result.Panel2.VerticalAlign := vaCenter;
        Result.Panel2.Caption := 'Connections:';
    // Result.conns.TabOrder = 2
        Result.conns := NewListView( Result.Panel1, lvsDetail, [  ], nil, nil, nil ).SetAlign ( caClient );
    Result.conns.Color := clWindow;
        Result.conns.SetAutoPopupMenu( Result.PopupMenu3 );
        Result.conns.LVColAdd( 'UserName', taLeft, 50);
        Result.conns.LVColAdd( 'Computer', taLeft, 50);
        Result.conns.LVColAdd( 'IP Address', taLeft, 50);
        Result.conns.LVColAdd( 'Start Time', taLeft, 50);
    // Result.Splitter1.TabOrder = 2
      Result.Splitter1 := NewSplitterEx( Result.p_client, 0, 0, esNone ).SetAlign ( caLeft );
    Result.Splitter1.Color := clBtnFace;
    // Result.Panel3.TabOrder = 4
    Result.Panel3 := NewPanel( Result.Form, esNone ).SetAlign ( caBottom ).SetSize( 0, 36 );
    Result.Panel3.Border := 2;
    // Result.Button3.TabOrder = 0
      Result.Button3 := NewButton( Result.Panel3, 'Load Policy' ).SetPosition( 120, 6 ).SetSize( 93, 0 );
      Result.Button3.OnClick := Result.Button3Click;
    // Result.Button4.TabOrder = 0
      Result.Button4 := NewButton( Result.Panel3, 'Save Policy' ).SetPosition( 230, 6 ).SetSize( 93, 0 );
      Result.Button4.OnClick := Result.Button4Click;
    // Result.Button2.TabOrder = 1
      Result.Button2 := NewButton( Result.Panel3, 'About' ).SetPosition( 453, 6 ).SetSize( 93, 0 );
      Result.Button2.OnClick := Result.Button2Click;
    // Result.Button1.TabOrder = 1
      Result.Button1 := NewButton( Result.Panel3, 'OK' ).SetPosition( 342, 6 ).SetSize( 93, 0 );
      Result.Button1.OnClick := Result.Button1Click;
      Result.open1.WndOwner := Result.Form.GetWindowHandle;
    Result.MainFormCreate( Result );

end;