проблемы с LPT

← →
Alexxov © (2002-10-25 13:41) [0]

Привет!
Пытаюсь работать с LPT портом через API. Не получается. Ошибки описаны ниже в тексте исходника. Что я делаю не так? Причем для COM портов этот исходник прокатывает на ура.
PS: на LPT будет не принтер.

Port: THandle;
CommProp: TCommProp;
CommConfig: TCommConfig;
TimeOuts: TCommTimeouts;

Port := CreateFile (
PChar("LPT1"), GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
TimeOuts.WriteTotalTimeoutMultiplier := 1000;
TimeOuts.WriteTotalTimeoutConstant := 1;
SetCommTimeouts (Port, TimeOuts);
// тут все ок, порт открывается, тайм-ауты устанавливаются

i := sizeof(CommConfig);
GetCommConfig (Port, CommConfig, i);
// возвращает TRUE, но размер полученной структуры
// CommConfig.dwSize=0
// и поля структуры тоже нулевые

GetCommProperties (Port, CommProp);
// возвращает TRUE, но размер полученной структуры
// CommProp.wPacketLength=0
// и поля структуры тоже нулевые

WriteFile (Port, Buffer, 2, NByte, nil);
// тут программа повисает до окончания тайм-аута,
// при возврате количество выданных байт Nbyte=0

CloseHandle (Port);
// тут все ок

← →
Александр Спелицин © (2002-10-25 14:49) [1]

GetCommProperties, GetCommConfig, SetCommTimeouts предназначены для работы с последовательными портами. Про паралельные порты в документации ничего не сказано.

проблемы с LPT Найти похожие ветки