| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WinPCap [D7]

efim ©   (2009-09-08 21:20:00) 

Как правильно в Delphi использовать функцию pcap_compile т.е. если можно небольшой пример

---

Сергей М.   (2009-09-10 08:19:00) [1]

type

bpf_insn = packed record
 code: Word;      
 jt: Byte;        
 jf: Byte;        
 k: Integer;              
end;

bpf_program = packed record
 bf_len: DWord;
 bf_insns: ^bpf_insn;  
end;
..
var
 fp: bpf_program;

---

efim   (2009-09-09 17:17:00) [2]

DLLHandle:=LoadLibrary('wpcap.dll');
if DLLHandle=0 then
exit;//Библиотека не загрузилась
@pln:=GetProcAddress(DLLHandle, 'pcap_lookupnet');
@comp:=GetProcAddress(DLLHandle, 'pcap_compile');
@pcf:=GetProcAddress(DLLHandle, 'pcapsetfilter');
if (@comp=nil)or(@pln=nil)or(@pcf=nil) then
exit;//Функция не найдена
//Здесь узнаем номер сети и маску
pln(pChar(AdapterName),netp,maskp,pChar(ebuff));
//получаем указ.
pp:=PCap_open_live(_monWinPCap.AdapterNameList[1],0,false,0,err_str);
//Компилируем строку в BPF_programm
//вот здесь у меня проблема я незнаю что такое
//структура BPF_programm, как ее описать (fp)
comp(pp,fp,'host 89.253.247.44',0,maskp);
//.........
FreeLibrary(DLLHandle);

---

Сергей М.   (2009-09-09 08:18:00) [3]

А как ее можно использовать неправильно ?
Приведи пример..

---

Наверх