Return to clientformunit.cpp CVS log

Up to [Synchronet] / sbbs / sbbs3 / ctrl

Annotation of sbbs/sbbs3/ctrl/clientformunit.cpp, revision 1.1

1.1     ! root        1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
        !             2: 
        !             3: /* $Id: ClientFormUnit.cpp,v 1.1.1.1 2000/10/10 11:27:06 rswindell Exp $ */
        !             4: 
        !             5: /****************************************************************************
        !             6:  * @format.tab-size 4          (Plain Text/Source Code File Header)                    *
        !             7:  * @format.use-tabs true       (see http://www.synchro.net/ptsc_hdr.html)              *
        !             8:  *                                                                                                                                                     *
        !             9:  * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html         *
        !            10:  *                                                                                                                                                     *
        !            11:  * This program is free software; you can redistribute it and/or                       *
        !            12:  * modify it under the terms of the GNU General Public License                         *
        !            13:  * as published by the Free Software Foundation; either version 2                      *
        !            14:  * of the License, or (at your option) any later version.                                      *
        !            15:  * See the GNU General Public License for more details: gpl.txt or                     *
        !            16:  * http://www.fsf.org/copyleft/gpl.html                                                                                *
        !            17:  *                                                                                                                                                     *
        !            18:  * Anonymous FTP access to the most recent released source is available at     *
        !            19:  * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net     *
        !            20:  *                                                                                                                                                     *
        !            21:  * Anonymous CVS access to the development source and modification history     *
        !            22:  * is available at cvs.synchro.net:/cvsroot/sbbs, example:                                     *
        !            23:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs login                       *
        !            24:  *     (just hit return, no password is necessary)                                                     *
        !            25:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src                *
        !            26:  *                                                                                                                                                     *
        !            27:  * For Synchronet coding style and modification guidelines, see                                *
        !            28:  * http://www.synchro.net/source.html                                                                          *
        !            29:  *                                                                                                                                                     *
        !            30:  * You are encouraged to submit any modifications (preferably in Unix diff     *
        !            31:  * format) via e-mail to [email protected]                                                                      *
        !            32:  *                                                                                                                                                     *
        !            33:  * Note: If this box doesn't appear square, then you need to fix your tabs.    *
        !            34:  ****************************************************************************/
        !            35: 
        !            36: //---------------------------------------------------------------------------
        !            37: 
        !            38: #include <vcl.h>
        !            39: #pragma hdrstop
        !            40: 
        !            41: #include <stdio.h>      // sprintf
        !            42: #include <winsock.h>    // closesocket
        !            43: #include "ClientFormUnit.h"
        !            44: 
        !            45: void socket_open(BOOL open);
        !            46: //---------------------------------------------------------------------------
        !            47: #pragma package(smart_init)
        !            48: #pragma resource "*.dfm"
        !            49: TClientForm *ClientForm;
        !            50: //---------------------------------------------------------------------------
        !            51: __fastcall TClientForm::TClientForm(TComponent* Owner)
        !            52:     : TForm(Owner)
        !            53: {
        !            54:        MainForm=(TMainForm*)Application->MainForm;
        !            55:     ListMutex=CreateMutex(NULL,false,NULL);
        !            56: }
        !            57: //---------------------------------------------------------------------------
        !            58: void __fastcall TClientForm::FormShow(TObject *Sender)
        !            59: {
        !            60:     MainForm->ViewClients->Checked=true;
        !            61: }
        !            62: //---------------------------------------------------------------------------
        !            63: void __fastcall TClientForm::FormHide(TObject *Sender)
        !            64: {
        !            65:     MainForm->ViewClients->Checked=false;
        !            66: }
        !            67: //---------------------------------------------------------------------------
        !            68: void __fastcall TClientForm::TimerTimer(TObject *Sender)
        !            69: {
        !            70:     char    str[64];
        !            71:     int     i;
        !            72:     time_t  t;
        !            73: 
        !            74:     if(WaitForSingleObject(ListMutex,1)!=WAIT_OBJECT_0)
        !            75:         return;
        !            76:     for(i=0;i<ListView->Items->Count;i++) {
        !            77:         t=time(NULL)-(ulong)ListView->Items->Item[i]->Data;
        !            78:         if(t/(60*60))
        !            79:             sprintf(str,"%d:%02d:%02d",t/(60*60),(t/60)%60,t%60);
        !            80:         else
        !            81:             sprintf(str,"%d:%02d",(t/60)%60,t%60);
        !            82:         ListView->Items->Item[i]->SubItems->Strings[5]=str;
        !            83: 
        !            84:     }
        !            85:     ReleaseMutex(ListMutex);
        !            86: 
        !            87: }
        !            88: //---------------------------------------------------------------------------
        !            89: 
        !            90: void __fastcall TClientForm::CloseSocketMenuItemClick(TObject *Sender)
        !            91: {
        !            92:     TListItem* ListItem;
        !            93:     TItemStates State;
        !            94: 
        !            95:     ListItem=ListView->Selected;
        !            96:     State << isSelected;
        !            97: 
        !            98:     while(ListItem!=NULL) {
        !            99:         if(closesocket(atoi(ListItem->Caption.c_str()))==0)
        !           100:             socket_open(FALSE);
        !           101:         ListItem=ListView->GetNextItem(ListItem,sdAll,State);
        !           102:     }
        !           103: }
        !           104: //---------------------------------------------------------------------------
        !           105: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.