UDP Paket senden Snoop Komponente

[C0pa]

Delphi-Quellcode:

  if snoopIsTCPData(IPHdr, TCPHdr, nil, @TCPDataLen) then
  begin
    MyTCPHdr^.Seq := htonl(ntohl(TCPHdr^.Seq) + TCPDataLen);
  end else
  begin
    MyTCPHdr^.Seq := TCPHdr^.Seq;
  end;
  MyTCPHdr^.Ack := TCPHdr^.Ack;
  MyTCPHdr^.Off_Rsvd := $50;
  MyTCPHdr^.Rsvd_Flags := $04;
  MyTCPHdr^.Window := 0;
  MyTCPHdr^.UrgPoint := 0;

Und was mache ich damit?