Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 23.09.2020
Сообщений: 29

Delphi Comport

19.10.2022, 20:03. Показов 2183. Ответов 22

Студворк — интернет-сервис помощи студентам
Добрый вечер
Использую библиотеку CPortLib
Два компонента ComPort и ComDataPacket

ComPort виртуальный устройство (Arduino UNO) подключено по USB.

Событие ComDataPacket1Packet Срабатывает только если Arduino только включил. Повторно ничего не принимается по COM порту.

И то принимается какая то ерунда типа - èm вместо ComPort1.WriteStr('qqqqqqqqqqqqqqqqqqqqq qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq qq');

Добавлено через 3 минуты
и каждый раз разное принимает (PÊÿ) отправляю одно и тоже
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.10.2022, 20:03
Ответы с готовыми решениями:

Comport vs Delphi
Вечер в хату! Хочу спросить в 100500-й раз)) Есть прога на Delphi, есть Arduino. Скетч Arduino void setup() { ...

Delphi+RS232 ComPort
Уважаемые форумчане-дельфичане! Обращаюсь к Вам за помощью, изъясняя на ходу суть проблемы: Задание: «Проверка качества связи между...

Некорректный вывод данных через comport Delphi 7 - Arduino
Хай! Как показано на картинке вывод данных через com порт программы Arduino и программы Delphi немного не корректны. В чем может быть...

22
0 / 0 / 0
Регистрация: 23.09.2020
Сообщений: 29
21.10.2022, 15:27  [ТС]
Студворк — интернет-сервис помощи студентам
Получилось сделать. Только я не пойму почему так происходит. Может мне кто то объяснит.

Если я передаю команду в COM порт через Edit1.Text; в Edit1.Text набираю G91G0X-10.00 #13#10

Delphi
1
ComPort1.WriteStr (Edit1.Text);  //ничего не происходит
если через переменную типа String

Delphi
1
2
Str1:= 'G91G0X-10.00' + #13#10;
ComPort1.WriteStr (Str1);   // то двигатель заработа команда передалась
Если в коде пишу

Delphi
1
2
Edit1.Text:='G91G0X-10.00 #13#10';
ComPort1.WriteStr (Edit1.Text);  //Всё работает  (но символы #13#10 в Edit не появляются)
0
57 / 52 / 5
Регистрация: 18.11.2018
Сообщений: 295
21.10.2022, 15:34
Цитата Сообщение от Aleks_3130 Посмотреть сообщение
Может мне кто то объяснит
Смотрите на строку как на массив байт.
Ему всегда нужно в конце добавлять #13#10 тогда ардуиновский буфер увидит конец строки и начнёт смотреть что же там пришло.
0
 Аватар для Newby52
43 / 38 / 5
Регистрация: 24.07.2018
Сообщений: 214
Записей в блоге: 6
21.10.2022, 16:17
Цитата Сообщение от Aleks_3130 Посмотреть сообщение
#13#10
Когда ты пишешь это в программе, то это два символа с кодами 13 и 10.
Когда ты пишешь это при вызове программы в окне Edit, это шесть символов с кодами 35, 51, 48, 35, 49, 48
Тебе надо вернуться к изучению основ программирования.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.10.2022, 16:17

Как сбросить повисший ComPort?
Здравствуйте дорогие Форумчане. Возникла задача, реализовать автоопределение подключаемых COM-устройств, а так же их отключение. и...

[COMport,ExtractStrings,Mysql] Где я так на говнокодил?
Железо - Есть некий девайс который по COMу шлёт 2 раза в секунду 4 значения разделённых разделителями... "123;43,12.4;752" ...

Как передать bin фаил через ComPort
Пытаюсь написать свою програмку прошивальщик для Openbox. Но везде приводяться примеры передачи текстовых файлов, а прошивки как правило...

Библиотека ComPort Library ver. 2.63 для Дельфи
Здравствуйте Все ! Я использую для связи библиотеку ComPort Library ver. 2.63 . При запуске готового ЕХЕ файла она как-то...

Что лучше брать Delphi XE2, Delphi XE, Delphi 7?
Привет форумчане! У меня вопрос: что лучше брать Delphi XE2, Delphi XE, Delphi 7? Как вообще различаются серия Delphi XE, и Delphi 7?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru