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

← →
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;

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

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