Работа с Паскалем и выходами на мат. плате(com, Usb...) Опции

[necks]

Посколько в Паскале новичок хотел помимо написания обычных программ научиться програмировать устроиства подключенные к портам вывода. В разделе "статьи" прочитал о програмировании мыши, и поэтому еще больше заинтересовался эти вопросом.

Так вот раз подфорум теоритический, то при помощи каких функций можно осуществить обращение к портам.

[xds]

Открытие порта:

var
  Port: THANDLE;
...
  Port := CreateFile(
    'COM1',
    GENERIC_READ or GENERIC_WRITE,
    0,
    nil,
    OPEN_EXISTING,
    0,
    0
  );

Закрытие:

  CloseHandle(Port);

Установка параметров соединения: скорости передачи данных, формата фрейма и способа управления потоком данных:

var
  dcb: TDCB;
...
  dcb.DCBlength := SizeOf(dcb);
  GetCommState(Port, dcb);
  dcb.BaudRate := CBR_9600;
  dcb.ByteSize := 8;
  dcb.Parity := EVENPARITY;
  dcb.StopBits := 2;
  dcb.Flags :=
    fBinary
    or fParity
    or fOutDsrFlow
    or fOutCtsFlow
    or fDtrControl * DTR_CONTROL_ENABLE
    or fRtsControl * RTS_CONTROL_ENABLE;
  SetCommState(Port, dcb);

Настройка тайм-аутов передачи данных:

var
  ct: TCOMMTIMEOUTS;
...
  ct.ReadIntervalTimeout := 1000;
  ct.ReadTotalTimeoutMultiplier := 0;
  ct.ReadTotalTimeoutConstant := 0;
  ct.WriteTotalTimeoutMultiplier := 0;
  ct.WriteTotalTimeoutConstant := 5000;
  SetCommTimeouts(Port, ct);

Чтение данных (Buf - переменная - буфер, в который принимаются данные; Count - кол-во байт, которое необходимо принять; r получает кол-во принятых байт, r < Count в случае ошибки):

  WriteFile(Port, Buf, Count, r, nil);

Запись данных (Buf - переменная - буфер с данными; Count - кол-во байт в буфере; r получает кол-во переданных байт, r < Count в случае ошибки):

    WriteFile(Port, Buf, Count, r, nil);

P. S. Естественно, во всех случаях необходимо выполнять проверку на наличие ошибок ;) (все перечисленные функции, за исключением CreateFile, возвращают значения типа Boolean; CreateFile в случае ошибки возвращает значение INVALID_HANDLE_VALUE).