Главная страница
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.01 c
6-1244462643
Zheksonz
2009-06-08 16:04
2011.10.23
проверка на наличие компьютера в сети


3-1265184087
TN_TN
2010-02-03 11:01
2011.10.23
Delphi - Visual Foxpro


2-1309595561
FolderS
2011-07-02 12:32
2011.10.23
Indy Socket error #0 при post запросе


15-1308891761
ZeroDivide
2011-06-24 09:02
2011.10.23
50 цитат о программировании всех времён


2-1309633480
Koder
2011-07-02 23:04
2011.10.23
Не добавляется модуль