[Alegun]

Сообщение от kondor-k9

кто готов разрабоать прибор...

Да всё уже давно и до нас :-)

Код:

uses IdUDPClient;
procedure SendMagicPacket(MACAddress: string);
 function  HexStrToBinStr(const HexStr: string): string;
  var
   i: integer;
  begin
   SetLength(Result, length(HexStr) div 2);
   for i := 1 to length(Result) do
    HexToBin(PChar(Copy(HexStr, (i-1) * 2 + 1, 2)), PChar(@Result[i]), 1);
  end;

var
 s, packet: string;
 i: integer;
begin
 packet:= HexStrToBinStr('FFFFFFFFFFFF');
 s:= HexStrToBinStr(MACAddress);
 for i := 1 to 16 do packet:= packet + s;

 with TIdUDPClient.Create(nil) do
  try
   Active:= true;
   BroadcastEnabled:= true;
   Broadcast(packet, 9);
  finally
   Free;
  end;
 end; // Drkb: 01364

Пример вызова

Код:

SendMagicPacket('010203040506');

Только проверьте настройки биоса адресата "волшебной посылки", Wake on LAN должен быть включен