Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Вниз

Как програмно отключить соединение с сетью.   Найти похожие ветки 

← →
Beginner   (2002-03-21 18:30) [0]

Как програмно отключить соединение с сетью или точнее модем.

---

← →
Набережных С.   (2002-03-21 20:49) [1]


uses
windows;

procedure CloseConnections;

implementation

const
RAS_MaxDeviceType = 16;
RAS_MaxEntryName = 256;
RAS_MaxDeviceName = 128;
RASAPI = "rasapi32.dll";
type
THRasConn = Longint;
TRasConnState = Integer;

LPRasConn = ^TRasConn;
TRasConn = record
dwSize : Longint;
hrasconn : THRasConn;
szEntryName : Array[0..RAS_MaxEntryName] of AnsiChar;
szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
end;

TRasConnStatus = record
dwSize : Longint;
rasconnstate : TRasConnState;
dwError : LongInt;
szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
end;

function RasGetConnectStatus(hConn: THRasConn; var lpStatus: TRasConnStatus): Longint; stdcall;
external RASAPI name "RasGetConnectStatusA";

function RasEnumConnections(RasConnArray: LPRasConn; var lpcb: Longint; var lpcConnections: Longint): Longint; stdcall;
external RASAPI name "RasEnumConnectionsA";

function RasHangUp(hConn: THRasConn): Longint; stdcall;
external RASAPI name "RasHangUpA";

procedure CloseConnections;
var
Buf: array[0..15] of TRasConn;
n,aConn,aSize:integer;
St:TRasConnStatus;
begin
aSize:= SizeOf(Buf);
FillChar(Buf,aSize,0);
Buf[0].dwSize:=SizeOf(TRasConn);
n:=RasEnumConnections(@Buf[0],aSize,aConn);
if(n = 0)and(aConn > 0)then
while aConn > 0 do
begin
Dec(aConn);
RasHangUp(Buf[aConn].hrasconn);
while RasGetConnectStatus(Buf[aConn].hrasconn ,St) = 0 do
Sleep(0);
end;
end;

end.

На "Королевстве" есть статья "RasAPI для непродвинутых" или типа того.

---

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

Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c