使用 Delphi 中的 TAPI 拨打电话

Question

我需要使用 Delphi 2006 中的 TAPI 发起呼叫。我希望它尽可能简单。对于简单的组件有什么建议吗？是在《绝地武士》中吗？

Answer 1

你可以使用TurboPower Async Professional，前段时间我使用了这个库并且工作得很好，你可以找到有关 tapi 和 AsyncPro 组件的更多信息，请参阅此链接。

Answer 2

以下是组件列表 一些免费软件 一些共享软件

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

谢谢

Answer 3

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

一个。导入 dll 并创建 tlb 文件。
在delphi菜单中，转到componenets，然后选择导入组件，然后选择导入类型库，输入“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”替换为用户输入的文件编号（作为字符串）。

Answer 4

implementation 之前添加此行，如下所示

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

在调用 tapiRequestMakeCallw 之后的

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