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

Вниз

RasEnumConnections   Найти похожие ветки 

 
mike.dld ©   (2003-04-29 18:26) [0]

Подскажите, плиз, как юзать. Третий час ничего не выходит.


 
MBo ©   (2003-04-29 18:30) [1]

Так покажи, как юзал, и что именно не выходит


 
mike.dld ©   (2003-04-29 18:33) [2]


function _Speed: string;
var lpRasConn: PRASCONN;
Statistics: RAS_STATS;
dwCb,dwConnections: DWORD;
begin
dwCb := sizeof(RASCONN);
lpRasConn := HeapAlloc(GetProcessHeap, 0, dwCb);
if (lpRasConn = nil) then exit;
lpRasConn^.dwSize := sizeof(RASCONN);
try
if (RasEnumConnections(lpRasConn,@dwCb,@dwConnections) = 0)
then Result := "OK"
else Result := "Error";
except
HeapFree(GetProcessHeap, 0, lpRasConn);
exit;
end;
end;


Постоянно получаю "Error".


 
jel ©   (2003-04-30 12:02) [3]

Я делал так


var
ConnectionList : array [0..7] of TRasConn;
CLSize, i, CLCount : integer;
begin
ConnectionList[0].dwSize := SizeOf(TRasConn);
CLSize := SizeOf(TRasConn) * 8;
if RasEnumConnections(@ConnectionList[0], CLSize, CLCount) = 0 then ....
end;


 
Joisy ©   (2003-05-02 13:28) [4]

Насколько я помню RasEnumConnections должна вызываться два раза: первый раз чтобы определить число соединений, а второй чтобы заполнить структуры массива array [0..ContConns] of TRasConn.



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
14-44830
MetalFan
2003-06-26 11:35
2003.07.14
NVidia GeForce 2 Pro (64mb)


1-44731
Пубертанец
2003-07-01 09:19
2003.07.14
Как обратиться к свойству, зная его название?


6-44777
Renegate
2003-05-07 15:42
2003.07.14
Управление приложенияи по сети.


1-44645
Dream
2003-07-02 11:43
2003.07.14
Как сделать активным одну из вкладок PageControl ?


1-44737
Soft
2003-07-01 13:19
2003.07.14
Как смапировать файл в память