Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Сеть \ Реализация Wake для сети – Волшебный Пакет

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

{ 
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;

Название: Реализация Wake для сети – Волшебный Пакет
Дата публикации: 2004-09-08 (2751 Прочтено)

 
 

 

Page generation 0.023 seconds