procedure TForm1.Button1Click(Sender: TObject);
var
SendCode:string;
TempStr:string;
i:integer;
FUDP: TIdUDPClient;
begin
SendCode:=StringofChar(#255,6); //FF*6
for i:=0 to 15 do
begin
TempStr:=TempStr //TempStr:=DestMAC*16
+string(char($50))
+string(char($34))
+string(char($55))
+string(char($49))
+string(char($34))
+string(char($de));
end;
SendCode:=SendCode+TempStr;
FUDP:=TIdUDPClient.Create(nil);
try
FUDP.Port:=7;
FUDP.Host:='10.10.10.2';
FUDP.Active:=True;
for I:=0 to 5 do
FUDP.Broadcast(SendCode,7);
finally
FUDP.Free;
end;
end;
为什么不能唤醒呢?