Einzelnen Beitrag anzeigen

napsterxx

Registriert seit: 18. Mär 2007
Ort: Borland
556 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Sniffer zeichnet keine gesendeten Pakete auf

  Alt 9. Mai 2008, 15:16
Mit Wireshark funktioniert es tadellos.
Ich habe mir zudem nun die Snoop Komponenten installiert. Dachte es funktioniert so einfach:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
  Listbox1.Items.Text := SnoopUDPData1.AdapterDescriptions.Text;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  SnoopUDP1.AdapterIndex := Listbox1.ItemIndex;
  SnoopUDP1.Open;
end;

procedure TForm2.SnoopUDP1CaptureUDP(Sender: TObject;
  PacketHeader: PPCAP_PKTHDR; EthernetHeader: PETHERNET_HDR; IPHeader: PIP_HDR;
  UDPHeader: PUDP_HDR);
begin
  Memo1.Lines.Add('Zeichnet auf');
end;
Funktioniert leider auch nicht
Du derefernzierst p2 einmal und weißt die Adresse von i zu. Das heißt p2 (also der Zeiger auf einen Zeiger) zeigt auf den Zeiger p1 welchen du so auf i zeigen lässt.
  Mit Zitat antworten Zitat