Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];
ВнизКак получить список соединений для Интернет? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.045 c