Pakete senden

[Basilikum]

ich gehe nun einmal davon aus, dass Du die notwendige Import-Unit bereits hast.... danach wie folgt:

Delphi-Quellcode:

var
  Adapter : PAdapter;
  Packet : PPacket;
  Buffer : Pointer;
  Len : Word;
Begin
  Adapter:=..... // wirst Du bereits wissen wie, da Du bereits sniffen kannst

  Len:=364; // Grösse des zu senden Packets
  GetMem(Buffer,Len);
  Try
    // Buffer befüllen
    FillChar(Buffer^,6,$ff); // Destination-MAC = Broadcast
    // etc...

    Packet:=PacketAllocatePacket(); // WinPCap-API
    Try
      PacketInitPacket(Packet,Buffer,Len); // WinPCap-API

      If not PacketSendPacket(Adapter,Packet,True) Then raise Exception.Create('Send failed');
    Finally
      PacketFreePacket(Packet); // WinPCap-API
    end;
  Finally
    FreeMem(Buffer,Len);
  end;
end;