Форум: "Система";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Внизпроблемы с 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 предназначены для работы с последовательными портами. Про паралельные порты в документации ничего не сказано.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c