マジックパケットで遠隔PCを起動(Wake On Lan) ～Delphiソースコード集

• ホーム
• Delphiでお手軽プログラミング
• マジックパケットで遠隔PCを起動(Wake On Lan) ～Delphiソースコード集

マジックパケットで遠隔PCを起動(Wake On Lan) ～Delphiソースコード集

Delphiを起動してプロジェクトを作成し、オブジェクトを配置し、プロパティを設定する

プログラミング

・・・
implementation

{$R *.dfm}

uses IdGlobal

procedure TForm1.Button1Click(Sender: TObject);
var b:TIdBytes;
    i:integer;
    st:String;
    ar:TArray;
begin

  st:=E_Mac.Text;
  ar:=st.Split([':']);
  if Length(ar)<>6 then exit;

  setLength(b,6*17);
  for i := 0 to 5 do b[i]:=$FF;
  for i := 1 to 16 do
  begin
    b[i*6+0]:=StrToIntDef('$'+ar[0],0);
    b[i*6+1]:=StrToIntDef('$'+ar[1],0);
    b[i*6+2]:=StrToIntDef('$'+ar[2],0);
    b[i*6+3]:=StrToIntDef('$'+ar[3],0);
    b[i*6+4]:=StrToIntDef('$'+ar[4],0);
    b[i*6+5]:=StrToIntDef('$'+ar[5],0);
  end;
  IdUDPClient1.BroadcastEnabled:=True;
  IdUDPClient1.Host:=E_BroadcastIP.Text;
  IdUDPClient1.SendBuffer(b);
  showmessage('PC起動のWOLパケットを送信しました。しばらく待つと起動します。');
end;

end.

実行ボタンを押す

解説