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.