Delphi dicas

Como ligar computador remotamente atraves da rede - wake on lan

Wol -

Wake On Lan (WOL) é uma tecnologia que permite remotamente ligar um computador ou reanimar o mesmo a partir de um estado de espera. Isso permite que o computador não precise de ninguém perto para ser ligado. Até pela Internet o mesmo pode ser feito.



WOL funciona enviando um dado (DATA or FRAME), ou pacotes, para a máquina cliente de um servidor, que está conectado remotamente na rede e tem um determinado software de rede instalado. A placa de rede do cliente recebe o FRAME de Wake UP e automaticamente liga o pc.

O pacote é gerado a partir do mac address da placa.

Obs: A placa de rede da maquina a ser ligada deve ter o recuso wol ativado ou na placa de rede ou na bios.



Voce deve fornecer a porta, macaddress e ip do host.

Exemplo.

lUDPClient.BroadcastEnabled := true;

lUDPClient.Host := '255.255.255.0';

lUDPClient.Port := 7;



Para a rede interna recomenda-se usar broadcast.



Use o mac address sem caracteres especiais.

Exemplo.

procedure TForm1.Button1Click(Sender: TObject);

begin

        wakeupcomputer(0034f4b3ea3d);

end;



Fiz testes e funcionou.



Duvidas fabiano.klein@gmail.comLi



///////// ======== /////////





uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, WinTypes, IdBaseComponent,

IdComponent, IdUDPBase, IdUDPClient, IdTCPConnection, IdTCPClient,

IdTCPServer, IdHTTPServer;





//////// ======= ///////////





Function HexToInt(S:String): LongInt;

const

DecDigits: Set Of '0'..'9' = ['0'..'9'];

HexVals: Array [0..$F] Of Integer = (0, 1, 2, 3, 4, 5, 6, 7,

8, 9, $A, $B, $C, $D, $E, $F);

UpCaseHexLetters: Set Of 'A'..'F' = ['A'..'F'];

LowCaseHexLetters: Set Of 'a'..'f' = ['a'..'f'];

var

v: LongInt;

i: integer;

LookUpIndex: integer;

begin

        if length(S) <= 8 then begin

                v := 0;

                for i := 1 to length(S) do begin

                        {$R-}

                        v := v Shl 4;

                        {$R+}

                        if S[i] in DecDigits then begin

                                LookUpIndex := Ord(S[i]) - Ord('0');

                        end

                        else begin

                                if S[i] in UpCaseHexLetters then begin

                                        LookUpIndex := Ord(S[i]) - Ord('A') + $A;

                                end

                                else begin

                                        if S[i] in LowCaseHexLetters then begin

                                                LookUpIndex := Ord(S[i]) - Ord('a') + $A;

                                        end

                                        else begin

                                                LookUpIndex := 0;

                                        end;

                                end;

                        end;

                        v := v Or HexVals[LookUpIndex];

                end;

                result := v;

        end

        else begin

                result := 0;

        end;

end;



procedure WakeUPComputer(aMacAddress: string);

var

i, j: Byte;

lBuffer: array[1..116] of Byte;

lUDPClient: TIDUDPClient;

begin

        try

        for i := 1 to 6 do begin

                lBuffer[i] := HexToInt(aMacAddress[(i * 2) - 1] +

                aMacAddress[i * 2]);

        end;

        lBuffer[7] := $00;

        lBuffer[8] := $74;

        lBuffer[9] := $FF;

        lBuffer[10] := $FF;

        lBuffer[11] := $FF;

        lBuffer[12] := $FF;

        lBuffer[13] := $FF;

        lBuffer[14] := $FF;

        for j := 1 to 16 do begin

                for i := 1 to 6 do begin

                        lBuffer[15 + (j - 1) * 6 + (i - 1)] := lBuffer[i];

                end;

        end;

        lBuffer[116] := $00;

        lBuffer[115] := $40;

        lBuffer[114] := $90;

        lBuffer[113] := $90;

        lBuffer[112] := $00;

        lBuffer[111] := $40;

        try

        lUDPClient := TIdUDPClient.Create(nil);

        lUDPClient.BroadcastEnabled := true;

        lUDPClient.Host := '255.255.255.0';

        lUDPClient.Port := 7;

        lUDPClient.SendBuffer(lBuffer, 116);

        finally

        lUDPClient.Free;

end;

except

on E: Exception do showmessage('Ocorreu um erro');

end;

end;



///////////////===========/////////////