dialer.cpp

通过串口发送接受文件

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Dialer.h"
#include "ModemDialer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmDialer *frmDialer;
//---------------------------------------------------------------------------
__fastcall TfrmDialer::TfrmDialer(TComponent* Owner)
        : TForm(Owner)
{
  ModemDialerThread = new TModemDialer(False);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TfrmDialer::Timer1Timer(TObject *Sender)
{
  if( ModemDialerThread->Stop==True )
    {
    Timer1->Enabled=False;
    if( ModemDialerThread->ErrorNo!=0 && ModemDialerThread->ErrorNo!=-3 )
      {
      LabelMsg->Caption=ModemDialerThread->ErrorMsg;
      ButtonStartDial->Caption="开始拨号";
      return;
      };
    Close();
    };
  LabelMsg->Caption=ModemDialerThread->ProgressMsg;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDialer::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    ErrorNo=ModemDialerThread->ErrorNo;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDialer::ButtonStartDialClick(TObject *Sender)
{
  if( strcmp(ButtonStartDial->Caption.c_str(),"取消")==0 )
    {
    ModemDialerThread->StopDial();
    LabelMsg->Caption="要通过Modem传输数据,必须先进行拨号连接";
    ButtonStartDial->Caption="开始拨号";
    Timer1->Enabled = False;
    }
  else
    {
    ButtonStartDial->Caption="取消";
    ModemDialerThread->Com = Com;
    ModemDialerThread->PhoneNumber=EditPhoneNumber->Text;
    ModemDialerThread->Resume();
    Timer1->Enabled = True;
    };
}
//---------------------------------------------------------------------------
void __fastcall TfrmDialer::FormShow(TObject *Sender)
{
  ModemDialerThread->ErrorNo=-3;
  Timer1->Enabled=False;
  LabelMsg->Caption="要通过Modem传输数据,必须先进行拨号连接";
  ButtonStartDial->Caption="开始拨号";
}
//---------------------------------------------------------------------------