Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проблемы с LPT [D3, Win95/98, Win2k, WinXP]

Alexxov © (2002-10-25 13:41:00)
Привет!
Пытаюсь работать с 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:00) [1]
GetCommProperties, GetCommConfig, SetCommTimeouts предназначены для работы с последовательными портами. Про паралельные порты в документации ничего не сказано.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »