Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2017, 14:03   #1
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию Буфер сетевой карты

Добрый день форумчане!
Возможно ли получать данные буфера сетевой карты работая как с устройством через CreateFile, ReadFile и WriteFile, на пример так
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
sDevice: string;
hLAN: HWND;
begin
   sDevice:= '\Device\PCI#VEN_8086&DEV_4222&SUBSYS_10018086&REV_02\001CBFFFFF211D2700#{27D7D15B-6874-4026-B68F-D4D4AAB8CC59}';
    hLAN:= INVALID_HANDLE_VALUE;
    hLAN:= CreateFile(PChar(sDevice),FILE_SHARE_READ or FILE_SHARE_WRITE,0,nil,OPEN_EXISTING,0,0);
  if hLAN= INVALID_HANDLE_VALUE then
 hLAN:=CreateFile(PChar(sDevice),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
  if hLAN= INVALID_HANDLE_VALUE then
     hLAN:= CreateFile(PChar(sDevice),0,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
   if hLAN = INVALID_HANDLE_VALUE then
   begin
   showmessage(SysErrorMessage(GetLastError));
   exit;
  end;
end;
Ошибка системе не удается найти указанный путь, видимо строка с устройством неправильная, данные устройства я из реестра взял.


Если нет то есть ли другие способы без использования сниффера, сокетов и wpcap?

Последний раз редактировалось Aliens_wolfs; 29.10.2017 в 18:52.
Aliens_wolfs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
драйвер сетевой карты alex(21) Компьютерное железо 8 05.12.2013 08:00
Найти драйвера для сетевой карты Rebelition Компьютерное железо 2 28.08.2012 12:51
Как узнать МАС сетевой карты по IP ? meganom Работа с сетью в Delphi 1 20.09.2010 09:38
Переадресация данных из одной сетевой карты в другую Air Свободное общение 2 12.06.2010 20:33
Как програмно изменить основной IP адрес в настройках TCP/IP сетевой карты SeRhy Работа с сетью в Delphi 1 18.03.2009 05:52