Форум: "Система";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c