Работа с устройством связи на winAPI в delphi.

Открывает устройство связи. Устройство инициализируется со стандартной конфигурацией, и для него организуются очереди приема и передачи.

function OpenComm(ComName: PChar; InQueue, OutQueue: Word): Integer;
Параметры:
ComName: Строка, содержащая 'COMn' или 'LPTn', где n - целое.
InQueue: Размер очереди приема; для портов LPT игнорируется.
OutQueue: Размер очереди передачи; для портов LPT игнорируется.
Возвращаемое значение: Описатель устройства связи в случае успешного завершения; отрицательное значение в случае неудачи; один из флагов ie_BaudRate, ie_ByteSize, ie_Default, ie_Hardware, ie_Memory, ie_NOpen, ie_Open.

Помещает AChar обратно в очередь на прием устройства связи.

function UngetCommChar(Cid: Integer; AChar: Char): Integer;
Параметры:
Cid: Устройство связи.
AChar: Принимаемый символ.
Возвращаемое значение: Нуль в случае успешного завершения; отрицательное число вследствие того, что еще не передан предыдущий символ.

Выполняет на устройстве связи расширенную функцию, указанную параметром Func.

function EscapeCommFunction(Cid, Func: Integer): Integer;
Параметры:
Cid: Устройство связи.
Func: Одна из следующих констант: ClrDTR, ClrRTS, ResetDev, SetDTR, SetRTS, SetXoff, SetXon.
Возвращаемое значение: Нуль в случае успешного завершения; отрицательное число, если указан неверный код функции.

Очищает очередь приема или передачи устройства связи.

function FlushComm(Cid, Queue: Integer): Integer;
Параметры:
Cid: Очищаемое устройство связи.
Queue: 0 - если очищается очередь передачи; 1 - если очищается очередь приема.
Возвращаемое значение: Нуль в случае успешного завершения; 0 - противном случае.

Сбрасывает ошибку устройства связи.

function GetCommError(Cid: Integer; var Stat: TComStat): Integer;
Параметры:
Cid: Устройство связи.
Stat: Структура TComStat для приема информации о состоянии устройства или nil.
Возвращаемое значение: Один из следующих кодов ошибки: ce_Break, ce_CTSTo, ce_DNS, ce_DSRTo, ce_Frame, ce_IOE, ce_Mode, ce_OOP, ce_Overrun, ce_PTO, ce_RLSDTO, ce_RxOver, ce_RxParity, ce_TxFull.

Закрывает Cid, чистя выходную очередь. Память, используемая под очереди приема и передачи, освобождается.

function CloseComm(Cid: Integer): Integer;
Параметры:
Cid: Устройство связи.
Возвращаемое значение: Нуль, если устройство закрывается; отрицательное, если ошибка.

Восстанавливает передачу символов и переводит линию в непрерываемое состояние.

function ClearCommBreak(Cid: Integer): Integer;
Параметры:
Cid: Восстанавливаемое устройство связи.
Возвращаемое значение: Нуль - в случае успешного завершения; отрицательное, если Cid не является допустимым устройством.

Закрывает Cid, чистя выходную очередь. Память, используемая под очереди приема и передачи, освобождается.

Приостанавливает передачу символов и переводит линию передачи устройства в разорванное состояние.

function SetCommBreak(Cid: Integer): Integer;
Параметры:
Cid: Устройство связи.
Возвращаемое значение: В случае успешного завершения - нуль; отрицательное значение - при неверном Cid.

Вновь инициализирует устройство связи, указанное в поле Id блока DCB, в состояние, заданное DCB. Очереди передачи и приема не затрагиваются.

function SetCommState(var DCB : TDCB): Integer;
Параметры:
TDCB: Структура TDCB.
Возвращаемое значение: Нуль в случае успешного завершения; отрицательное - в противном случае.

Помещает AChar в начало очереди на передачу устройства связи для немедленной передачи.

function TranmitCommChar(Cid: Integer; AChar: Char): Integer;
Параметры:
Cid: Устройство связи.
AChar: Передаваемый символ.
Возвращаемое значение: Нуль в случае успешного завершения; отрицательное число вследствие того, что еще не передан предыдущий символ.

К оглавлению