| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите! Как позвонить?... [D7, WinXP]

Dimaz-z ©   (2003-04-07 22:32:00) 

Как вызвать системную функцию дозвона? Голосовой звонок, без TAPI

---

demonyator   (2003-04-10 03:02:00) [1]

Ой, сорри, ошибка в коде, строку "If Trubka.PodrugaIsConnected then Result:=True else Result:=False;" перенеси перед последним end"ом, иначе Result может быть Undefined.

---

demonyator   (2003-04-10 02:51:00) [2]

У меня работает, поппробуй сам, если чё не сработает, - могу свой Unit на мыло сбросить.

Function Call(number:Integer):Boolean;
var
I:Integer;
begin
with (Sender as YourSelf) do begin
StandUp;
FindYourPhone;
TakeTheTrubka;
if Trubka.hasDialTone=True then with YourHands do begin
for I:=0 to Number.Count-1 do begin
if FindButton(I) then ClickButton(I) else Exit;
end;
Sleep(5000);

If Trubka.PodrugaIsConnected then Result:=True else Result:=False;
end;
end;
end;

---

Cobalt   (2003-04-09 00:35:00) [3]

в смысле, RASAPI?
Или ты намекаешь на SpeechApi?

---

Наверх