Работа с переферийными устройствами на winAPI в delphi.

Переводит Def в соответствующие коды блока управления устройством, которые копируются в DCB.

function BuildCommDCB(Def: PChar; var DCB: TDCB): Integer;
Параметры:
Def: Командная строка DOS MODE (заканчивающаяся пустым символом) с управляющей информацией об устройстве.
DCB: Принимающая структура TDCB.
Возвращаемое значение: Нуль, если Def переведена; отрицательное - если нет.

Создает контекст устройства для устройства DriverName.

function CreateDC(DriverName, DeviceName, Output: PChar; InitData: Pointer): HDC;
Параметры:
DriverName: Имя файла DOS (без расширения и заканчивающееся пустым символом) драйвера устройства.
DeviceName: Имя конкретного поддерживаемого устройства (заканчивающееся пустым символом).
Output: Выходной файл DOS или имя устройства (заканчивающееся пустым символом).
InitData: Структура TDevMode, содержащая данные инициализации конкретного устройства.
Возвращаемое значение: В случае успешного завершения - идентификатор контекста устройства; 0 - в противном случае.

Создает контекст информации для устройства.

function CreateIC(DriverName, DeviceName, Output, InitData: Pchar): HDC;
Параметры:
DriverName: Имя файла DOS драйвера устройства (без расширения и заканчивающееся пустым символом).
DeviceName: Указанное имя устройства (заканчивающееся пустым символом).
Output: Имя выходного файла DOS или имя устройства (заканчивающееся пустым символом).
InitData: Данные инициализации, характерные для устройства; nil в случае стандартной инициализации.
Возвращаемое значение: В случае успешного завершения - идентификатор контекста информации; 0 - в противном случае.

Создает контекст устройства метафайла.

function CreateMETAFile(FileName: PChar): THandle;
Параметры:
FileName: Имя метафайла (заканчивающееся пустым символом) или nil для указания метафайла в памяти.
Возвращаемое значение: В случае успешного завершения - идентификатор контекста устройства метафайла; 0 - в противном случае.

Удаляет контекст устройства. Если DC является последним контекстом для устройства, уведомляет устройство и освобождает всю память и ресурсы системы.

function DeleteDC(DC: HDC): Bool;
Параметры:
DC: Идентификатор контекста устройства.
Возвращаемое значение: В случае успешного завершения - не нуль; в противном случае - 0.

Блокирует ввод с мыши или с клавиатуры, сохраняя или уничтожая ввод в соответствии со значением параметра EnableInput.

function EnableHardwareInput(EnableInput: Bool): Bool;
Параметры:
EnableInput: Если ввод нужно сохранять, то не нуль; если ввод нужно уничтожать (игнорировать), то нуль.
Возвращаемое значение: Не нуль (по умолчанию), если ввод был ранее разрешен; нуль - в противном случае.

Перечисляет типы объектов, возможные на устройстве, передавая функции обратного вызова TLogPen или TLogBrush и Data. Перечисление заканчивается, если функция обратного вызова возвращает нуль или если перечислены все объекты.

Function EnumObjects(DC: HDC, ObjectType: Integer; ObjectFunc: TFarProc; Data: Pointer):Integer;
Параметры:
DC: Идентификатор контекста устройства.
ObjectType: Может быть либо obj_Brush или obj_Pen.
ObjectFunc: Адрес экземпляра процедуры функции обратного вызова.
Data: Данные, переданные функции обратного вызова.
Возвращаемое значение: Последнее значение, возвращенное функцией обратного вызова.

Разрешает доступ к возможностям устройства, не поддерживаемым интерфейсом GDI.

function Escape(DC: HDC; Escape, Count: Integer; InData, OutData: Pointer): Integer;
Параметры:
DC: Идентификатор контекста устройства.
Escape: функция Escape.
Count: Число байт данных в InData.
OutData: Структура для приема выходных данных функции Escape или nil в случае отсутствия выходных данных.
Возвращаемое значение: Положительное число в случае успешного завершения; нуль, если переключение не реализовано и отрицательное число в случае ошибки. Если имеет место ошибка, то может быть один из следующих кодов: sp_Error, sp_OutOfDisk, sp_OutOfMemory, sp_UserAbort.

Выводит код и направляет трассировку на вспомогательный порт компьютера. Пользователю задается вопрос о дальнейших действиях. Используется только для задач отладки.

function FataExit(Code: Integer);
Параметры:
Code: Отображаемый код ошибки.

Считывает блок управления устройством.

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

Считывает текущую маску события устройства, а затем очищает ее.

function GetCommEventMask(Cid, EvtMask: Integer): Word;
Параметры:
Cid: Устройство связи.
EvtMask: Разрешаемые события.
Возвращаемое значение: Значение текущей маски события.

Разблокирует и считывает текущее состояние маски события устройства.

function SetCommEventMask(Cid: Integer; EvtMask: Word): PWord;
Параметры:
Cid: Устройство связи.
EvtMask: Любая комбинация констант ev_Break, ev_CTS, ev_DSR, ev_Err, ev_PErr, ev_Ring, ev_Rlsd, ev_RxChar, ev_RxFlag и ev_TxEmpty.
Возвращаемое значение: Указатель на маску события, где каждый установленный бит указывает на то, что событие имеет место быть.

Считывает текущую среду для устройства, присоединенного к системному порту.

function GetEnvironment(PortName, Enviro: PChar; MaxCount: Word): Integer;
Параметры:
PortName: Имя порта (заканчивающееся пустым символом).
Environ: Буфер для приема среды (первое поле должно содержать имя устройства) или nil для возврата требуемого размера.
Возвращаемое значение: Фактическое число скопированных байт; 0 - если среда не найдена.

Читает устройство Cid, копируя до Size символов в Buf.

function ReadComm(Cid: Integer; Buff: PChar; Size: Integer): Integer;
Параметры:
Cid: Устройство связи.
Buf: Принимающий буфер.
Size:Размер буфера.
Возвращаемое значение: Фактическое число считанных символов; нуль, если в очереди приема нет символов, и отрицательное число, если ошибка.

Создает или заменяет среду устройства.

function SetEnvironment(PortName, Environ: PChar; Count: Word): Integer;
Параметры:
PortName: Имя системного порта (заканчивающееся пустым символом).
Environ: Буфер, содержащий новую среду.
Count: Число копируемых байт Environ, или 0 для удаления текущей среды.
Возвращаемое значение: Фактическое число скопированных байт; 0 - если ошибка; -1 - если среда удалена.

К оглавлению