server_main_1.~inc

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

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


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

  New( Result, Create );
  Result.Form := NewForm( AParent, 'TCP Server' ).SetPosition( 200, 42 ).SetSize( 502, 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.Client:=newtcpclient;
    Result.Client.port:=0;
    Result.Client.host:='';
  Result.Form.Add2AutoFree( Result.Client );
      Result.Client.OnConnect := Result.ClientConnect;

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

    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;

      {$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.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 := NewSplitter( Result.Form, 0, 0 ).SetAlign ( caTop ).SetSize( 0, 8 );
    // Result.p_client.TabOrder = 4
    Result.p_client := NewPanel( Result.Form, esRaised ).SetAlign ( caClient );
    Result.p_client.Border := 2;
    // Result.EditBox1.TabOrder = 0
      Result.EditBox1 := NewEditBox( Result.p_client, [  ] ).SetAlign ( caBottom );
    Result.EditBox1.Color := clWindow;
      Result.EditBox1.OnChar := Result.EditBox1Char;
    // Result.packages.TabOrder = 2
      Result.packages := NewListView( Result.p_client, lvsDetail, [  ], nil, nil, nil ).SetAlign ( caClient );
    Result.packages.Color := clWindow;
      Result.packages.LVColAdd( 'Execute File', taLeft, 50);
      Result.packages.LVColAdd( 'Effective Time', taLeft, 80);
      Result.packages.LVColAdd( 'End Time', taLeft, 80);
    // Result.Panel1.TabOrder = 2
      Result.Panel1 := NewPanel( Result.p_client, esNone ).SetAlign ( caLeft );
      Result.Panel1.Border := 0;
    // Result.Panel2.TabOrder = 1
        Result.Panel2 := NewPanel( Result.Panel1, esRaised ).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.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.Progress.TabOrder = 3
      Result.Progress := NewProgressBarEx( Result.p_client, [ pboSmooth ] ).SetAlign ( caBottom ).SetSize( 0, 13 );
      Result.Progress.Visible := False;
    // Result.Panel3.TabOrder = 4
    Result.Panel3 := NewPanel( Result.Form, esNone ).SetAlign ( caBottom ).SetSize( 0, 39 );
    Result.Panel3.Border := 2;
    // Result.Button1.TabOrder = 1
      Result.Button1 := NewButton( Result.Panel3, 'OK' ).SetPosition( 148, 14 );
      Result.Button1.OnClick := Result.Button1Click;
    // Result.Button2.TabOrder = 1
      Result.Button2 := NewButton( Result.Panel3, 'About' ).SetPosition( 300, 14 );
      Result.Button2.OnClick := Result.Button2Click;
    Result.Button1.DefaultBtn := TRUE;
    Result.MainFormCreate( Result );

end;