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

Вниз

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

 
Cryxalis   (2009-06-08 21:18) [0]

Добрый день господа програмёры. Проблема заключается в следующем: необходимо "исправить" сетевое подключение.
как в windows подключение -> "испрвить".
нижний вариант не предлагать:
ipconfig /release <имя сетевого подключения>


 
DVM ©   (2009-06-09 01:18) [1]


> ipconfig /release <имя сетевого подключения>

тогда:
netsh winsock reset  :)


 
Cryxalis   (2009-06-09 08:43) [2]

как брутально =)))
ну лан спс=)


 
Cryxalis   (2009-06-09 11:39) [3]

хотя погодь)) чёто IP не обновляется =)
тему следует перенести в раздел "железо" .
к сожалению я не правильно задал вопрос, и после некоторых исследований сделал вывод, что требуется через консоль windows или delphi отключить указаный девайс( сетевую карту) и через некоторое время включить его =).
Есть у кого какие идеи?


 
Cryxalis   (2009-06-09 13:58) [4]

Нашёл процедуру с использованием jedi-библиотеки.

procedure EnableNetDevice(aState:boolean;index:integer);
var
 NetPnPHandle:HDEVINFO;
 PCHP:TSPPropChangeParams;
 DeviceData:TSPDevInfoData;
begin
 NetPnPHandle:=SetupDiGetClassDevs(@GUID_DEVCLASS_NET, 0, 0, DIGCF_PRESENT);
 if NetPnPHandle=INVALID_HANDLE_VALUE then exit;
 DeviceData.cbSize:=sizeof(TSPDevInfoData);
 SetupDiEnumDeviceInfo(NetPnPHandle, index, DeviceData);
 PCHP.ClassInstallHeader.cbSize:=sizeof(TSPClassInstallHeader);
 if SetupDiSetClassInstallParams(NetPnPHandle,@DeviceData,@PCHP,sizeof(TSPPropChange Params)) then
begin
  PCHP.ClassInstallHeader.cbSize := sizeof(TSPClassInstallHeader);
  PCHP.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
  PCHP.Scope := DICS_FLAG_CONFIGSPECIFIC;
if aState then
  PCHP.StateChange := DICS_ENABLE
  else
  PCHP.StateChange := DICS_DISABLE;
SetupDiSetClassInstallParams(NetPnPHandle,@DeviceData,@PCHP,sizeof(TSPPropChange Params));
SetupDiCallClassInstaller(DIF_PROPERTYCHANGE,NetPnPHandle,@DeviceData);
 end;
 DeviceData.cbSize := sizeof(TSPDevInfoData);
 SetupDiDestroyDeviceInfoList(NetPnPHandle);
end;

Но при компиляции делфи выдаёт ошибку, что он хз чё такое  GUID_DEVCLASS_NET =(


 
Cryxalis   (2009-06-09 19:06) [5]

ыыы проблема решена.
http://forum.vingrad.ru/topic-72772.html



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

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

Наверх




Память: 0.47 MB
Время: 0.006 c
15-1309033794
Юрий
2011-06-26 00:29
2011.10.23
С днем рождения ! 26 июня 2011 воскресенье


2-1309848279
Criptonik
2011-07-05 10:44
2011.10.23
colorDialog


15-1309343563
RakDoll
2011-06-29 14:32
2011.10.23
Помогите сделать программу


15-1309369259
Dimka Maslov
2011-06-29 21:40
2011.10.23
Вот до чего техника дошла


2-1309771257
adigozelov
2011-07-04 13:20
2011.10.23
pecat