Набрать телефонный номер

Delphi , Интернет и Сети , Dial-up

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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

Первая строка {$R *.DFM} указывает компилятору включить ресурсы из файла .DFM в проект. Следующая строка импортирует библиотеку TAPI32.DLL, которая предоставляет API-телефонии. Часть external 'TAPI32.DLL' указывает, что это внешняя библиотека, которая должна быть связана на этапе выполнения.

Декларация функции tapiRequestMakeCall

Функция tapiRequestMakeCall декларируется как стандартная процедура (stdcall) с четырьмя параметрами:

• DestAddress: строка, представляющая собой номер телефона назначения
• AppName: строка, представляющая собой имя приложения (в этом случае - заголовок Delphi-приложения)
• CalledParty: строка, которая appears to be unused в этом коде-сниппете
• Comment: указатель на массив символов, который appears to be unused в этом коде-сниппете

Эта функция вызывается с номером телефона и именем приложения как аргументами.

Procedure Button1Click

Процедура Button1Click триггерируется, когда кнопка Button1 на форме кликнута. Она имеет один локальный переменный:

• PhoneNumber: массив символов (0..255), хранящий номер телефона назначения
• AppName: массив символов (0..255), хранящий имя приложения

Внутри этой процедуры она устанавливает переменную PhoneNumber в '1234567890', который является жестко закодированным номером телефона. Затем она копирует заголовок Delphi-приложения (Application.Title) в переменную AppName. Наконец, она вызывает функцию tapiRequestMakeCall с номером телефона и именем приложения как аргументами.

Альтернативное решение

Если вы хотите сделать звонок более динамичным (например, позволить пользователю ввести свой собственный номер телефона), вы можете модифицировать код, чтобы запросить у пользователя ввод. Например:

procedure TForm1.Button1Click(Sender: TObject);
var
  PhoneNumber, AppName: array[0..255] of Char;
begin
  Write('Введите ваш номер телефона: ');
  ReadLn(PhoneNumber);
  StrPCopy(AppName, Application.Title);
  tapiRequestMakeCall(PhoneNumber, AppName, '', '');
end;

В этом модифицированном варианте код использует Write и ReadLn, чтобы запросить у пользователя ввод и хранить его в переменной PhoneNumber. Остальная часть кода остается прежней.

В статье описывается код на Delphi, который позволяет набрать телефонный номер с помощью библиотеки TAPI32.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Dial-up ::