baseproject.~cpp

符合移动协议的见空系统,很有使用简直,希望多下载

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

#include <vcl.h>
#include   <condefs.h>
#pragma hdrstop
#include "strct.h"
#include "PackData.h"
#include "MsgBoxVar.h"
#include "ModemStartThread.h"
#include "ADODB.hpp"
#include "SMS_Func.h"

//---------------------------------------------------------------------------
USEFORM("BaseMain.cpp", Form1);
USEFORM("MsgBoxVar.cpp", Form2);
USEFORM("CommuInfo.cpp", Form3);
USEFORM("About.cpp", Form4);
//---------------------------------------------------------------------------
CDMA_PACK gRPackData, gSPackData, gReceivePackData;
INT8U *pt_Rev, *pt_Read;
CPack *gp_SPack, *gp_RPack;
bool  gb_Direct=true;
CDMA_MODEM  mdm;

INT32U  glSiteNo;
INT8U guDeviceNo;
HANDLE  gpModemThread;
HANDLE	gOkEvent, gErrEvent;
CRITICAL_SECTION	g_csSync, g_csRcv;

SMS_INDEX 		 sms_index[LenSMS];
PTSMS_INDEX 		ptCur_index = NULL,ptRcv_index = NULL;
INT8U			sms_rcv[32];
INTQUEUE  g_Rev_Queue;

TADOConnection*   gpDBADOCon;
TADOQuery*        gpADOQuery;
TList *gpWzdPageList;

TIniFile   *gpIniFile;

void  ConnectDB()
{
  gpDBADOCon = new TADOConnection(Application);
  gpDBADOCon->LoginPrompt = false;
  gpDBADOCon->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\\ConSys.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False";
  gpDBADOCon->Open();
  if (gpDBADOCon->Connected)          /*test the conn string is ok*/
  {
    gpDBADOCon->Close();             /*connect successfully*/
  }
  gpADOQuery = new TADOQuery(Application);
  gpADOQuery->Connection = gpDBADOCon;
}

//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
          SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,"yyyy-mm-dd");
          DateSeparator = '-';
          ShortDateFormat = "yyyy-MM-dd";
          LongTimeFormat ="HH:mm:ss";
          memset(gRPackData.packed_data, 0, 300);
          gp_SPack = new CPack485Local;
          gp_RPack = new CPack485Local;
          pt_Rev = &gRPackData.packed_data[0];
          pt_Read = &gReceivePackData.packed_data[0];
          mdm.mdm_init_ok == FALSE;
          gpModemThread = CreateThread (NULL, 0, ModemThread, NULL, 4, NULL);
          
          TCriticalSection  *CS;
          InitializeCriticalSection(&g_csSync);
          InitializeCriticalSection(&g_csRcv);
          if (gOkEvent != NULL)
        		ResetEvent(gOkEvent);
        	else
        		gOkEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
          if(gErrEvent != NULL)
            ResetEvent(gErrEvent);
          else
            gErrEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
          gpIniFile = new TIniFile(ExtractFileDir(ParamStr(0))+"\\ConfigFiles\\站点配置.ini");
          Application->Initialize();
          
          ConnectDB();
          Application->CreateForm(__classid(TForm1), &Form1);
     Application->CreateForm(__classid(TForm2), &Form2);
     Application->CreateForm(__classid(TForm3), &Form3);
     Application->CreateForm(__classid(TForm4), &Form4);
     Application->Run();
        }
        catch (Exception &exception)
        {
          Application->ShowException(&exception);
        }
        catch (...)
        {
          try
          {
             throw Exception("");
          }
          catch (Exception &exception)
          {
             Application->ShowException(&exception);
          }
        }
        return 0;
}
//---------------------------------------------------------------------------