Широковещательный Wake On LAN

[alekseiryzhakov]

Здрасти! Вот есть такая тема, как послать широковещательную команду на пробуждение? В общем есть около шести компьютеров соединённых между собой в локальную сеть. Хочу сделать следующее, когда включаю свой компьютер из авто запуска запускается программа которая посылает широковещательный сигнал на пробуждение остальных компьютеров. Набросал маленький код, но что-то не то...

{Wake On LAN}

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  WinTypes,
  Messages,
  SysUtils,
  Classes,
  IdBaseComponent,
  IdComponent,
  IdUDPBase,
  IdUDPClient;

function HexToInteger(HexValue: string): Integer;
begin
  Result := StrToInt('$' + HexValue);
end;

procedure WakeUPComputer(MacAddress: string);
var
  IByte, JByte: Byte;
  Buffer: array [1..116] of Byte;
  IdUDPClient: TIdUDPClient;
begin
  Writeln('   [Wake On LAN]   ');
  try
    for IByte := 1 to 6 do
    begin
      Buffer[IByte] := HexToInteger(MacAddress[(IByte * 2) - 1] + MacAddress[IByte * 2]);
    end;
    Buffer[7] := $00;
    Buffer[8] := $74;
    Buffer[9] := $FF;
    Buffer[10] := $FF;
    Buffer[11] := $FF;
    Buffer[12] := $FF;
    Buffer[13] := $FF;
    Buffer[14] := $FF;
    for JByte := 1 to 16 do
    begin
      for IByte := 1 to 6 do
      begin
        Buffer[15 + (JByte - 1) * 6 + (IByte - 1)] := Buffer[IByte];
      end;
    end;
    Buffer[116] := $00;
    Buffer[115] := $40;
    Buffer[114] := $90;
    Buffer[113] := $90;
    Buffer[112] := $00;
    Buffer[111] := $40;
    WriteLn('Create of UDPClient...');
    IdUDPClient := TIdUDPClient.Create(nil);
    try
      IdUDPClient.BroadcastEnabled := True;
      IdUDPClient.Host := '255.255.255.255';
      IdUDPClient.Port := 2050;
      IdUDPClient.SendBuffer(Buffer, 116);
      WriteLn('Trying to wake-up remote host: ' + MacAddress);
    finally
      IdUDPClient.Free;
    end;
  except
    on Problem: Exception do
    begin
      Windows.Beep(2000, 100);
      WriteLn('There was an error');
    end;
  end;
end;

begin
  if ParamCount > 0 then
  begin
    WakeUPComputer(ParamStr(1));
    Windows.Beep(1000, 100);
    WriteLn('Send');
  end
  else
  begin
    WriteLn('Press to any key');
    ReadLn;
  end;
end.

Что-то не то...

[insecticide]

http://ru.wikipedia.org/wiki/Wake-on-LAN -> Код на Delphi

[alekseiryzhakov]

Сообщение от insecticide

http://ru.wikipedia.org/wiki/Wake-on-LAN -> Код на Delphi

Блин! Если вы этого ещё не поняли, то выше представленный мною код и есть модификация предложенного вами!!!

[cluei2]

Сообщение от alekseiryzhakov

Здрасти! Вот есть такая тема, как послать широковещательную команду на пробуждение?
....
IdUDPClient.Host := '255.255.255.255';
....

Настолько широковещательный делать нельзя (роутеры обязаны рубить), и второе, смотри, какая маска твоей сети.
у меня не проходил запрос (indy, delphi) 192.168.9.255 при маске 255.255.0.0, зато прошел 192.168.255.255.

Может кому поможет.