Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Разбудить компьютер по сети, Использование Bios Wake-on-Lan

Delphi , Интернет и Сети , Сеть

Разбудить компьютер по сети, Использование Bios Wake-on-Lan

Code:

{$APPTYPE CONSOLE}
 
uses
SysUtils,
Classes,
IdBaseComponent,
IdComponent,
IdUDPBase,
IdUDPClient;
 
function HexStringToBinString(const HexStr: string): string;
var
i, l: integer;
begin
Result := '';
l := length(HexStr);
l := l div 2;
SetLength(Result, l);
for i := 1 to l do
   if HexToBin(PChar(Copy(HexStr, (i - 1) * 2 + 1, 2)),
     PChar(@Result[i]), 1) = 0 then
     raise Exception.Create('Invalid hex value');
end;
 
procedure SendMagicPacket(MACAddress: string);
var
s, packet: string;
i: integer;
begin
if Length(MACAddress) <> 12 then
   raise Exception.CreateFmt('Invalid MAC Address: %s', [MACAddress]);
packet := HexStringToBinString('FFFFFFFFFFFF');
s := HexStringToBinString(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;
 
begin
if ParamCount <> 1 then
   WriteLn('usage: WakeOnLan MACAddress' + #10 + #13 + 'exmple: WakeOnLan 000102030405')
else
   SendMagicPacket(ParamStr(1));
end.

Автор: Song

Взято из http://forum.sources.ru

Статья Разбудить компьютер по сети, Использование Bios Wake-on-Lan раздела Интернет и Сети Сеть может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Сеть ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 02:11:33/0.00097107887268066/0