WinIO

← →
Vlad25 © (2004-03-04 17:46) [0]

Уважаемые Мастера! Кто знает, как программировать LPT порт посредством WinIO.dll под XP? Подкиньте пример, плиз!

← →
pavel_guzhanov © (2004-03-10 16:04) [1]

в WinIO есть и исходники и готовые dll, vxd и sys. Исходники на
с++. dll, vxd и sys файлы клади в директорию к своей программе В исходниках есть заголовочный файл WinIO.h. Его надо конвертировать в WinIO.pas вручную или при помощи HeadConv (Правда его надо потом подредактировать вручную).
В WinIO есть и help по использованию. А в общем делай так:

Глобальная переменная
var idWinIO:Boolean;
При загрузке формы:
// Запуск InitializeWinIo для инициализации библиотеки WinIo
idWinIO:=InitializeWinIo; //Делается один раз в начале программы
if not idWinIO then
ShowMessage("Не установлен WinIO")
else
SetPortVal($378, 3, 1); //"1" на D0 и D1 выход. или
//сделать SetPortVal($378,0,1) - нули на все ноги порта

далее в программе:
if idWinIO then
begin
SetPortVal($378, 2, 1); //"1" на D1 выход "0" на D0 выход
// или SetPortVal($378, 1, 1); //"0" на D1 выход "1" на D0 выход
Sleep(2000);
SetPortVal($378, 0, 1); //"0" на все выходы
end;

И в конце программы:
if idWinIO then
begin
SetPortVal($378, 0,1);// нули на все выходы
ShutdownWinIo;//Выгрузка один раз в конце программы
end;
Второй параметр SetPortVal - это то, что пишется в порт, в двоичном виде.

WinIO Найти похожие ветки