使用 Delphi 的 TAPI 拨打电话答案

【问题标题】：Place a call using TAPI from Delphi使用 Delphi 的 TAPI 拨打电话
【发布时间】：2010-10-11 13:57:48
【问题描述】：

我需要使用 Delphi 2006 中的 TAPI 发起调用。我希望它尽可能简单。对简单组件有什么建议吗？是在 JEDI 中吗？

【问题讨论】：

官方 TAPI 文档真的是你所需要的：msdn.microsoft.com/en-us/library/ms734273(VS.85).aspx 但可能有简化的包装器。

标签： delphi tapi

【解决方案1】：

你可以使用TurboPower Async Professional，前段时间我使用了这个库并且运行良好，你可以在这个link找到更多关于tapi和AsyncPro组件的信息。

【讨论】：

我不久前将这个库用于 TAPI，效果很好。

【解决方案2】：

这里是一些免费软件和共享软件的组件列表

http://www.torry.net/pages.php?id=199

谢谢

【讨论】：

【解决方案3】：

要使用 Tapi 和 delphi，您只需要两件事。

一个。导入 dll 并创建 tlb 文件。在 delphi 菜单中，转到组件，然后选择导入组件，然后选择导入类型库，键入“tapi3”并选择tapi3.dll。

b.使用创建的 dll 进行调用，您只需简单地使用

procedure TForm1.Button1Click(Sender: TObject);
var
  Request:ITRequest;
  dispatch:ITDispatchMapper;
begin
  Request := CoRequestMakeCall.create;
  Request.MakeCall('555-5555','Tag','client name','Comment');
end;

并将“555-5555”替换为用户输入的文件编号，作为字符串。

【讨论】：

【解决方案4】：

在implementation之前添加这一行

function tapiRequestMakeCallW(DestAddress: PWideChar; AppName: PWideChar;
  CalledParty: PWideChar; Comment: PWideChar): LongInt; stdcall;
external 'TAPI32.DLL';

在那之后像这样调用tapiRequestMakeCallw

TapiSonuc:=tapiRequestMakeCallw(Phone,'', comment, Comment);

【讨论】：