Главная страница
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.007 c
1-1269027699
Aston
2010-03-19 22:41
2011.10.23
Компонент Label с поддержкой тэгов


15-1309267370
pavel_guzhanov
2011-06-28 17:22
2011.10.23
Размещу и я вакансию


1-1269772989
dmitry1208197320
2010-03-28 14:43
2011.10.23
Как организовать работу с картами типа google?


15-1309267589
SqlExp
2011-06-28 17:26
2011.10.23
Выбрать файлы за период.


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