Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.01.2014, 14:25
kondor-k9 kondor-k9 вне форума
Прохожий
 
Регистрация: 03.01.2014
Сообщения: 2
Версия Delphi: delphi 7
Репутация: 10
По умолчанию кто готов разрабоать прибор

Кто готов разработать прибор включения (выключения) компьютора через телефон
Ответить с цитированием
  #2  
Старый 03.01.2014, 14:30
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а через Wake-on-LAN не? я так свой через интернет (командой с телефона) включаю иногда.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 03.01.2014, 17:45
kondor-k9 kondor-k9 вне форума
Прохожий
 
Регистрация: 03.01.2014
Сообщения: 2
Версия Delphi: delphi 7
Репутация: 10
По умолчанию

вы хотите сказать если я нахожусь в удалении то спящий компьютор видит мой компьютор в режиме интернета?
Ответить с цитированием
  #4  
Старый 04.01.2014, 13:47
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Через диалап модем можно.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #5  
Старый 05.01.2014, 07:35
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от kondor-k9
кто готов разрабоать прибор...
Да всё уже давно и до нас :-)
Код:
uses IdUDPClient;
procedure SendMagicPacket(MACAddress: string);
 function  HexStrToBinStr(const HexStr: string): string;
  var
   i: integer;
  begin
   SetLength(Result, length(HexStr) div 2);
   for i := 1 to length(Result) do
    HexToBin(PChar(Copy(HexStr, (i-1) * 2 + 1, 2)), PChar(@Result[i]), 1);
  end;

var
 s, packet: string;
 i: integer;
begin
 packet:= HexStrToBinStr('FFFFFFFFFFFF');
 s:= HexStrToBinStr(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; // Drkb: 01364
Пример вызова
Код:
SendMagicPacket('010203040506');
Только проверьте настройки биоса адресата "волшебной посылки", Wake on LAN должен быть включен
Ответить с цитированием
  #6  
Старый 05.01.2014, 13:14
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

http://wakeonlan.ru/
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #7  
Старый 09.01.2014, 16:26
alanatolich alanatolich вне форума
Прохожий
 
Регистрация: 24.12.2013
Сообщения: 18
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию

Именно прибор, который будет включать/выключать (имитация нажатие кнопки) компьютер(настольный) по звонку или СМС.
Я готов помочь
Ответить с цитированием
  #8  
Старый 09.01.2014, 18:03
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Тут по большей части софтверники, а вам лучше бы обратиться к железячникам.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #9  
Старый 09.01.2014, 22:06
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Сообщение от alanatolich
Именно прибор, который будет включать/выключать (имитация нажатие кнопки) компьютер(настольный) по звонку или СМС.
У компа есть кнопка. Эта кнопка замыкает контакт. Висит она на проводках, к ней есть разъем.
Втыкаемся в этот разъем. Вешаем туда свою кнопку (чтобы было можно включать комп нормально) и какой-нибудь мультиплексор или даже реле. Покупаем какой-нить МК, покупаем GSM-модуль. Паяем всю эту байду и в МК пишем прошивку, которая периодически опрашивает GSM (или он сам прерывания кидает, фиг его знает) и если пришла SMS - выдирает ее. Там обычный UART, насколько я помню. Затем парсим текст SMS и в зависимости от текста меняем состояние компа, либо просто включив реле на пол секунды, либо подержав его 5 сек для хардового выключения. Детектор включено-выключено, думаю, можно сделать, снимая напряжение с какого-нибудь неюзаемого разъема, который врубается только при включенном компе. Например, c USB.

З.Ы. хардовое выключение, вроде бы, задается в ACPI таблицах, и вероятно может быть не включено (не уверен, не копал). Но все вменяемые оси его точно включают.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 09.01.2014 в 22:09.
Ответить с цитированием
  #10  
Старый 10.01.2014, 08:34
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Есть готовые блоки, в него только фирмваре залить свое, он умеет с ГСМ и ГПС работать, и еще куча функций. Стоит относительно не дорого. В охранных сигналках применяется. В универе прогали их, правда забыл как называются эти хрени.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:41.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025