unit1.pas

来自「delphi编写的远程开机软件」· PAS 代码 · 共 51 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, NMUDP;

type
  TForm1 = class(TForm)
    NMUDP1: TNMUDP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  vBuf:array[0..101] of char;
  i,j:integer;
begin
  //包的格式很简单，在以太网包的任何位置上，
  //以6个FF为先导，后面跟相应MAC地址重复16次即可：
  for i:=0 to 5 do vBuf:=char($FF);
  for i:=0 to 15 do
  begin
    j:=6+i*6;
    vBuf[j]  :=Char($00);
    vBuf[j+1]:=Char($13);
    vBuf[j+2]:=Char($D4);
    vBuf[j+3]:=Char($04);
    vBuf[j+4]:=Char($55);
    vBuf[j+5]:=Char($80);
  end;
  NMUDP1.RemoteHost:='192.168.1.255';
  NMUDP1.SendBuffer(vBuf,Length(vBuf));
end;


end.