unit1.cpp

网络编程的一些实例

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

#include "Unit1.h"
#define TAPI_CURRENT_VERSION 0x00010004
#include <tapi.h>
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bCallClick(TObject *Sender)
{
  if (ePhone->Text.Length())
  {
    bCall->Enabled = FALSE;
    tapiRequestMakeCall(ePhone->Text.c_str(), "Dial",
                        ePerson->Text.c_str(), eReason->Text.c_str());
    bCall->Enabled = TRUE;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
  ePhone->SetFocus();
}
//---------------------------------------------------------------------------