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

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

Как програмно отключить текущее соединение с интернетом?? [D5, D7, Win95/98, WinXP]

WebSQLNeeder ©   (2006-01-15 18:53:00) 

Как програмно отключить текущее соединение с интернетом?? Или даже если соединений несколько то отключить определенное?

---

Evereve   (2006-05-03 18:42:00) [1]

прикол в том, что к компу инет подходит по локалке. Может, просто заблокировать порт №80?

---

WebSQLNeeder   (2006-01-24 14:02:00) [2]

..

---

WebSQLNeeder   (2006-01-19 17:04:00) [3]

Что то у меня ничего не получается :( Может у меня модуль Ras.pas другой? У меня он весит всего 14к.

Можете мне прислать на мыло websqlneeder@mail.ru этот модуль + пример программы, который использует его для отключения всех соединений.

Буду очень признателен.

---

$hade   (2006-01-19 06:23:00) [4]

function TRASDialer.HangUpAll : Integer;
var
   BufSize                     : Integer;
   NumEntries                  : Integer;
   X                           : Integer;
   Entries                     : Array[1..MaxEntries] of TRasConn;
   Stat                        : TRasConnStatus;
   S                           : String;
begin
 Result:=SUCCESS;

 Entries[1].dwSize := SizeOf(TRasConn);
 Bufsize:=SizeOf(TRasConn)*MaxEntries;
 FillChar(Stat, Sizeof(TRasConnStatus), 0);
 Stat.dwSize:=Sizeof(TRasConnStatus);

 
 if RasEnumConnections(@Entries[1], BufSize, NumEntries)=0 then
 begin
   if NumEntries > 0 then

   for X:=1 to NumEntries do
   begin
     RasGetConnectStatus(Entries[X].HRasConn, Stat);
     if stat = RASCS_CONNECTED then
         RasHangUp(Entries[X].HRasConn)
   end;
 end else Result:=ERROR;
end;


этот код отключает все соединения...немного подумав можно реализовать и отключение определенного соединения...)

---

WebSQLNeeder   (2006-01-19 01:40:00) [5]

Все, уже нашел этот модуль, но теперь не могу понять как сделать что бы оно работало. Вот сделал такой код но ничего не происходит

procedure TForm1.Button1Click(Sender: TObject);
var rr:LPRASConn;
m:TRASConnStatusA;
a,b:integer;
hc:integer;
begin
RasEnumConnections(rr,a,hc);
RasGetConnectStatus(hc,m);
RasHangUp(hc);
end;

Может кто то привести реальный пример как отключить соединение?

---

WebSQLNeeder   (2006-01-19 01:25:00) [6]

Не могу найти откуда можно скачать юнит RAS ??

---

PAVIA   (2006-01-18 19:57:00) [7]

uses RAS; -модуль скачаешь из интернета.

RasEnumConnections - получаем список сойдинений
RasGetConnectStatus - определяем статус подключен или не подключон
RasHangUp - отключаем сойдинение

---

NTFS   (2006-01-18 19:37:00) [8]

Что то там про отключение соединения с интернетом ничего не сказано. Там много сетевіх функций, но про соединение ...

---

DSKalugin   (2006-01-18 13:00:00) [9]

http://www.delphimaster.ru/articles/netmon/index.html

---

NTFS   (2006-01-18 00:40:00) [10]

Хмм

---

Наверх