mainunit.h

this a programme that you can use socket programme

//---------------------------------------------------------------------------

#ifndef MainUnitH
#define MainUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "trayicon.h"
#include <Menus.hpp>
#include <ScktComp.hpp>
#include <Dialogs.hpp>
#include <NMSTRM.hpp>
#include <Psock.hpp>
#include <ComCtrls.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdEcho.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <ToolWin.hpp>
#include <ImgList.hpp>
#include <Buttons.hpp>
#include <IdIcmpClient.hpp>
#include <IdRawBase.hpp>
#include <IdRawClient.hpp>
#include <ExtCtrls.hpp>
#include <Jpeg.hpp>
#include <jpeg.hpp>
#include <Graphics.hpp>
#include <IniFiles.hpp>
#include <IdTelnet.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
        TMainMenu *MainMenu;
        TPopupMenu *MsgPopupMenu;
        TClientSocket *ClientSocket;
        TTrayIcon *TrayIcon;
        TNMStrmServ *ReceiveServ;
        TPopupMenu *TrayPopupMenu;
        TSpeedButton *SpeedButton6;
        TSpeedButton *SpeedButton7;
        TCoolBar *CoolBar;
        TToolBar *ToolBar;
        TSpeedButton *BtnScan;
        TSpeedButton *btnConnect;
        TSpeedButton *btnLogoff;
        TSpeedButton *btnShutDown;
        TSpeedButton *btnTakecap;
        TSpeedButton *btnOpenDoor;
        TSpeedButton *btnSetting;
        TSpeedButton *btnExit;
        TMenuItem *S1;
        TMenuItem *C1;
        TMenuItem *T1;
        TIdIcmpClient *ICMP;
        TStatusBar *StatusBar;
        TPanel *BackGroundPanel;
        TNotebook *Notebook;
        TPanel *BottomPanel;
        TRichEdit *MsgMemo;
        TLabel *Label1;
        TEdit *edtHost;
        TLabel *Label2;
        TEdit *edtMsg;
        TSpeedButton *btnSend;
        TSpeedButton *btnClear;
        TSpeedButton *btnView;
        TToolButton *ToolButton2;
        TToolButton *ToolButton3;
        TToolButton *ToolButton4;
        TToolButton *ToolButton5;
        TToolButton *ToolButton6;
        TToolButton *ToolButton8;
        TToolButton *ToolButton11;
        TToolButton *ToolButton12;
        TImageList *ImageList;
        TComboBox *MsgTypeBox;
        TListView *HostList;
        TMenuItem *PingItem;
        TImage *ScreenImage;
        TPanel *CapPanel;
        TSpeedButton *SpeedButton2;
        TSpeedButton *SpeedButton3;
        TSpeedButton *SpeedButton4;
        TSpeedButton *SpeedButton5;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton8;
        TSpeedButton *SpeedButton9;
        TMenuItem *View1;
        TMenuItem *ControlItem;
        TMenuItem *captureItem;
        TMenuItem *FileEditItem;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *DisconnectItem;
        TMenuItem *ListenItem;
        TMenuItem *AboutItem;
        TMenuItem *ExitItem;
        TMenuItem *SettingItem;
        TMenuItem *N8;
        TMenuItem *N9;
        TMenuItem *InfoItem;
        TMenuItem *PClearItem;
        TMenuItem *PInfoItem;
        TMenuItem *PSaveItem;
        TMenuItem *PSettingItem;
        TMenuItem *PAboutItem;
        TMenuItem *PExitItem;
        TMenuItem *N13;
        TMenuItem *N14;
        TPopupMenu *ListPopupMenu;
        TMenuItem *PDeleteItem;
        TMenuItem *PDelallItem;
        TMenuItem *PConnectItem;
        TMenuItem *PAddItem;
        TTimer *CapTimer;
        TPanel *Panel1;
        TListView *FileListView;
        TPanel *Panel2;
        TLabel *Label3;
        TEdit *edtPath;
        TSpeedButton *btnGo;
        TRichEdit *EditMemo;
        TPanel *Panel3;
        TSpeedButton *btnSetup;
        TSpeedButton *btnDownload;
        TSpeedButton *btnUpload;
        TSpeedButton *btnDel;
        TSpeedButton *btnRefresh;
        TPanel *Panel4;
        TSpeedButton *btnSysinfo;
        TSpeedButton *btnDriverinfo;
        TSpeedButton *btnRunning;
        TSpeedButton *btnProgram;
        TCheckBox *Save;
        TTimer *Timer;
        TSaveDialog *SaveDialog;
        TMenuItem *ConnectItem;
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall btnConnectClick(TObject *Sender);
        void __fastcall ClientSocketConnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocketConnecting(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocketDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocketError(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
        void __fastcall ClientSocketRead(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocketLookup(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall btnExitClick(TObject *Sender);
        void __fastcall btnSendClick(TObject *Sender);
        void __fastcall FormActivate(TObject *Sender);
        void __fastcall btnClearClick(TObject *Sender);
        void __fastcall PingItemClick(TObject *Sender);
        void __fastcall ICMPReply(TComponent *ASender,
          const TReplyStatus &AReplyStatus);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall BtnScanClick(TObject *Sender);
        void __fastcall btnTakecapClick(TObject *Sender);
        void __fastcall NotebookPageChanged(TObject *Sender);
        void __fastcall btnOpenDoorClick(TObject *Sender);
        void __fastcall btnViewClick(TObject *Sender);
        void __fastcall btnLogoffClick(TObject *Sender);
        void __fastcall btnShutDownClick(TObject *Sender);
        void __fastcall ReceiveServMSG(TComponent *Sender,
          const AnsiString sFrom, TStream *strm);
        void __fastcall ReceiveServClientContact(TObject *Sender);
        void __fastcall ReceiveServDisconnect(TObject *Sender);
        void __fastcall ReceiveServConnectionFailed(TObject *Sender);
        void __fastcall ReceiveServInvalidHost(bool &Handled);
        void __fastcall SpeedButton2MouseMove(TObject *Sender,
          TShiftState Shift, int X, int Y);
        void __fastcall SpeedButton3MouseMove(TObject *Sender,
          TShiftState Shift, int X, int Y);
        void __fastcall SpeedButton4MouseMove(TObject *Sender,
          TShiftState Shift, int X, int Y);
        void __fastcall SpeedButton5MouseMove(TObject *Sender,
          TShiftState Shift, int X, int Y);
        void __fastcall SpeedButton8Click(TObject *Sender);
        void __fastcall SpeedButton9Click(TObject *Sender);
        void __fastcall SpeedButton1Click(TObject *Sender);
        void __fastcall CapTimerTimer(TObject *Sender);
        void __fastcall ControlItemClick(TObject *Sender);
        void __fastcall captureItemClick(TObject *Sender);
        void __fastcall FileEditItemClick(TObject *Sender);
        void __fastcall ExitItemClick(TObject *Sender);
        void __fastcall DisconnectItemClick(TObject *Sender);
        void __fastcall PSaveItemClick(TObject *Sender);
        void __fastcall btnGoClick(TObject *Sender);
        void __fastcall btnRefreshClick(TObject *Sender);
        void __fastcall btnDelClick(TObject *Sender);
        void __fastcall btnSysinfoClick(TObject *Sender);
        void __fastcall btnDriverinfoClick(TObject *Sender);
        void __fastcall btnRunningClick(TObject *Sender);
        void __fastcall btnProgramClick(TObject *Sender);
        void __fastcall btnSettingClick(TObject *Sender);
        void __fastcall TimerTimer(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall btnSetupClick(TObject *Sender);
        void __fastcall btnDownloadClick(TObject *Sender);
        void __fastcall PClearItemClick(TObject *Sender);
        void __fastcall AboutItemClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TMainForm(TComponent* Owner);

        bool ConnectStatus;
        bool cancap;
        bool livecap;
        int Error;
        TMemoryStream *capstream;
        AnsiString Name;
        AnsiString SavePath;
        AnsiString OpenPath;
        AnsiString LocalIP;
        TJPEGImage *jpg;
        TCustomWinSocket *OutSocket;
        void ButtonStatus();
        void DisEnableConnect();
        void SetColor(AnsiString MsgToSet,TColor c,int Size);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif