excom0.cpp

com口

/*********************************************************/
/*                      EXCOM0.CPP                       */
/*   Copyright (c) TurboPower Software Co., 1997, 1998   */
/*                 All Rights Reserved                   */
/*********************************************************/
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "Excom0.h"
//---------------------------------------------------------------------------
#pragma link "AdPort"
#pragma link "OoMisc"
#pragma resource "*.dfm"
TForm1 *Form1;
bool fflag=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TestClick(TObject *Sender)
{
  ApdComPort1->Output = "ATZ\r";

}
//---------------------------------------------------------------------------
int i=0;
String S="";
void __fastcall TForm1::ApdComPort1TriggerAvail(TObject *CP, WORD Count)
{

  String S="";
  char C;
  for (int I=1;I<Count+1;I++) {
    C = ApdComPort1->GetChar();
    if (C > 31)
    	S = S + C;
  }
 Sleep(40);
 String abc=S.Trim();
 
  ToMemo(abc) ;


}
//---------------------------------------------------------------------------

void TForm1::ToMemo(String S)
{
   String temp=S.SubString(1,5);
   if(temp=="+CLIP")  // if(temp!="+CLIP")
  //   return ;
  { temp=S.SubString(9,11);ApdComPort1->Output = "ATH\n";}
   Memo1->Lines ->Add(Now().FormatString("yy-MM-dd hh:mm:ss   ") +temp);
 //  ApdComPort1->Output = "ATH\r";
try{
  ADOStoredProc1->Parameters->ParamByName("@caller")->Value=temp;
  ADOStoredProc1->ExecProc();
  }
  catch(...)
  {Memo1->Lines ->Add(temp+"执行存储时出错");
   try{
   ADOConnection1->Close();
   ADOConnection1->Open();
   ADOConnection1->Connected=true;
  ADOStoredProc1->Parameters->ParamByName("@caller")->Value=temp;
  ADOStoredProc1->ExecProc();
   Memo1->Lines ->Add(temp+"执行2存储时\正常");

    }
    catch(...)
    {Memo1->Lines ->Add(temp+"执行2次存储时出错");
    fflag=true;
   }

  }

}
void __fastcall TForm1::ApdComPort1PortOpen(TObject *Sender)
{
  Memo1->Lines ->Add("打开COM2成功");
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (!ApdComPort1->Open)
   {ApdComPort1->Open =true;Button1->Enabled=false;Timer1->Enabled=true;}
//  unsigned short TrigMS;
//  TrigMS= ApdComPort1->AddStatusTrigger(stModem);
//  ApdComPort1->SetStatusTrigger(TrigMS,msRingDelta,true);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Button1->Click() ;
    ADOConnection1->Connected=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  ADOStoredProc1->Parameters->ParamByName("@caller")->Value="13968569300";
  ADOStoredProc1->ExecProc();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  ApdComPort1->Open=false;
  Button1->Enabled=true;
  Timer1->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1Change(TObject *Sender)
{
  if(Memo1->Lines->Count>100)
    Memo1->Lines->Clear();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if (!ApdComPort1->Open)
   {ApdComPort1->Open =true;Button1->Enabled=false;}
  if (fflag)
     { try{
           ADOConnection1->Close();
           ADOConnection1->Open();
           ADOConnection1->Connected=true;
           fflag=false;
          Memo1->Lines->Add(Now().FormatString("yy-MM-dd hh:mm:ss   ")+"重连数据库成功");

       }
       catch(...)
       {Memo1->Lines->Add(Now().FormatString("yy-MM-dd hh:mm:ss   ")+"重连数据库失败");}
     }

}
//---------------------------------------------------------------------------