D-Link DSL-G684T Manual do Utilizador descarregar pdf (Página 99)

wait(3000);

application.MessageBox('Servo information turned

off','OK', MB_OK);

IdTelnet1.IOHandler.WriteLn('ph=off');

wait(3000);

application.MessageBox('Auto photo turned off','OK',

MB_OK);

end;

procedure Tform1.wait(ms: integer);

var

bt: DWORD;

begin

bt := GetTickCount;

while (GetTickCount - bt) < ms do

Application.ProcessMessages;

end;

function TForm1.HexToBin(Hexadecimal: string): string;

const

BCD: array [0..15] of string =

('0000', '0001', '0010', '0011', '0100', '0101', '0110',

'0111',

'1000', '1001', '1010', '1011', '1100', '1101', '1110',

'1111');

var

i: integer;

begin

for i := Length(Hexadecimal) downto 1 do

Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;

end;

function TForm1.BinToInt(Value: String): LongInt;

1 2 ... 94 95 96 97 98 99 100 101 102 103 104 ... 117 118

Sem comentários

D-Link DSL-G684T Manual do Utilizador Página 99