1 Topic by agatlogic101 (edited by agatlogic101 2019-03-24 12:27:29)

  • Registered: 2018-11-13
  • Posts: 299

Topic: телефония

Есть ли какие способы звонить с MVD? Используя допустим сервис zadarma.com? или какие либо звонилки? что то типо VoIP программ, VoIP оборудования...

ПРимер допустим списка программ которые могут совершать звонки
https://zadarma.com/ru/support/instructions/windows/
Есть какие то пути что бы через них совершать звонки из MVD? или может какой то другой способ?

  • Registered: 2018-11-13
  • Posts: 299

Re: телефония

Доброе время суток, а можно хотя-бы краткий скрип пример, или образец? Я просто вообще не разбираюсь в коде, и делаю чаще всего через копирку того, что нахожу на форуме.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: телефония

К сожалению у них на сайте я не нашел как это сделать, например в случае скайпа это делается так

OpenFile('skype:LoginOfAbonent?call');

Напишите им в службу поддержки или спросите их об этом на форуме, какой префикс у них используется при использовании данной программы
https://zadarma.com/ru/support/instruct … s/zadarma/

Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: телефония

Ответ из техпотдержки
Документация по нашему API находится тут https://zadarma.com/ru/support/api/

Уточните пожалуйста с чем именно возникли трудности?



С уважением,
специалист технической поддержки Alexey.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: телефония

Возможно они не поняли вашего вопроса, приведете им пример со скайпом.

Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: телефония

Описал про скайп, но ответ пришёл в таком формате


В html для звонка используются теги tel: или callto: чтобы по клику на номер телефона инициировался звонок.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: телефония

попробуйте так

OpenFile('tel:79005555555');
OpenFile('callto:79005555555');
Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: телефония

А как и куда это писать?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: телефония

Это скрипт.


Создайте событие OnClick для кнопки

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    OpenFile('tel:79005555555');
end;
Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: телефония

Работает. Приложение открывается и сразу набирает тот номер который мы указали в скрипте. А как теперь сделать что бы набирался именно тот номер который в базе данных?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: телефония

agatlogic101 wrote:

Работает. Приложение открывается и сразу набирает тот номер который мы указали в скрипте. А как теперь сделать что бы набирался именно тот номер который в базе данных?

Можно номер телефона получать с помощью SQL запроса используя функцию SQLExecute и зная id записи

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    sNumber: string;
begin
    sNumber := SQLExecute('SELECT phonenumber FROM tablename WHERE id=1');
    OpenFile('tel:'+sNumber);
end;


Либо номер телефона можно получать с компонента Edit или TableGrid.

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    OpenFile('tel:'+Form1.Edit1.Text);
end;
Dmitry.