// ***** BEGIN LICENSE BLOCK *****
// * Version: MPL 1.1
// *
// * The contents of this file are subject to the Mozilla Public License Version
// * 1.1 (the "License"); you may not use this file except in compliance with
// * the License. You may obtain a copy of the License at
// * http://www.mozilla.org/MPL/
// *
// * Software distributed under the License is distributed on an "AS IS" basis,
// * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
// * for the specific language governing rights and limitations under the
// * License.
// *
// * The Original Code is TurboPower Async Professional
// *
// * The Initial Developer of the Original Code is
// * TurboPower Software
// *
// * Portions created by the Initial Developer are Copyright (C) 1991-2002
// * the Initial Developer. All Rights Reserved.
// *
// * Contributor(s):
// *
// * ***** END LICENSE BLOCK *****
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ExSapiA0.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdSapiEn"
#pragma link "AdSapiPh"
#pragma link "AdTapi"
#pragma link "OoMisc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (ApdSapiEngine1->IsSapi4Installed() == false)
{
ShowMessage ("SAPI 4 is not installed. This example will now exit.");
Application->Terminate();
}
ColorList = new TStringList ();
ColorList->Add ("red");
ColorList->Add ("blue");
ColorList->Add ("yellow");
ColorList->Add ("green");
ColorList->Add ("orange");
ColorList->Add ("purple");
ColorList->Add ("violet");
ColorList->Add ("brown");
ColorList->Add ("black");
ColorList->Add ("white");
ColorList->Add ("gray");
ColorList->Add ("maroon");
ColorList->Add ("olive");
ColorList->Add ("navy");
ColorList->Add ("teal");
ColorList->Add ("silver");
ColorList->Add ("lime");
ColorList->Add ("fuchsia");
ColorList->Add ("aqua");
PlanetList = new TStringList ();
PlanetList->Add ("[opt] the sun");
PlanetList->Add ("[opt] the moon");
PlanetList->Add ("mercury");
PlanetList->Add ("venus");
PlanetList->Add ("[opt] the earth");
PlanetList->Add ("mars");
PlanetList->Add ("jupiter");
PlanetList->Add ("saturn");
PlanetList->Add ("neptune");
PlanetList->Add ("uranus");
PlanetList->Add ("pluto");
PlanetList->Add ("rupert");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete ColorList;
delete PlanetList;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiEngine1Interference(TObject *Sender,
TApdSRInterferenceType InterferenceType)
{
switch (InterferenceType) {
case itAudioStarted :
Memo1->Lines->Add("*** Interference - Audio Started ***");
break;
case itAudioStopped :
Memo1->Lines->Add("*** Interference - Audio Stopped ***");
break;
case itDeviceOpened :
Memo1->Lines->Add("*** Interference - Device Opened ***");
break;
case itDeviceClosed :
Memo1->Lines->Add("*** Interference - Device Closed ***");
break;
case itNoise :
Memo1->Lines->Add("*** Interference - Noise ***");
break;
case itTooLoud :
Memo1->Lines->Add("*** Interference - Too Loud ***");
break;
case itTooQuiet :
Memo1->Lines->Add("*** Interference - Too Quiet ***");
break;
case itUnknown :
Memo1->Lines->Add("*** Interference - Unknown ***");
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiEngine1PhraseFinish(TObject *Sender,
const AnsiString Phrase)
{
Memo1->Lines->Add ("REPLY --> " + Phrase);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiEngine1SRError(TObject *Sender, DWORD Error,
const AnsiString Details, const AnsiString Message)
{
Memo1->Lines->Add ("SR Error: " + Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiPhone1AskForDateFinish(TObject *Sender,
TApdSapiPhoneReply Reply, TDateTime Data, AnsiString SpokenData)
{
switch (Reply) {
case prOk :
Memo1->Lines->Add ("DATE --> " + FormatDateTime ("dddddd", Data) +
" (" + SpokenData + ")");
lblDate->Caption = FormatDateTime ("dddddd", Data);
break;
case prCheck :
Memo1->Lines->Add ("DATE --> " + FormatDateTime ("dddddd", Data) +
"? (" + SpokenData + ")");
lblDate->Caption = FormatDateTime ("dddddd", Data);
break;
case prOperator :
Memo1->Lines->Add ("DATE --> [operator]");
break;
case prHangUp :
Memo1->Lines->Add ("DATE --> [hangup]");
break;
case prBack :
Memo1->Lines->Add ("DATE --> [back]");
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiPhone1AskForExtensionFinish(TObject *Sender,
TApdSapiPhoneReply Reply, AnsiString Data, AnsiString SpokenData)
{
switch (Reply) {
case prOk :
Memo1->Lines->Add ("EXT --> " + Data);
lblExtension->Caption = Data;
break;
case prOperator :
Memo1->Lines->Add ("EXT --> [operator]");
break;
case prHangUp :
Memo1->Lines->Add ("EXT --> [hangup]");
break;
case prBack :
Memo1->Lines->Add ("EXT --> [back]");
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApdSapiPhone1AskForListFinish(TObject *Sender,
TApdSapiPhoneReply Reply, int Data, AnsiString SpokenData)
{
switch (Reply) {
case prOk :
if (Data >= 0) {
switch (ListRequest) {
case lrPlanet :
if (Data <= 1)
lblPlanet->Caption = PlanetList->Strings[Data] +
" (not really a planet)";
else
lblPlanet->Caption = PlanetList->Strings[Data];
break;
case lrColor :
lblColor->Caption = ColorList->Strings[Data];
switch (Data) {
case 0 :
Shape1->Brush->Color = clRed;
break;
case 1 :
Shape1->Brush->Color = clBlue;
break;
case 2 :
Shape1->Brush->Color = clYellow;
break;
case 3 :
Shape1->Brush->Color = clGreen;
break;
case 4 :
Shape1->Brush->Color = (TColor) 0x007FFF;
break;
case 5 :
Shape1->Brush->Color = clPurple;
break;
case 6 :
Shape1->Brush->Color = clPurple;
break;
case 7 :
Shape1->Brush->Color = (TColor) 0x00003399;
break;
case 8 :
Shape1->Brush->Color = clBlack;
break;
case 9 :
Shape1->Brush->Color = (TColor) 0x00FFFFFF;
break;
case 10 :
Shape1->Brush->Color = clGray;
break;
case 11 :
Shape1->Brush->Color = clMaroon;
break
没有合适的资源?快使用搜索试试~ 我知道了~
TurboPower 全套组件及相关文档
共812个文件
dfm:191个
cpp:172个
pas:98个
4星 · 超过85%的资源 需积分: 50 83 下载量 200 浏览量
2006-01-13
09:51:35
上传
评论 2
收藏 102.96MB RAR 举报
温馨提示
TurboPower,一个有18年历史的Delphi第三方组件开发商,在2004年2月13日宣布停止运营,开放其所有产品源代码.在此前一年,TurboPower曾宣布要转型为.net组件开发厂商,但结果如何不得而知.本压缩包包括TurboPower所有VCL组件产品源码及相关文档.文件整理:9903 Email:zzy9903@163.com------------------------------------------------------AbbreviaAsync ProfessionalAsync Professional CLXB-Tree FilerEssentialsFlashFilerInternet ProfessionalLockBoxOfficePartnerOnGuardOrpheusShellShockSysToolsSysTools for KylixVisual PlanItXML Partner------------------------------------------------------
资源推荐
资源详情
资源评论
收起资源包目录
TurboPower 全套组件及相关文档 (812个子文件)
AllExmpl.bpg 3KB
Faxing.bpg 2KB
ComPort.bpg 1KB
Terminal.bpg 1KB
Protocol.bpg 1KB
Tapi.bpg 1KB
Winsock.bpg 979B
FaxPDrv.bpg 912B
FxServr.bpr 5KB
FxClnt.bpr 5KB
ExSapiB.bpr 5KB
ExSMSPg.bpr 5KB
ExSMSMes.bpr 5KB
ExScript.bpr 5KB
ExVoIP.bpr 4KB
ExSapiLs.bpr 4KB
ExSapi.bpr 4KB
ExSapiPh.bpr 4KB
ExSapiDl.bpr 4KB
ExSapiAs.bpr 4KB
Cvt2Fax.bpr 3KB
WSTELNET.bpr 3KB
ExAnswer.bpr 3KB
ExAdapt.bpr 3KB
ExClient.bpr 3KB
EXMDI02.bpr 3KB
ExAuto.bpr 3KB
EXMDI.bpr 3KB
ExPaging.bpr 3KB
Sendfax.bpr 3KB
EXFAXL.bpr 3KB
VIEWFAX.bpr 3KB
EXWZRECV.bpr 3KB
EXWZSEND.bpr 3KB
ExWPackt.bpr 3KB
ExRecord.bpr 3KB
FaxServr.bpr 3KB
ExMaster.bpr 3KB
EXZRECV.bpr 3KB
EXDPORT.bpr 3KB
EXTMAIN.bpr 3KB
EXTAPID.bpr 3KB
EXLOGIN.bpr 3KB
EXFLIST.bpr 3KB
EXFPRN0.bpr 3KB
ExFaxOd.bpr 3KB
EXTAPIF.bpr 3KB
EXZSEND.bpr 3KB
EXFPRN2.bpr 3KB
ExVoice.bpr 3KB
EXSERVER.bpr 3KB
EXTAPIA.bpr 3KB
ExFaxMr.bpr 3KB
EXTAPI.bpr 3KB
EXTRIG.bpr 3KB
EXTCAP.bpr 3KB
RCVFAX.bpr 3KB
QryMdm.bpr 3KB
EXPLOG.bpr 3KB
EXTHAN.bpr 3KB
EXSTAT.bpr 3KB
ExFOdR.bpr 3KB
EXVIEW.bpr 3KB
FaxMon.bpr 3KB
EXPROT.bpr 3KB
EXPNDX.bpr 3KB
ExFOdS.bpr 3KB
FtpAuto.bpr 3KB
ExSlave.bpr 3KB
EXLOG.bpr 3KB
ExCom.bpr 3KB
EXCTL.bpr 3KB
EXFAXB.bpr 3KB
EXFAXS.bpr 3KB
EXFAXR.bpr 3KB
FAXSERVX.bpr 3KB
ExConApp.bpr 3KB
PINST.bpr 3KB
ExWnSock.bpr 3KB
ExFtpDir.bpr 2KB
RasDemo.bpr 2KB
ExSNPP.bpr 2KB
ExTap.bpr 2KB
FtpDemo.bpr 2KB
ExSapiA0.cpp 15KB
ExPagin0.cpp 14KB
SendFax0.cpp 14KB
VIEWMAIN.cpp 13KB
FaxSrvx0.cpp 12KB
ExSapiP0.cpp 12KB
ExSapiL0.cpp 12KB
FxServr0.cpp 10KB
FtpDemo0.cpp 9KB
FaxMon0.cpp 8KB
ExVoIP0.cpp 8KB
ExFaxOd0.cpp 8KB
ExRecrd0.cpp 7KB
RasDemo0.cpp 7KB
Cvtmain.cpp 6KB
RcvFax0.cpp 6KB
共 812 条
- 1
- 2
- 3
- 4
- 5
- 6
- 9
资源评论
- 自主重来2012-05-04Delphi用起来就是快,第三方控件安装就麻烦点
- u0108221522013-07-23不错的控件 值得收藏
- chen_engel2012-05-03这个还是04年以前的技术,不知道有没有更新点的。下载了,不知道如何安装。
普通网友
- 粉丝: 882
- 资源: 2万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功