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

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

Как получить список соединений для Интернет? [D7, 2003]

rolex ©   (2007-01-05 00:46:00) 

Сабж

---

antonn   (2007-01-05 16:49:00) [1]

Palladin ©   (05.01.07 16:30) [12]
как вошел в интернет, так и дал:Р
вроде и день сегодняшний у темы, не месячной давности...
да и вообще, у меня клиент, кто еще спросит - поиск по клиенту и пост ответа:)

---

Palladin   (2007-01-05 16:30:00) [2]

>  antonn ©

так ты опоздал со своими советами... уже давно дали наводки и ссылки...
может у тебя и есть задатки телепата, но вот с восприятием действительности - проблемы )

---

antonn   (2007-01-05 14:13:00) [3]

Anatoly Podgoretsky ©   (05.01.07 13:44) [10]
да, я тоже замечал за собой такое:)

---

Anatoly Podgoretsky   (2007-01-05 13:44:00) [4]

> antonn  (05.01.2007 13:41:09)  [9]

Ты телепат.

---

antonn   (2007-01-05 13:41:00) [5]

DrPass ©   (05.01.07 12:11) [8]
Через плечо:)
Конференция для начинающих, соответственно и вопросы задаются не профессионально и ТЗ не выкладывается. Поэтому смею продположить, что у автора есть RAS-соединение для выхода в интернет. Для остальных типов кто нибудь другой подскажет:)

---

DrPass   (2007-01-05 12:11:00) [6]

> antonn ©   (05.01.07 11:56) [7]

И чё? Вот, например, у меня на компе есть два RAS-соединения, и из них ни одно не ведет в Интернет. Зато есть PPPoE-соединение к провайдеру.
Сам по себе вопрос не имеет решения...

---

antonn   (2007-01-05 11:56:00) [7]

rolex   (05.01.07 0:46)
в инете поищи rasapi.pas (есть на http://www.torry.net/) и подключи его к проекту.

function HrasRASConnections(i:integer): integer;
const INTERNET_CONNECTION_MODEM = 1;
     MaxEntries = 100;
var
 BufSize: Integer;
 dwConnectionTypes:dword;
 NumEntries: Integer;
 Entries: array[1..MaxEntries] of TRasConn;
 State:TRasConnStatus;
begin
 result:=0;
 Entries[1].dwSize := SizeOf(TRasConn);
 Bufsize := SizeOf(TRasConn) * MaxEntries;
 RasEnumConnections(@Entries[1], BufSize, NumEntries);
 if (numentries>0) then begin
    result:= Entries[i].hrasconn;
 end;
end;

function CheckRASConnections: integer; //кол-во активных подключений
const INTERNET_CONNECTION_MODEM = 1;
 MaxEntries = 100;
var
 BufSize: Integer;
 dwConnectionTypes:dword;
 NumEntries: Integer;
 Entries: array[1..MaxEntries] of TRasConn;
 State:TRasConnStatus;
begin
 result:=0;
 Entries[1].dwSize := SizeOf(TRasConn);
 Bufsize := SizeOf(TRasConn) * MaxEntries;
 RasEnumConnections(@Entries[1], BufSize, NumEntries);
 result:=numentries;
end;

procedure Scan_New_Conn(St:Tstrings); //находим все подключения удаленного доступа
const
 MaxEntries = 100;
var
 BuffSize: Integer;
 Entries:integer;
 Entry : Array[1..MaxEntries] of TRasEntryName;
 Result_,i:integer;
begin
Entry[1].dwSize := SizeOf(TRasEntryName);
BuffSize := SizeOf(TRasEntryName) * MaxEntries;
Result_:=RasEnumEntries(nil, nil, @Entry[1], BuffSize, Entries);
if (Result_ = 0) and (Entries > 0) then
 begin
   for i:=1 to Entries do begin
    St.Add( Entry[i].szEntryName  );
   end;
end;
end;

для работы с каждым, для примера - ras.RasHangUp(HrasRASConnections(номер из списка));


---

Palladin   (2007-01-05 01:29:00) [8]

нет, ты разницу между "список соединений для Интернет" и "сетевые подключения" не чувствуешь чтоли???? нашелся, тут, блин, критик-цитатор...

телепатор вообще мне подсказывал что тебе список dialup подключений нужен был... однако-ж нет...

про tcp соединения уже сказали, а про dialup... наслаждайся
http://forum.sources.ru/index.php?showtopic=30572

---

Ученик чародея   (2007-01-05 01:28:00) [9]

Если открытых TCP соединений то
GetTcpTable
This function retrieves the TCP connection table.

Искать в MSDN группу
IP Helper Functions

---

Германн   (2007-01-05 01:14:00) [10]

> rolex   (05.01.07 01:08) [3]
>
> СЕТЕВЫЕ ПОДКЛЮЧЕНИЯ
> (надеюсь ценители русского языка оценят)

Люблю русский язык. Но не оценил, поскольку не понял, что нужно :(

---

rolex   (2007-01-05 01:08:00) [11]

СЕТЕВЫЕ ПОДКЛЮЧЕНИЯ
(надеюсь ценители русского языка оценят)

---

rolex   (2007-01-05 01:01:00) [12]

"Какой ты блин врубной в натуре!!! А мы тут со швабрами и с бутылками..." Гайдук - Растаманская Сказка - Про мышу. "И тебя нет, и меня нет.  И ничего в натуре вовсе нет. В прикались чувак. А есть лишь одно сплошное глобальное гонево с вспонтом где то шо-то есть. И все на него ведутся как первокласники!!!"
Гайдук - Растаманская Сказка - Про войну.

---

Palladin   (2007-01-05 00:49:00) [13]

соединений для Интернет не бывает, следовательно - никак

---

Наверх