sniffer no delphi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Zniffer, ExtCtrls;

type
TForm1 = class(TForm)
  Panel1: TPanel;
  Button1: TButton;
  ComboBox1: TComboBox;
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure ComboBox1Change(Sender: TObject);
private
  { Private declarations }
  FZniffer : TZniffer;
  procedure ReadPacket(Data:pointer;recvbytes:Word);
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Fzniffer := TZniffer.create;
Fzniffer.OnPacket := ReadPacket;
Combobox1.Items.assign(Fzniffer.Adapters);
Combobox1.text:=´< SELECT ADAPTER >´;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var E:string;
begin
if Fzniffer.Snooping then
  if not Fzniffer.Deactivate(E) then  raise Exception.create(e);
Fzniffer.AdapterIndex := COmbobox1.ItemIndex;
if not Fzniffer.Activate(e) then raise Exception.create(e);
end;

procedure TForm1.ReadPacket(Data: pointer; recvbytes: Word);
begin
memo1.Lines.add(´Packet snooped. Bytes: ´+inttostr(recvbytes) );
end;

end.