| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как програмно узнать что началось подключение к интернету? [D7, WinXP]
Начинаюший2 © (2005-01-06 18:14:00)Мне нужно отловить момент, когда какая прога или юзер запускает подключение к интернету, и если не выполняется условие, то блокировать. Я с этим не разу не сталкивался, может какие компаненты есть, или где можно прочитать по этой теме.
Начинаюший2 (2005-01-11 19:45:00) [1]>volser (07.01.05 17:59) [10]
....без английского никуда.
Знаю, да продлематично два языка сразу учить.
>antonn © (07.01.05 19:01) [11]
Ну вообщето, я был не раз на этом сайте, проблема не где лежат компаненты, а понять что ани делают.
>volser (07.01.05 19:25)[12]
За ссылку спасибо volser.
> Piter © (07.01.05 19:33) [13]
На этом сайте этот вопрос задается раз в неделю. Учитесь искать.
Ага, искать то мы могём, да только не всегда находится нужное, как в принципе с вашей ссылкой. Один базар, если не считать ссылку на другую ветку. Там хоть пример есть. Но всёравно спасибо, буду разбираться.
Я тут качнул за весь год архивы по форуму, нашол там один код проверки модема. Ривязал его к таймеру, так он выдаёт месаги и без подключения к нету. Хотел спросить какая месага должна выскачить при подключении, я чтото не разберусь. Если не трудно конечно.
procedure TForm1.Button1Click(Sender: TObject);
var
CommPort : string;
hCommFile : THandle;
ModemStat : DWord;
begin
CommPort := 'COM2';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_READ,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile = INVALID_HANDLE_VALUE then
begin
ShowMessage('Unable to open '+ CommPort);
exit;
end;
{Get the Modem Status}
if GetCommModemStatus(hCommFile, ModemStat) <>
false then begin
if ModemStat and MS_CTS_ON <> 0 then
ShowMessage('The CTS (clear-to-send) is on.');
if ModemStat and MS_DSR_ON <> 0 then
ShowMessage('The DSR (data-set-ready) is on.');
if ModemStat and MS_RING_ON <> 0then
ShowMessage('The ring indicator is on.');
if ModemStat and MS_RLSD_ON <> 0 then
ShowMessage('The RLSD (receive-line-signal-detect) is
on.');
end;
{Close the comm port}
CloseHandle(hCommFile);
end;
antonn (2005-01-08 17:48:00) [2]Только не спрашивай, чего с ним делать.
Piter (2005-01-07 19:33:00) [3]На этом сайте этот вопрос задается раз в неделю. Учитесь искать.
P.S. Я сегодня добрый - http://www.delphimaster.ru/cgi-bin/forum.pl?id=1103442781&n=4
volser (2005-01-07 19:25:00) [4]http://www.torry.net/vcl/comms/ras/alrasdyn.zip
antonn (2005-01-07 19:01:00) [5]
> Поискал и посмотрел, нечего не нашол, а с английским у меня
> проблема.
на torry в меню(в 2 полоски) ищеш VCL, жмешь, там справа появится поиск(Search), вводи alrasdyn.zip, и качай(14,5кб)
volser (2005-01-07 17:59:00) [6]Начинаюший2
RasHangUp
подробности смотри в msdn, без английского никуда.
Начинаюший2 (2005-01-07 17:30:00) [7]>antonn © (07.01.05 17:02) [8]
в яндексе или http://www.torry.net/
Поискал и посмотрел, нечего не нашол, а с английским у меня проблема. Может кто знает, где есть на родном русском есть.
antonn (2005-01-07 17:02:00) [8]
> Начинаюший2 (07.01.05 16:51) [7]
в яндексе или http://www.torry.net/
Начинаюший2 (2005-01-07 16:51:00) [9]>Kerk © (07.01.05 16:44) [5]
InetIsOffline
А как примерно прописать подскажеш?
>antonn © (07.01.05 16:44) [6]
2Начинаюший2
есть такая тема - RAS. Там и проверить соединение можно, и вырубить.
И где такая тема, в стандартной справке нет?
Kerk (2005-01-07 16:44:00) [10]
InetIsOffline
antonn (2005-01-07 16:44:00) [11]2Начинаюший2
есть такая тема - RAS. Там и проверить соединение можно, и вырубить.
Начинаюший2 (2005-01-07 16:40:00) [12]Ну что, не кто незнает, кинте хотябы ссылку какую по этой теме.
Начинаюший2 (2005-01-06 19:36:00) [13]Мда, похоже сегодня не лётный день, люююди есть кто живой.
Начинаюший2 (2005-01-06 18:50:00) [14]>VictorT © (06.01.05 18:36) [1]
Уже посмотрел там, как разорвать соединение есть, как узнать какое соединение. А мне надо узнать о попытке подключения на начальном этаре, пока соединение еще не установлено.
VictorT (2005-01-06 18:36:00) [15]тута кажись есть:
http://delphibase.endimus.com/
| |
