Вниз
Скачать: CL | DM;

TAPI(Error 80000018)   Найти похожие ветки 

← →
GanibalLector ©   (2008-02-08 14:06) [0]

Имеется след.код

var  LineApp: Cardinal;
 DeviceCount,fDeviceID: Cardinal;
 tapiVersion: Cardinal;
 ExtId: TLINEEXTENSIONID;
 CallParams: TLINECALLPARAMS;
 hLine:TLine;
 Call:HCALL;
 VarStrRec:LPVARSTRING;
 PhoneNum:array[0..30] of char;
 Handle:HWND;
 const VarStrAllocSize = SizeOf(TVarString) + 1024;
begin
 DeviceCount := 0;
 ApiCheck(LineInitialize(LineApp,MainInstance, DummyTapiCallbackProc, nil, DeviceCount));
 try
   if DeviceCount = 0 then Exit;
   fDeviceID:=ComboBox1.ItemIndex;
   ApiCheck(LineNegotiateAPIVersion(lineApp, fDeviceID, mVer, hVer, tapiVersion, extid));
   FillChar(CallParams, SizeOf(CallParams),0);
   with CallParams do
   begin
     dwTotalSize := SizeOf(CallParams);
     dwMinRate:=9600;
     dwMaxRate:=9600;
     dwMediaMode := LINEMEDIAMODE_DATAMODEM;
   end;
   ApiCheck(lineOpen(LineApp,fDeviceID,hLine,tapiVersion,0,0,
             LINECALLPRIVILEGE_MONITOR +LINECALLPRIVILEGE_OWNER,
              LINEMEDIAMODE_DATAMODEM,CallParams));
   //
   StrPCopy(PhoneNum,"P806712345678");
   ApiCheck(LineMakeCall(hLine,Call,PhoneNum,0,@CallParams));
   //
   VarStrRec:=nil;
   try
      GetMem(VarStrRec, VarStrAllocSize);
      VarStrRec.dwTotalSize := 1024;
      ApiCheck(LineGetID(hLine,0,Call,LINECALLSELECT_CALL,VarStrRec,"comm/datamodem")); вот тут ошибка
      Handle := PInteger(PChar(@VarStrRec) + VarStrRec.dwStringOffset)^;
   finally
     if Assigned(VarStrRec) then  FreeMem(VarStrRec);
   end;
   //
     // работаем с  Handle
   //
   ApiCheck(lineClose(hLine));
 finally
   ApiCheck(LineShutdown(LineApp));
 end;
end;


Ошибка Error 80000018 (неверный дескриптор).
Полное описание : The specified call handle is not valid. For example, the handle is not NULL but does not belong to the given line. In some cases, the specified call device handle is invalid.

Как мне кажется, все делаю правильно. В чем причина неудач?
Спасибо!


← →
GanibalLector ©   (2008-02-09 01:31) [1]

Вопрос снят. Разобрался



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

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



Память: 0.45 MB
Время: 0.011 c
15-1224047537
kay
2008-10-15 09:12
2008.12.21
Выбор СУБД


2-1226679594
smartleds
2008-11-14 19:19
2008.12.21
Подскажите плз как процедуру зоздания формы вызвать вручную


2-1226472613
Alex7
2008-11-12 09:50
2008.12.21
TShiftState из какого модуля?


15-1224668736
DonVik
2008-10-22 13:45
2008.12.21
Сеть и ее проблемы


1-1204835957
Юрий Лосев
2008-03-06 23:39
2008.12.21
Как увеличить высоту заголовка формы.




   Наверх