Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 29.10.2017, 15:03   #1
Aliens_wolfs
Участник клуба
 
Регистрация: 16.12.2009
Адрес: WWW ЛЕНИНГРАД СПб точка РУ
Сообщений: 843
Репутация: 435
По умолчанию Буфер сетевой карты

Добрый день форумчане!
Возможно ли получать данные буфера сетевой карты работая как с устройством через 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 в 19:52.
Aliens_wolfs вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
драйвер сетевой карты 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 06:52


01:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru