Forum: Netzwerke
Delphi
by C0pa,
2. Jun 2010
Ich verwende die TSnoop Komponente. Projekt dazu wurde glaube ich mittlerweile eingestellt.
procedure TForm1.SnoopUDP1CaptureUDP(Sender: TObject;
PacketHeader: PPCAP_PKTHDR; EthernetHeader: PETHERNET_HDR; IPHeader: PIP_HDR;
UDPHeader: PUDP_HDR);
begin
if ( isBanned(snoopIP2Str(IPHeader.Source)) ) then
// TODO - blockiere das Paket
end;
Forum: Netzwerke
Delphi
by C0pa,
31. Mai 2010
Danke für die schnelle Antwort!
Wie "werf" ich das jetzt weg bzw. blocke ich eine Antwort?