Com порт

[xside]

Помогите пожайлуста написать программку на Lazaruse.
Я уже весь интерфейс написал и перешел к программированию com порта использую synaser. Здесь то самое и сложное я начинающий, мне нужно сделать прием и передачу байтов через com порт.
Я хочу принимать о отправлять байты с компонента MEMO
По сути должен по размеру маленький код получится, но моего опыта и на это не хватает.
Пожалуйста помогите начинающим

[serg_iv]

прочитать одит байт из com порта:
var
ser:TBlockSerial;
.....
ser:=TBlockserial.Create;
ser.RaiseExcept:=true;
ser.Connect('com1');
ser.EnableRTSToggle(true);
ser.Config(115200,8,'N',0,false,false);
a:= ser.RecvByte(500);
.....

[ilyas]

Хочу освоить Lazarus и начал с того, что конвертирую свою прогу на Delphi.
В ней я обращаюсь к СОМ - порту с помощью следующих функций:

Код: Выделить всё

var
        PortInd:integer;
        Timings: CommTimeouts;
        Dcb: TDcb;
begin
<...>
PortInd:= CreateFile(Pchar(ComNumber.Items[ComNumber.ItemIndex]),
                        GENERIC_Read or GENERIC_WRITE, 0, nil,
                        OPEN_EXISTING, {FILE_FLAG_OVERLAPPED} 0 ,
                        0);
<...>
ReadFile(PortInd, _Buf[1], ComBufL, LengthRead, nil);

Компилятор утверждает, что ему неизвестны идентификаторы: TDcb, CommTimeouts, CreateFile, ReadFile, GENERIC_Read, GENERIC_WRITE и т.д.
Насколько я понимаю, я пользовался напрямую функциями WinApi.
Возможно ли в Lazarus использование этих фукций, или код придётся переписывать?
Работаю в WinXp, Lazarus: 0.9.28.1, FPC: 2.2.4.

[Vadim]

ilyas
А у Вас модуль Windows подключён к программе?
Всё это есть во FreePascal, надо только необходимые модули не забывать подключить.

[ilyas]

Vadim
Спасибо, всё заработало.
Просто не знал, в каком модуле эти процедуры могут быть.

[Vadim]

ilyas
В том же, в каком и у Delphi.