Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 781

•  TDictionary Custom Sort  6 779

•  Fast Watermark Sources  6 565

•  3D Designer  9 514

•  Sik Screen Capture  6 900

•  Patch Maker  7 348

•  Айболит (remote control)  7 287

•  ListBox Drag & Drop  6 152

•  Доска для игры Реверси  98 045

•  Графические эффекты  7 463

•  Рисование по маске  6 761

•  Перетаскивание изображений  5 614

•  Canvas Drawing  5 993

•  Рисование Луны  5 785

•  Поворот изображения  5 235

•  Рисование стержней  3 834

•  Paint on Shape  2 993

•  Генератор кроссвордов  3 939

•  Головоломка Paletto  3 129

•  Теорема Монжа об окружностях  3 955

•  Пазл Numbrix  2 612

•  Заборы и коммивояжеры  3 416

•  Игра HIP  2 339

•  Игра Go (Го)  2 251

•  Симулятор лифта  2 650

•  Программа укладки плитки  2 219

•  Генератор лабиринта  2 766

•  Проверка числового ввода  2 375

•  HEX View  2 715

•  Физический маятник  2 401
 
скрыть

Реализация Wake для сети – Волшебный Пакет


Оформил: DeeCo

{ 
What's a Magic Packet? 
Was ist ein Magic Packet? 

DESTINATION SOURCE MISC. FF FF FF FF FF FF 11 22 33 44 55 66 11 22 33 44 
55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 
55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 
55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 55 66 11 22 33 44 
55 66 11 22 33 44 55 66 11 22 33 44 55 66 MISC. CRC. 

Note: Destination, Source, Misc and CRC are normally added by our Socket-Component 
Beachte: Destination, Source, Mis und CRC werden normalerweise von deiner 
Socket-Komponente hinzugefugt 
}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   Data, temp: string;
   k, n: integer;
 begin
   Data := '';
   for k := 0 to 5 do
   begin
     Data := Data + Chr(StrToInt('$FF'));  // 6x add a FF / 6x ein FF hinzufugen 
  end;
   temp := StringReplace(Edit1.Text, '-', '', [rfReplaceAll]);
   for k := 0 to 15 do
   begin
     temp := StringReplace(Edit1.Text, '-', '', [rfReplaceAll]);
     for n := 0 to 5 do
     begin
       // 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufugen 
      Data := Data + Chr(StrToInt('$' + temp[1] + temp[2]));
       Delete(temp, 1, 2);
     end;
   end;

      //Example with TIdUDPClient of Indy 
  //IdUDPClient1.Send('255.255.255.255', '80', Data);  // Send it / Verschick es 
end;