answercall.cpp

通过串口发送接受文件

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include "AnswerCall.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAnswer *frmAnswer;
//---------------------------------------------------------------------------
__fastcall TfrmAnswer::TfrmAnswer(TComponent* Owner)
        : TForm(Owner)
{
  ModemAnswerThread = new TModemAnswer(False);
}
//---------------------------------------------------------------------------
void __fastcall TfrmAnswer::FormShow(TObject *Sender)
{
  ErrorNo=-3;
  LabelRingCount->Caption="0";
  ModemAnswerThread->Com = Com;
  ModemAnswerThread->AnswerNow = CheckBox1->Checked;
  ModemAnswerThread->Resume();
  Timer1->Enabled=True;
}
//---------------------------------------------------------------------------
void __fastcall TfrmAnswer::Timer1Timer(TObject *Sender)
{
  char buf[32];
  if( ModemAnswerThread->Stop == True )
    {
    Timer1->Enabled=False;
    if( ModemAnswerThread->ErrorNo!=0 && ModemAnswerThread->ErrorNo!=-3 )
      {
      LabelMsg->Caption=ModemAnswerThread->ErrorMsg;
      if( frmMain->CheckBoxAlwaysSend->Checked!=True && frmMain->CheckBoxAlwaysSend->Checked!=True )
        {
        Application->MessageBox(ModemAnswerThread->ErrorMsg.c_str(),"ERROR",MB_ICONERROR|MB_OK);
        };
      Close();
      };
    Close();
    };
  sprintf(buf,"%d",ModemAnswerThread->RingCount);
  LabelRingCount->Caption=buf;
  LabelMsg->Caption=ModemAnswerThread->ProgressMsg;
  if( ModemAnswerThread->RingCount>0 && CheckBox1->Checked == True
      &&ModemAnswerThread->Answering==False )
    {
    ModemAnswerThread->AnswerNow=True;
    };
}
//---------------------------------------------------------------------------
void __fastcall TfrmAnswer::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Timer1->Enabled=False;
    ModemAnswerThread->StopAnswer();
    ErrorNo=ModemAnswerThread->ErrorNo;
}
//---------------------------------------------------------------------------
void __fastcall TfrmAnswer::Button1Click(TObject *Sender)
{
  ModemAnswerThread->AnswerNow=True;
}
//---------------------------------------------------------------------------