[cyberexpert]

Здравствуйте, уважаемые дельфисты
Столкнулся с достаточно сложной проблемой: Как программно работать с внешними устройствами через Delphi?
Общая задача сводится к элементарному: необходимо программно зажечь лампочку, внешне подключенную любыми средствами непосредственно к компьютеру.
Поискав в интернете, ничего подходящего не нашел.
Буду признателен тем, кто поможет мне разобраться с этой проблемой.
Заранее спасибо! Жду ваших ответов

[AleD]

Сообщение от cyberexpert

Здравствуйте, уважаемые дельфисты
Столкнулся с достаточно сложной проблемой: Как программно работать с внешними устройствами через Delphi?
Общая задача сводится к элементарному: необходимо программно зажечь лампочку, внешне подключенную любыми средствами непосредственно к компьютеру.
Поискав в интернете, ничего подходящего не нашел.
Буду признателен тем, кто поможет мне разобраться с этой проблемой.
Заранее спасибо! Жду ваших ответов

вводную информацию пожалуйста, через что собираешься "зажигать"? COM аль LPT? когда определишься переходи к изучению функции CreateFile

[cyberexpert]

А можете поподробнее рассказать про CreateFile.
Думаю буду использовать com порт.
Просто я нигде не нашел ничего про CreateFile

[AleD]

Сообщение от cyberexpert

А можете поподробнее рассказать про CreateFile.
Думаю буду использовать com порт.
Просто я нигде не нашел ничего про CreateFile
http://yandex.ru/yandsearch?text=cre...94 &rstr=-194

если на Win32 работаешь, ищи не в каком то яндексе, а в MSDN, CreateFile function

[cyberexpert]

спс))
довольно исчерпывающая ссылка

[cyberexpert]

AleD, можете привести пример, как зажечь лампочку через COM??

[AleD]

Сообщение от cyberexpert

AleD, можете привести пример, как зажечь лампочку через COM??

только лишь программными средствами ты не сделаешь это, нужно в платах, диодах всяких разбираться, я в этом не шарю, то что по программной части то:

Код:

var
  port: Cardinal;
...
function Init(): Boolean;
begin
  port := CreateFile(‘COM1’, GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
  Result := port<>INVALID_HANDLE_VALUE;
end;

function SwitchLight(): Boolean;
var
  writed: Word;
begin
  Result := WriteFile(port, 1, 1, writed, nil);
  Result := Result and (writed=1);
end;

ну это дело прикрутить к кнопкам и должно работать

[cyberexpert]

В платах и диодах всяких я разбираюсь, так что проблем не должно быть!
огромное спасибо, AleD!
Очень мне помог!

[AleD]

Сообщение от cyberexpert

В платах и диодах всяких я разбираюсь, так что проблем не должно быть!
огромное спасибо, AleD!
Очень мне помог!

если действительно разбираешься, то отпишись здесь как ты эту задачу решил, по части электроники мне интересно, но не разбираюсь

[cyberexpert]

хорошо, отпишусь

[roamer]

Как вариант (использование LPT) - здесь есть инфа :

http://valery-us4leh.narod.ru/main.html
http://www.pcports.ru/articles/2.php
http://programmersclub.ru/lpt-delphi/

В частности:
"XP LPT - программа управления LPT портами OC Windows 9x/2000/XP + исходный код."
"Работа с LPT под Win 2000, XP: библиотека inpout32.dll"

[cyberexpert]

Сообщение от roamer

Как вариант (использование LPT) - здесь есть инфа :

http://valery-us4leh.narod.ru/main.html
http://www.pcports.ru/articles/2.php
http://programmersclub.ru/lpt-delphi/

В частности:
"XP LPT - программа управления LPT портами OC Windows 9x/2000/XP + исходный код."
"Работа с LPT под Win 2000, XP: библиотека inpout32.dll"

Подойдет как запасной вариант

[cyberexpert]

еще тут нашел материал
http://cxem.net/uprav/uprav14.php
есть такой компонент TCommPortDriver
но идет он только под Delphi 2

[cyberexpert]

с лампочкой я разобрался - удалось ей поморгать!
Но поморгать удалось ей только через lpt. в моем случае Lpt использовать
гораздо удобнее
все классно работает
я использовал библиотеку inpout32.dll - кому надо, тот может поискать в инете и скачать. там есть очень хорошие функции:
inp32 и out32
inp32 возвращает значение заданного регистра lpt порта
out32 записывает байт на заданный регистр порта
вообщем достаточно рациональное и оптимальное решение которое не требует никаких микросхем припаивать к lpt
можно напрямую подключить лампочку ко 2 разъему и 25 (земля) и смело юзать
out32(888, 1);
чтобы зажечь лампочку.
чтобы погасить лампочку юзаем: out32(888, 0);

[roamer]

А слаб'О действующий пример (вместе со всеми "причиндалами", подробным описанием и схемами) где-то выложить и ссылку сюда кинуть ?
А еще лучше - отдельную тему создать ???
Когда-то (еще по Win-95) делал ПО для замены телемеханики ТМ-322 (если не ошибаюсь) в контексте управления лифтами города (через LPT).
Но в Win-95 была возможность обращаться к портам явно.
С тех пор много чего изменилось.
За всем не успеть.
И такая инфа (конкретный опыт под WinXP, Win2000) была бы крайне интересна и полезна.