Ваяем сниффер собственными руками

Xakep, номер #034, стр. 034-075-4

{==Ну, полетела душа в рай... будем хапать==}

LogF:= TFileStream.Create(Edit1.Text,fmCreate oR fmOpenWrite);

Nado:= True; //Переменная надобности ;)

While Nado= TRUE do

begin

Application.ProcessMessages;

PacketReceivePacket(LPADAPTER(FhAdapter),

FpPacket, true, @Bytes);

if Bytes>0 then

LogF.Write(FuBuffer,Bytes);//запишем полученное

NumByt:= NumByt+Bytes;

Label2.Caption:= IntToStr (NumByt);

Application.ProcessMessages;

end;

LogF.Free; //Закроем логфайл

end;