Доступ к СОМ порту
Модератор: Модераторы
Скачаль но она выдает две ошибки при компиляции
SynaSer.pas(264,15) Error: Function is already declared Public/Forward "TBlockSerial.ErrorMethod(LongInt)"
SynaSer.pas(270,5) Error: The class can't have a published section, use the {$M+} switch
SynaSer.pas(291,1) Fatal: There were 2 errors compiling module, stopping
SynaSer.pas(264,15) Error: Function is already declared Public/Forward "TBlockSerial.ErrorMethod(LongInt)"
SynaSer.pas(270,5) Error: The class can't have a published section, use the {$M+} switch
SynaSer.pas(291,1) Fatal: There were 2 errors compiling module, stopping
Все можно решить намного проще.
достаточно продключить модуль Libc и дальше работать как в С++ только т.е.
Открыть СОМ порт :Fhandle:=THandle(Libc.open(pchar(comport), O_RDWR or O_NOCTTY));
читать из СОМ порта: FileRead(FHandle,UP,sizeof(UP));
писать в СОМ порт : FileWrite(FHandle,UP,sizeof(UP));
ну и т.д.
Структура termios доступна:
var
TermiosStruc: termios;
term:termios;
//**********************
Тему можно считать закрытой
достаточно продключить модуль Libc и дальше работать как в С++ только т.е.
Открыть СОМ порт :Fhandle:=THandle(Libc.open(pchar(comport), O_RDWR or O_NOCTTY));
читать из СОМ порта: FileRead(FHandle,UP,sizeof(UP));
писать в СОМ порт : FileWrite(FHandle,UP,sizeof(UP));
ну и т.д.
Структура termios доступна:
var
TermiosStruc: termios;
term:termios;
//**********************
Тему можно считать закрытой
