Скачать: CL | DM;

Помогите! Как позвонить?...   Найти похожие ветки 

← →
Dimaz-z ©   (2003-04-07 22:32) [0]

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

---

← →
Cobalt ©   (2003-04-09 00:35) [1]

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

---

← →
demonyator ©   (2003-04-10 02:51) [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;

---

← →
demonyator ©   (2003-04-10 03:02) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c