Управление пинами в LPT

[TESLEX]

Доброго времени суток. Подскажите пожалуйста как сделать чтобы можно было управлять независимо выходами в LPT порту. "написал" программу которая проверяет всего одну цифру 0 или 1 в 12 файлах config.01 - config.12 Задача стоит чтобы удалённо через браузер включать и выключать нагрузки. Сервер на Апаче. При нажатии кнопки записывается 0 или 1 в нужный файл. Электронная часть работает. С программной у меня проблема.

rocedure TForm1.Timer1Timer(Sender: TObject);
var
Port: word;
Data: Byte;
begin
Memo1.Lines.LoadFromFile('config.01 ');

if Memo1.Lines[0]='1' then Out32(888, 64);

if Memo1.Lines[0]='0' then Out32(888, 0);

end;

функция then Out32(888, 64); включает нужный мне пин вместо 64 (1 2 4 8 16 32 64 128) then Out32(888, 0) выключает все.

[raxp]

управлять независимо выходами в LPT порту

задача сводится к раздельному управлению битами:

function SetBit(AWord: word; ABit: byte; AState: integer): word;
begin
 if AState>0 then Result:= AWord or (1 shl ABit)
  else Result:= AWord and (not (1 shl ABit))
end;

p.s.: качаем Delphi-World, пользуемся справочником.

[TESLEX]

Я использую библиотеку inpout32.dll. Как через неё организовать управление. Светодиоды напаяные для теста к потру зажигаются раздельно. надо теперь их раздельное выключение. Весь мой опыт программирования сводится к этой проге. Если возможно направьте на путь истинный уже кучу всего перелопатил. сегодня до 5 утра просидел. Голова пухнет. Видно мелочь но натыкаюсь на одни и теже вилы.

[raxp]

Светодиоды напаяные для теста к потру зажигаются раздельно. надо теперь их раздельное выключение

вы читаете между строк? Тогда вам сюда

[TESLEX]

С битами разобрался. как теперь две команды связать с двумя равенствами.
if Pin2 = false then ButtonPin2; бит включен

if Pin2 = true then ButtonPin2; бит выключен

begin
Memo1.Lines.LoadFromFile('config.01 ');

if Memo1.Lines[0]='1' выполняется if Pin2 = false then ButtonPin2;

if Memo1.Lines[0]='0' выполняется if Pin2 = true then ButtonPin2;

end;

[TESLEX]

Кажется я сам нашёл решение своей проблемы

procedure TForm1.Timer1Timer(Sender: TObject);

begin
Memo1.Lines.LoadFromFile('config.01 ');

if Memo1.Lines[0]='1'= Pin2 = false then ButtonPin2;
if Memo1.Lines[0]='0'= Pin2 = true then ButtonPin2;

end;

и так далее для каждого пина. Тест 4 выходов показал что работает как мне и было нужно.