Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 642

•  TDictionary Custom Sort  6 646

•  Fast Watermark Sources  6 424

•  3D Designer  9 364

•  Sik Screen Capture  6 752

•  Patch Maker  7 140

•  Айболит (remote control)  7 154

•  ListBox Drag & Drop  6 010

•  Доска для игры Реверси  97 601

•  Графические эффекты  7 338

•  Рисование по маске  6 625

•  Перетаскивание изображений  5 495

•  Canvas Drawing  5 873

•  Рисование Луны  5 597

•  Поворот изображения  5 103

•  Рисование стержней  3 674

•  Paint on Shape  2 906

•  Генератор кроссвордов  3 803

•  Головоломка Paletto  3 054

•  Теорема Монжа об окружностях  3 864

•  Пазл Numbrix  2 546

•  Заборы и коммивояжеры  3 258

•  Игра HIP  2 229

•  Игра Go (Го)  2 163

•  Симулятор лифта  2 540

•  Программа укладки плитки  2 178

•  Генератор лабиринта  2 679

•  Проверка числового ввода  2 328

•  HEX View  2 663

•  Физический маятник  2 295
 
скрыть

Delphi Sources

Набрать номер по модему. Голосовой звонок. Использование TAPI


Инетчик звонит по телефону.
- Позовите пожалуйста Лену к телефону.
- Такой здесь нет. "User unknown" , - подумал И-нетчик.

До слова implementation напишите такой код: 


{tapi Errors}
const TAPIERR_CONNECTED = 0;
const TAPIERR_DROPPED = -1;
const TAPIERR_NOREQUESTRECIPIENT = -2;
const TAPIERR_REQUESTQUEUEFULL = -3;
const TAPIERR_INVALDESTADDRESS = -4;
const TAPIERR_INVALWINDOWHANDLE = -5;
const TAPIERR_INVALDEVICECLASS = -6;
const TAPIERR_INVALDEVICEID = -7;
const TAPIERR_DEVICECLASSUNAVAIL = -8;
const TAPIERR_DEVICEIDUNAVAIL = -9;
const TAPIERR_DEVICEINUSE = -10;
const TAPIERR_DESTBUSY = -11;
const TAPIERR_DESTNOANSWER = -12;
const TAPIERR_DESTUNAVAIL = -13;
const TAPIERR_UNKNOWNWINHANDLE = -14;
const TAPIERR_UNKNOWNREQUESTID = -15;
const TAPIERR_REQUESTFAILED = -16;
const TAPIERR_REQUESTCANCELLED = -17;
const TAPIERR_INVALPOINTER = -18;

{tapi size constants}
const TAPIMAXDESTADDRESSSIZE = 80;
const TAPIMAXAPPNAMESIZE = 40;
const TAPIMAXCALLEDPARTYSIZE = 40;
const TAPIMAXCOMMENTSIZE = 80;
const TAPIMAXDEVICECLASSSIZE = 40;
const TAPIMAXDEVICEIDSIZE = 40;

function tapiRequestMakeCallA(DestAddress : PAnsiChar;
AppName : PAnsiChar;
CalledParty : PAnsiChar;
Comment : PAnsiChar) : LongInt;
stdcall; external 'TAPI32.DLL';

function tapiRequestMakeCallW(DestAddress : PWideChar;
AppName : PWideChar;
CalledParty : PWideChar;
Comment : PWideChar) : LongInt;
stdcall; external 'TAPI32.DLL';

function tapiRequestMakeCall(DestAddress : PChar;
AppName : PChar;
CalledParty : PChar;
Comment : PChar) : LongInt;
stdcall; external 'TAPI32.DLL';

Нажатие кнопки обработайте следующим образом: 


procedure TForm1.Button1Click(Sender: TObject);
var
  DestAddress : string;
  CalledParty : string;
  Comment : string;
begin
  DestAddress := '000-00-00'; {phone number}
  CalledParty := '___Nikolay';
  Comment := 'Calling to ___Nikolay';
  tapiRequestMakeCall(pChar(DestAddress),
  PChar(Application.Title),
  pChar(CalledParty),
  PChar(Comment));
end;