Работа с LPT-портом

[Karp_13]

Если что прошу прощения, опять врываюсь в панике и могу наследить не там где нуно.... но вообщем вот:

Передо мной стоит задача - написать на Делфях дрова для девайса, подключённого к компу через LPT-порт.
На данный момент я не знаю особенностей девайса и вообще как писать дрова на Делфях, и вообще как писать дрова О_о ...
Всё что мне сказали в двух словах - цель: перекидываться с девайсом байтами - т.е. считывать и посылать переменные типа 01110011 ... Впихнули в лапы пример этих дров, но написанных на Сишке... В Сишке я не бум-бум(знаю тока строение прог и как вводить и выводить переменные... и то точно не помню...)... Заметил только, что в этих дровах активно используется команда сетбайт и гетбайт ... Разбираться буду на этих выходных...

Ну и в общем, прошу помощи:
Киньте ссылку на хороший мануал по написанию дров на делфи для LPT-портов. Расскажите(если это можно рассказать в двух-трёх-пяти словах) как можно осуществить перекидывание байтами с LPT-портом. Ответьте - есть ли какой нибудь конвентер/перекодировщик из Сишки в Делфю и поможет ли он мне в моей проблеме...
И скажите что это просто... так, для моего самоуспокоения))))

PS: Ыть, увидел внизу тему сноски на похожие темы)))) Не ругайтесь, щас их тоже почитаю)))

[Пепел Феникса]

если написать приложение которое будет взаимодействовать с портом то реально на Делфи...драйвер нет.

[DeKot]

Для работы в Дельфи с LPT - портом удобно использовать готовую СИ -шную библиотеку inpout32.dll. Используются функции :

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

Inp32 - читает число (тип - байт) с порта, Out32 - записывает такое же число в порт.
О портах LPT ($378,$379,$37A) почитайте в сети (есть ссылки в темах внизу).
Для работы побайтово, я написал функцию перевода десятичного числа в бинарное:

TMas = Array[0..7]of byte;

// ********** преобразование числа (десятичный код) в бинарный  массив ****
function Dec_Bin(N_dec: integer): TMas;
var i: byte;
    weight: byte;  // "вес" разряда
    mas_bit: TMas;
begin
  weight:= 128;
  for i:= 7 downto 0 do
  begin
    mas_bit[i]:= N_dec div weight;
    if mas_bit[i] = 1 then N_dec:= N_dec - weight;
    weight:= weight div 2;
  end;
  Result:= mas_bit;
end;

Функция возвращает массив битов байта числа N_dec.
В общем виде чтение конкретного [i] бита порта следующее:
Dec_Bin(inp32($378))[i]
Для отправки через порт конкретного бита ( например 3-го) записываем в порт соответствующее десятичное число - 8 ( b00001000).Если следующим надо изменить 5-й бит, не меняя предыдущее состояние остальных битов, то , соответственно, записываем 40 (b00101000).
И т.п.
Важно отметить, что состояния уровней в портах не совсем соответствует двоичному коду, так как некоторые биты используются с инверсией.Так, например, коду b01111000 (dec 120) в $379 соответствуют уровни напряжения на выходе порта - 1,1,1,1,1,(0,0,0 -три последних физически отсутствуют). Это обязательно надо учитывать.

[raxp]

Для работы в Дельфи с LPT - портом также удобно использовать готовый драйвер - giveosys.sys/
достаточно инициализировать его запуск из своего проекта и в nt можно обращаться напрямую к портам...

модуль и драйвер (в pas):

[Karp_13]

Гыг, громадный сенкс за помощь, на выходных буду копаться =))))

А пока отходя от темы и принимая во внимание сообщение ПФеникса:
А что, с написанием дров для разнообразных девайсов на Делфях действительно всё так плохо? Или просто(как многократно слышу отовсюду) дело в том, что для Делфей мало исходников в сети(и отсюда больше мороки)?
Кто может мне мини лекцию прочитать(опять же в двух-трёх-пяти словах) с ответом на этот самый вопрос "почему?"? -_- ))
*что переходить на Си нуно - это я и так знаю... но просто лень пока, недостаток времени мешает и (быть может из-за первых двух пунктов) интересно ещё в Делфях покопаться немного)))*

[raxp]

в двух-трёх-пяти словах

просто ddk на delphi очень мало переведено, в основном все на си... а так способы есть, просто мало кто знает, да и смысла особого нет

[Karp_13]

Ага, получилось. Научился(через библиотеку inpout32.dll) управлять портом 378 - пинами со 2-го по 9-ый - вставленные в них диоды гаснут и загораются по моей воле.)))

Так, теперь можно небольшое уточнение(каша в голове):
Адрес 378(пины 2-9) используется для чтения и передачи данных;
Адрес 379(пины 10-13,15) - только приём данных с внешнего устройства;
Адрес 37А(пины 1,14,16-17) - только передача данных на внешнее устройство;

Адрес 378, как выше и писал, я победил - понял как обращаться к определённому пину. Но чёрт, никак не пойму как быть с 379 и 37А - как обратиться к определённому пину из этих адресов(в чём там логика)? О_о ...

[raxp]

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

function getbit(data,num:byte): boolean;
 begin
  result:= data and num = num
 end;

- а распределение там следующее (все это есть в raport.pas)

const BA = $378; //базовый адрес LPT
BR = BA+1; //регистр контроля
BU = BA+2; //регистр управления $37A
{
PIN сигнал I/O BIT
2 D0 O 0 (BA)
3 D1 O 1 (BA)
4 D2 O 2 (BA)
5 D3 O 3 (BA)
6 D4 O 4 (BA)
7 D5 O 5 (BA)
8 D6 O 6 (BA)
9 D7 O 7 (BA)

1 strobe O 0 (BA+1) INV
14 auto fd O 1 (BA+1) INV
16 init O 2 (BA+1)
17 slct in O 3 (BA+1) INV

15 error I 3 (BA+2)
13 slct I 4 (BA+2)
12 pe I 5 (BA+2)
10 ack I 6 (BA+2)
11 busy I 7 (BA+2) INV

18..25 земля -
}

- например вам нужен ACK (6 бит), т.е читаете $37A и выделяем 6 через
getbit(data,6)

[Karp_13]

*Чёрт, сижу с градусником под мышкой и пачкой цитрамона в обнимку... так что если что не кидайте тапками)))*

raxp, как я понял, чтобы разобраться в твоём сообщении, нужно разобраться с содержимым файла raport.pas. Ладно, займусь, но завтра(как полегчает)...)))
А пока, просто задам два-три вновь всплывших у меня вопроса:

1. Что касается портов 379 и 37А - на первый положено 5 бит(по числу пинов), на второй 4 бита. Я хочу послать, допустим, в адрес 37А число в десятеричной системе исчисления и чтобы в этом адресе(если что, извиняйте за корявую терминологию) в итоге была картина типа '0100' - т.е. "зажечь" 16-ый пин. И вот теперь, чъорт, я туплю - какое это должно быть число? Не могу определить зависимость между этими самыми числами в десятеричной системе исчисления и тем что получается на порту. К примеру, что касается порта 378 - там всё понятно - хотим зажечь 9-ый пин - кидаем в порт число 128 - 128 ведь кок раз в двоичной системе выглядит как '10000000' - 9-ый пин "зажигается". Но что делать с адресами 379 и 37А не врублюсь...
В программе 3D Hard Analyzer видимо(т.е. наверняка) есть функция этого самого перевода - но я щас не в состоянии перекапывать ради неё весь код той программы %((
Может кто так подскажет?

2. Как понял, у ЛПТ порта есть так называемые режимы работы. О_о И как понял, зависят они от ноликов и единичек на пинах по адресу 37А. (к примеру, пин 1 везде подписывают как Data Strobe ...)
Не нашёл мануала, подробно повествующего об этом. Может кто сможет что нибудь подобное посоветовать? О_о
(ps: нашёл вот такую ссылку http://citforum.univ.kiev.ua/operati...dows/parp_win/ - там много всего непонятного написанно... завтра буду разгребать... вроде что-то похожее там есть...)

3. Производственный процесс показал, что мне следует сменить библиотеку inpout32.dll на WinIO.dll.
И вот не могу найти приличного мануала(или хотя бы списка команд) для этой(WinIO.dll) библиотеки. Может кто нибудь что нибудь посоветовать?

ps: Кстать, DeKot, спасибо за функцию - помогла)))

[DeKot]

Как понял, у ЛПТ порта есть так называемые режимы работы.

Все режимы обеспечиваются программно.Порт LPT в основном был разработан для работы с принтерами (отсюда и специфические названия выводов/вводов портов).Если запущен какой либо драйвер работы с принтером, тогда состояния порта $379 влияет на состояния портов вывода $378, $37A.В обычном состоянии компьютера порты вывода могут иметь любые случайные значения, а порт $379 (status) имеет уровни
1 1 1 1 1 или код bin 0 1 1 1 1 (dec 120).
Коды и состояния портов смотри на рисунке ( для $379 часть из 32 возможных состояний).

Для управления портом $379 следует подавать нулевой уровень (желательно через сопротивление 430 - 510 Ом) на контакты порта.