Набрать телефонный номерDelphi , Интернет и Сети , Dial-upНабрать телефонный номер
Оформил: DeeCo implementation {$R *.DFM} function tapiRequestMakeCall(DestAddress, AppName, CalledParty, Comment: PChar): Longint; stdcall; external 'TAPI32.DLL'; procedure TForm1.Button1Click(Sender: TObject); var PhoneNumber, AppName: array[0..255] of Char; begin PhoneNumber := '1234567890'; StrPCopy(AppName, Application.Title); tapiRequestMakeCall(PhoneNumber, AppName, '', ''); end; Here is the translation of the text into Russian: Импорт TAPI32.DLL Первая строка Декларация функции tapiRequestMakeCall Функция
Эта функция вызывается с номером телефона и именем приложения как аргументами. Procedure Button1Click Процедура
Внутри этой процедуры она устанавливает переменную Альтернативное решение Если вы хотите сделать звонок более динамичным (например, позволить пользователю ввести свой собственный номер телефона), вы можете модифицировать код, чтобы запросить у пользователя ввод. Например:
В этом модифицированном варианте код использует В статье описывается код на Delphi, который позволяет набрать телефонный номер с помощью библиотеки TAPI32. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |