roboforum.ru

Хватит тут оффтопик разводить. Дуины имеют право на существование и многим нравятся. Каждый делает как хочет и не надо тут выяснять кто как паять умеет.

Добавлено спустя 1 час 31 минуту 46 секунд:
По просьбам трудящихся: вот версия с выбором порта. В папке с программой создайте файл port.txt с единственной цифрой - номером порта. Без файла всегда будет выбран COM1.

Под Win 7 не работает, как это вылечить?

А как именно не работает? На что ругается? Я вроде все стандартные микрософтовские компоненты юзал. Может какого-то файла не хватает?

на 29 ой странице по поводу семёрки !!!!!!!!!!!!!!
скрин

У меня фаил зарегистрирован, но выдает что типа он не корректный.
Скачивал из разных мест , но ситуация не поменялась.
Может есть у кого нибудь проверенный на Win7 файлик?

Для ленивых выкладываю библиотеки. Их надо ложить в System32 или в папку с программой.
Все файлы из Win XP SP2. Про другие системы не знаю.

почему для ленивых, я MSC------ ложил =)уже везде, не помогало, и в режиме совместимости есестно тоже.
Спасибо, вечером попробую оставшиеся.

Курок, отпишись пажалста если получится (или нет), я терь с Семёрки ни куда.

У меня все файлы по умолчанию лежат в System32
Я их копировал с заменой , но ничего не изменилось
Повторная регистрация выдает ошибку


Но как я понимаю что это к программе отношения ни какого не имеет

Добавлено спустя 27 минут 56 секунд:
Удалил в реестре ключь с регистрацией и успешно зарегистрировал по новой

Но программа все равно вылетает с той же ошибкой.
Проверил реестр там все правильно прописано, возможно все же файлик OCX не подходит к семерке.

есть подозрение, что у тебя 64я винда. если да, то перепиши этот ocx в папку sysWOW64, должно помочь.
перед этим правда возможно нужно будет снести регистрацию, скопировать в sysWOW64 и там уже регистрировать. но не уверен, может и просто переписать поможет

Добавлено спустя 8 минут 52 секунды:
SysWOW64 это 32-х битная папка эмулятора с забавным названием "Windows On Windows 64". название папки System32 оставили ради совместимости и там большая часть файлов таки не 32х разрядные

У меня обычная 32 битная Винда и проц тоже 32 битный

тогда явно для MSCOMM32 или каких библиотек нехватает или настройки какие влияют. тут уже гуглить нужно и пробовать, пробовать, пробовать.

-= Александр =- писал(а):Формула есть в исходниках проги верхнего уровня. Я ее уже не помню...
Кто что тут выкладывал кроме меня - не знаю, спрашивай у авторов.
Частота работы МК никак не влияет на быстроту обработки. Чтобы ускорить реакцию - уменьшайте количество точек.

Кстати, а где можно светодиоды 0505 россыпью купить? А то на лентах жаба душит...

http://www.aleds.ru/index.php?option=co ... &Itemid=65
я про этот сайт писал и у них же покупал... прослали достаточно быстро всего 8 дней

Настроил Boblight, все отлично работает. Но столкнулся с проблемой что при выходе из сна в Win 7 софтина повисает , да так что даже из диспетчера задач ее не убить.
Пришлось написать вспомогательную программку которая запускает Boblight и GetPixel и прячет их в системный трей,
при переходе в сон програмка выгружает Boblight и GetPixel , ну и при выходе из сна опять запускает и прячет в трей.
Проверил у меня работает, если кому интересно , могу выложить.

Вопрос к -= Александр =- если не секрет каким способом получаешь и усредняешь экранные пиксели?
Хочу попробовать свою програмку написать.

Пиксели получаю через эту:
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Но она медленная, надо это как-то через DirectX делать, но я не умею.

Да действительно функция очень медленная, scanline побыстрей будет.
А что если попробовать PrintScreen

Код: Выделить всё

функция делает копию изображения экрана и сохраняет её в буфере обмена (Clipboard).
procedure SendScreenImageToClipboard;
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      GetDC(GetDesktopWindow), 0, 0, SRCCopy);
    Clipboard.Assign(bmp);
  finally
    bmp.Free;
  end;
end;