Работа с LPT.

[Levsha100]

Здравствуйте!!!
Возник вопрос, как управлять (на одних ножках устанавливать1, а на других 0) LPT портом (в XP). Нашел пару уроков, но в них используются DLL+Си, а хотелось бы в Delphi .

[Min]

Ну во-первых тебе нужна библиотека "inpout32.dll".
Засунь её в папку с "экзешником" программы.
Её найти в просторах интернета не составит труда.
Затем её функции нужно объявить явно...
Делается это так:

function Inp32(PortAdr:word):byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr:word; Data:byte): byte; stdcall; external 'inpout32.dll';

После этого можно использовать их в теле программы.
например команда Out32(888,255) пошлёт "лог. 1" на пины с 1 по 8, но тут уж думаю все ясно должно быть)))))
Только сначала поэксперементируй с разными портами и значениями, у меня бывали непредсказуемые результаты (например было такое што на одном компе 3 пин почему-то инвертировался)

[Levsha100]

БОООЛЬШОЕ СПАСИБО!!! Вы очень помогли.