| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RasEnumConnections [D6, Win2k]

mike.dld ©   (2003-04-29 18:26:00) 

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

---

Joisy   (2003-05-02 13:28:00) [1]

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

---

jel   (2003-04-30 12:02:00) [2]

Я делал так


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;


---

mike.dld   (2003-04-29 18:33:00) [3]


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".

---

MBo   (2003-04-29 18:30:00) [4]

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

---

Наверх