Чтение данных из com порта Linux

[sergeypankov]

Здравствуйте!
Есть программа, которую я написал на Delphi используя компонент BComPort (упрощенный вариант CPort Library). Есть устройство, которое посылает данные в виде ASCII кода (различные буквы и цифры) на com порт компьютера. Программа принимает эти данные и отображает в реальном времени в компоненте Memo на форме (потом данные берутся из Memo и дальше программа выводит их красиво на форму в компоненты Label-ы). Скорость работы с com портом 19200. Буфер очищается через каждые 10 секунд (стоит таймер в программе), иначе программа начинает медленно откликаться на изменение данных с устройства. Хотелось бы поподробнее узнать, как организовать что то подобное для Линукс использую Lazarus и Unit Synaser для работы с com портом. Например, чтобы на форме была кнопка, по нажатию на которую происходило чтение из com порта и отображение прочитанного в Memo. Может у кого есть работающий пример чтения из порта? Могу выложить исходный код программы на Delphi.
В Lazarus я пока еще не писал ни одной серьезной программы, поэтому если можно объясните пожалуйста поподробнее.
Заранее спасибо!

[Attid]

viewtopic.php?p=33789#p33789

readinteger заменяешь на readstring и все.

[sergeypankov]

Т. е. в программе я должен добавить в раздел Uses я должен добавить Synaser, а потом создать для кнопки обработчик события OnClick

//инициализация последовательного порта
ser:=TBlockserial.Create; //создаем устройство
ser.RaiseExcept:=false; //не обрабатываем исключения ошибок связи
ser.Connect('/dev/ttyUSB0'); //соединяемся с портом
ser.Config(115200,8,'N',0,false,false);//настраиваем скорость, стоп биты, паритет
//пересылаем данные
ser.SendInteger(data);
//принимаем данные от устройства
a:=ser.RecvInteger(4);
ser.Free;//освобождаем устройство

Но тут нет строчки Readinteger, есть только Recvinteger - Это нужно её менять на RecvString?

[Attid]

да

[sergeypankov]

Сделал для события OnClick нажатия кнопки. Работает немного кривовато (пока не разобрался до конца). Читает только в момент нажатия кнопки и выводит в Memo, а как сделать чтоб читалось непрерывно и выводилось все что прочиталось в Memo? В компоненте для Delphi было такое событие как OnRxChar - что то типа прерывания насколько я понял.
А с помощью synaser как организовать непрерывный поток чтения байтов с com порта?

[serg_iv]

А с помощью synaser как организовать непрерывный поток чтения байтов с com порта?

цикл в потоке?

[sergeypankov]

А можно хоть какой нибудь примерчик попросить. Цикл ведь должен как то прерываться? В Lazarus я пока не очень.

[serg_iv]

А можно хоть какой нибудь примерчик попросить. Цикл ведь должен как то прерываться? В Lazarus я пока не очень.

папку examples открой, посмотри пример организации потока TThread.
Цикл посмотри ЛЮБУЮ литературу по Паскалю, стороной нигде не обходят.
Удачи.

[Attid]

В Lazarus я пока не очень.

не надо этим прикрываться, все так же как в дельфи, местами даже удобнее.
ну или уже честно признайтесь что как програмист Вы 0 и вас пощлют читать книжки.

[sergeypankov]

Ну не знаю какой я программист- это не основное мое занятие. Просто мы изготавливаем лабораторные установки, делаем связь с компьютером через com порт. В Delphi пользовались визуальными компонентами, а в Lazarus непривычно пока что-то.
А папки Examples в архиве synaser.zip нету, есть только Demo. Но все равно спасибо за помощь.

[Attid]

когда-то видел визульную прослойку synaser для лазаруса. но где и когде не помню.

может пропробуешь MSE ? там компортовый компонент встроен в ИДЕ по умолчанию.

Добавлено спустя 4 минуты 55 секунд:

как сделать чтоб читалось непрерывно и выводилось все что прочиталось в Memo?

если пугает поток то можно по таймеру.

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

[sergeypankov]

Спасибо, попробую таким способом.