clientcomm.h

邮 电 公 司 erp源码

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

#ifndef ClientCommH
#define ClientCommH
#include <ScktComp.hpp>

//---------------------------------------------------------------------------
class __declspec(dllexport) TClientComm;

class TClientComm
{
private:
  TClientSocket *ClientSocket;
  TServerSocket *ServerSocket;
  TApplication *m_App;
  TStringList *m_Forms;
  void __fastcall ClientSocketError(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
  void __fastcall ClientSocketRead(TObject *Sender,
          TCustomWinSocket *Socket);
  void __fastcall ClientSocketDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
  void __fastcall ClientSocketConnect(TObject *Sender,
          TCustomWinSocket *Socket);
  int __fastcall get_CommStatus();
  AnsiString __fastcall get_AppServerName();
  AnsiString __fastcall get_AppServerIP();
  int __fastcall get_AppServerPort();

private:	// User declarations
  int  m_CommStatus,m_OnlineUsers;
  AnsiString MsgBuff;
  AnsiString m_AppServerName,m_AppServerIP,m_AppServerPort;

  AnsiString __fastcall ReadResourceValue(int uID);
    
  void __fastcall DistributeMsg_1001(AnsiString Msg);
  void __fastcall DistributeMsg_2003(AnsiString Msg);
  void __fastcall DistributeMsg_3003(AnsiString Msg);
  void __fastcall DistributeMsg_4001(AnsiString Msg);
  void __fastcall DistributeMsg_9001(AnsiString Msg);

public:		// User declarations
  __fastcall TClientComm(TApplication *app,AnsiString AIP,int APort);
  __fastcall ~TClientComm();

  bool __fastcall RegSystem(AnsiString UserCode);
  void __fastcall UnRegSystem(AnsiString UserCode);
  void __fastcall AddMsgForm(TForm *Form);
  void __fastcall DelMsgForm(AnsiString FormName);
  void __fastcall ShowForm(AnsiString FormCode);
  __property int CommStatus={read=get_CommStatus};
  __property AnsiString AppServerName={read=get_AppServerName};
  __property AnsiString AppServerIP={read=get_AppServerIP};
  __property int AppServerPort={read=get_AppServerPort};
  __property TApplication *App={read=m_App};
  __property int OnlineUsers={read=m_OnlineUsers};

};
extern TClientComm *FClientComm;
#endif