home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / scktmain.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  8KB  |  215 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'ScktMain.pas' rev: 5.00
  6.  
  7. #ifndef ScktMainHPP
  8. #define ScktMainHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ActnList.hpp>    // Pascal unit
  14. #include <Registry.hpp>    // Pascal unit
  15. #include <ScktComp.hpp>    // Pascal unit
  16. #include <ComCtrls.hpp>    // Pascal unit
  17. #include <StdCtrls.hpp>    // Pascal unit
  18. #include <ExtCtrls.hpp>    // Pascal unit
  19. #include <ShellAPI.hpp>    // Pascal unit
  20. #include <Menus.hpp>    // Pascal unit
  21. #include <Dialogs.hpp>    // Pascal unit
  22. #include <Forms.hpp>    // Pascal unit
  23. #include <Controls.hpp>    // Pascal unit
  24. #include <Graphics.hpp>    // Pascal unit
  25. #include <Classes.hpp>    // Pascal unit
  26. #include <SysUtils.hpp>    // Pascal unit
  27. #include <Messages.hpp>    // Pascal unit
  28. #include <Windows.hpp>    // Pascal unit
  29. #include <SvcMgr.hpp>    // Pascal unit
  30. #include <SysInit.hpp>    // Pascal unit
  31. #include <System.hpp>    // Pascal unit
  32.  
  33. //-- user supplied -----------------------------------------------------------
  34.  
  35. namespace Scktmain
  36. {
  37. //-- type declarations -------------------------------------------------------
  38. typedef void __fastcall (__closure *TSocketProc)(Comctrls::TListItem* Item, Scktcomp::TCustomWinSocket* 
  39.     Socket);
  40.  
  41. class DELPHICLASS TSocketForm;
  42. class PASCALIMPLEMENTATION TSocketForm : public Forms::TForm 
  43. {
  44.     typedef Forms::TForm inherited;
  45.     
  46. __published:
  47.     Menus::TPopupMenu* PopupMenu;
  48.     Menus::TMenuItem* miClose;
  49.     Menus::TMenuItem* N1;
  50.     Menus::TMenuItem* miProperties;
  51.     Extctrls::TTimer* UpdateTimer;
  52.     Menus::TMainMenu* MainMenu1;
  53.     Menus::TMenuItem* miPorts;
  54.     Menus::TMenuItem* miAdd;
  55.     Menus::TMenuItem* miRemove;
  56.     Comctrls::TPageControl* Pages;
  57.     Comctrls::TTabSheet* PropPage;
  58.     Stdctrls::TGroupBox* PortGroup;
  59.     Stdctrls::TLabel* Label1;
  60.     Stdctrls::TLabel* PortDesc;
  61.     Stdctrls::TEdit* PortNo;
  62.     Comctrls::TUpDown* PortUpDown;
  63.     Stdctrls::TGroupBox* ThreadGroup;
  64.     Stdctrls::TLabel* Label4;
  65.     Stdctrls::TLabel* ThreadDesc;
  66.     Stdctrls::TEdit* ThreadSize;
  67.     Comctrls::TUpDown* ThreadUpDown;
  68.     Stdctrls::TGroupBox* InterceptGroup;
  69.     Stdctrls::TLabel* Label5;
  70.     Stdctrls::TLabel* GUIDDesc;
  71.     Comctrls::TTabSheet* StatPage;
  72.     Comctrls::TListView* ConnectionList;
  73.     Menus::TMenuItem* Connections1;
  74.     Menus::TMenuItem* miShowHostName;
  75.     Menus::TMenuItem* miDisconnect;
  76.     Menus::TMenuItem* N2;
  77.     Stdctrls::TGroupBox* TimeoutGroup;
  78.     Stdctrls::TLabel* Label7;
  79.     Stdctrls::TEdit* Timeout;
  80.     Comctrls::TUpDown* TimeoutUpDown;
  81.     Stdctrls::TLabel* TimeoutDesc;
  82.     Stdctrls::TEdit* InterceptGUID;
  83.     Stdctrls::TButton* ApplyButton;
  84.     Actnlist::TActionList* ActionList1;
  85.     Actnlist::TAction* ApplyAction;
  86.     Actnlist::TAction* DisconnectAction;
  87.     Actnlist::TAction* ShowHostAction;
  88.     Actnlist::TAction* RemovePortAction;
  89.     Menus::TMenuItem* N3;
  90.     Menus::TMenuItem* miExit;
  91.     Extctrls::TPanel* Panel1;
  92.     Stdctrls::TListBox* PortList;
  93.     Comctrls::THeaderControl* HeaderControl1;
  94.     Comctrls::TStatusBar* UserStatus;
  95.     Menus::TMenuItem* ExportedObjectOnly1;
  96.     Actnlist::TAction* RegisteredAction;
  97.     void __fastcall FormCreate(System::TObject* Sender);
  98.     void __fastcall FormDestroy(System::TObject* Sender);
  99.     void __fastcall miCloseClick(System::TObject* Sender);
  100.     void __fastcall miPropertiesClick(System::TObject* Sender);
  101.     void __fastcall FormShow(System::TObject* Sender);
  102.     void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
  103.     void __fastcall miDisconnectClick(System::TObject* Sender);
  104.     void __fastcall miExitClick(System::TObject* Sender);
  105.     void __fastcall ApplyActionExecute(System::TObject* Sender);
  106.     void __fastcall ApplyActionUpdate(System::TObject* Sender);
  107.     void __fastcall DisconnectActionUpdate(System::TObject* Sender);
  108.     void __fastcall ShowHostActionExecute(System::TObject* Sender);
  109.     void __fastcall miAddClick(System::TObject* Sender);
  110.     void __fastcall RemovePortActionUpdate(System::TObject* Sender);
  111.     void __fastcall RemovePortActionExecute(System::TObject* Sender);
  112.     void __fastcall UpDownClick(System::TObject* Sender, Comctrls::TUDBtnType Button);
  113.     void __fastcall PortListClick(System::TObject* Sender);
  114.     void __fastcall ConnectionListCompare(System::TObject* Sender, Comctrls::TListItem* Item1, Comctrls::TListItem* 
  115.         Item2, int Data, int &Compare);
  116.     void __fastcall ConnectionListColumnClick(System::TObject* Sender, Comctrls::TListColumn* Column);
  117.     void __fastcall IntegerExit(System::TObject* Sender);
  118.     void __fastcall UpdateTimerTimer(System::TObject* Sender);
  119.     void __fastcall RegisteredActionExecute(System::TObject* Sender);
  120.     
  121. private:
  122.     unsigned FTaskMessage;
  123.     _NOTIFYICONDATAA FIconData;
  124.     bool FClosing;
  125.     bool FProgmanOpen;
  126.     bool FFromService;
  127.     bool NT351;
  128.     int FCurItem;
  129.     int FSortCol;
  130.     void __fastcall UpdateStatus(void);
  131.     Scktcomp::TServerSocket* __fastcall GetSelectedSocket(void);
  132.     int __fastcall GetItemIndex(void);
  133.     void __fastcall SetItemIndex(int Value);
  134.     void __fastcall CheckValues(void);
  135.     
  136. protected:
  137.     void __fastcall AddClient(Scktcomp::TServerClientThread* Thread);
  138.     void __fastcall RemoveClient(Scktcomp::TServerClientThread* Thread);
  139.     void __fastcall ClearModifications(void);
  140.     MESSAGE void __fastcall UIInitialize(Messages::TMessage &Message);
  141.     MESSAGE void __fastcall WMMIDASIcon(Messages::TMessage &Message);
  142.     void __fastcall AddIcon(void);
  143.     void __fastcall ReadSettings(void);
  144.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  145.     void __fastcall WriteSettings(void);
  146.     
  147. public:
  148.     void __fastcall Initialize(bool FromService);
  149.     __property Scktcomp::TServerSocket* SelectedSocket = {read=GetSelectedSocket};
  150.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  151. public:
  152.     #pragma option push -w-inl
  153.     /* TCustomForm.Create */ inline __fastcall virtual TSocketForm(Classes::TComponent* AOwner) : Forms::TForm(
  154.         AOwner) { }
  155.     #pragma option pop
  156.     #pragma option push -w-inl
  157.     /* TCustomForm.CreateNew */ inline __fastcall virtual TSocketForm(Classes::TComponent* AOwner, int 
  158.         Dummy) : Forms::TForm(AOwner, Dummy) { }
  159.     #pragma option pop
  160.     #pragma option push -w-inl
  161.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TSocketForm(void) { }
  162.     #pragma option pop
  163.     
  164. public:
  165.     #pragma option push -w-inl
  166.     /* TWinControl.CreateParented */ inline __fastcall TSocketForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  167.         ) { }
  168.     #pragma option pop
  169.     
  170. };
  171.  
  172.  
  173. class DELPHICLASS TSocketService;
  174. class PASCALIMPLEMENTATION TSocketService : public Svcmgr::TService 
  175. {
  176.     typedef Svcmgr::TService inherited;
  177.     
  178. protected:
  179.     void __fastcall Start(Svcmgr::TService* Sender, bool &Started);
  180.     void __fastcall Stop(Svcmgr::TService* Sender, bool &Stopped);
  181.     
  182. public:
  183.     virtual Svcmgr::TServiceController __fastcall GetServiceController(void);
  184.     __fastcall virtual TSocketService(Classes::TComponent* AOwner, int Dummy);
  185. public:
  186.     #pragma option push -w-inl
  187.     /* TService.Destroy */ inline __fastcall virtual ~TSocketService(void) { }
  188.     #pragma option pop
  189.     
  190. public:
  191.     #pragma option push -w-inl
  192.     /* TDataModule.Create */ inline __fastcall virtual TSocketService(Classes::TComponent* AOwner) : Svcmgr::TService(
  193.         AOwner) { }
  194.     #pragma option pop
  195.     
  196. };
  197.  
  198.  
  199. //-- var, const, procedure ---------------------------------------------------
  200. static const Word WM_MIDASICON = 0x401;
  201. static const Word UI_INITIALIZE = 0x402;
  202. extern PACKAGE TSocketForm* SocketForm;
  203. extern PACKAGE TSocketService* SocketService;
  204.  
  205. }    /* namespace Scktmain */
  206. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  207. using namespace Scktmain;
  208. #endif
  209. #pragma option pop    // -w-
  210. #pragma option pop    // -Vx
  211.  
  212. #pragma delphiheader end.
  213. //-- end unit ----------------------------------------------------------------
  214. #endif    // ScktMain
  215.