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;