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

Вниз

Как получить список соединений для Интернет?   Найти похожие ветки 

 
rolex   (2007-01-05 00:46) [0]

Сабж


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

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


 
rolex   (2007-01-05 01:01) [2]

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


 
rolex   (2007-01-05 01:08) [3]

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


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


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

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


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

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

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


 
Palladin ©   (2007-01-05 01:29) [6]

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

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

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


 
antonn ©   (2007-01-05 11:56) [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(номер из списка));


 
DrPass ©   (2007-01-05 12:11) [8]


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

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


 
antonn ©   (2007-01-05 13:41) [9]

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


 
Anatoly Podgoretsky ©   (2007-01-05 13:44) [10]

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

Ты телепат.


 
antonn ©   (2007-01-05 14:13) [11]

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


 
Palladin ©   (2007-01-05 16:30) [12]


>  antonn ©

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


 
antonn ©   (2007-01-05 16:49) [13]

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



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

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

Наверх




Память: 0.49 MB
Время: 0.066 c
15-1167065363
oldman
2006-12-25 19:49
2007.01.21
Я вот, в школьные годы, всегда считал...


15-1167593474
Pazitron_Brain
2006-12-31 22:31
2007.01.21
С НоВыМ ГоДоМ!


2-1167414476
eXPell
2006-12-29 20:47
2007.01.21
Не могу понять почему так


15-1167746350
ProgRAMmer Dimonych
2007-01-02 16:59
2007.01.21
Смотрю на задачу, как баран на новые ворота...


15-1167820074
VolJinn
2007-01-03 13:27
2007.01.21
Интересная задачка