Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как получить зарегистрированные в системе TAPI-линии   Найти похожие ветки 

 
d@vinchi ©   (2009-03-04 23:18) [0]

Как получить список провайдеров телефоний (те что в панели управлениея -> телефон и модем -> вкладка дополнительно) и список TAPI линий который каждый из них зарегистрировал в системе?


 
GanibalLector ©   (2009-03-09 17:06) [1]

Качни TApi.pas и примерно так(код большой, поэтому привожу нужную часть)


//
 I:=LineInitialize(FLineApp, 0, @LineCallback, nil, FDeviceCount);
 if (I=0) and (FDeviceCount<>0) then
 begin
   // получаем имена модемов
   GetMem(LDC, DevCapsAllocSize);
   try
     for I:=0 to FDeviceCount-1 do
     begin
       if not TapiFailed(LineNegotiateAPIVersion(FLineApp, I,
         $10003, $10003 ,TApiV, ExtId)) then  //{$20000}
       begin
         ZeroMemory(LDC, DevCapsAllocSize);
         LDC.dwTotalSize := DevCapsAllocSize;
         if not TapiFailed(LineGetDevCaps(FLineApp, I, TApiV, 0, LDC)) then
         begin
           if (LDC.dwMediaModes and LINEMEDIAMODE_DATAMODEM) =
            LINEMEDIAMODE_DATAMODEM then
           begin
             {$WARNINGS OFF}
             SetString(LineName, PChar(Integer(LDC)+LDC.dwLineNameOffset),
               LDC.dwLineNameSize - 1);
             {$WARNINGS ON}  
             FListDevice.AddObject(LineName,TObject(I));
           end;
         end;
       end;
     end;
   finally
     FreeMem(LDC);
   end;
   //




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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
15-1274300990
Юрий
2010-05-20 00:29
2010.08.27
С днем рождения ! 20 мая 2010 четверг


2-1274359047
РП
2010-05-20 16:37
2010.08.27
Байты в число и число в байты нужной размерности


15-1271934964
зашел спросить
2010-04-22 15:16
2010.08.27
FloatToBin


6-1217926149
dima_tepl
2008-08-05 12:49
2010.08.27
Работа с микроконтроллером по TCP/IP протоколу


15-1269675632
Игорь
2010-03-27 10:40
2010.08.27
Джеки Чан в рекламе АВ Касперского