169 похожих чатов

Плиз помогите, почему я не могу отправить "1235" на ардуино

через ком порт в своей проге в делфи? Если что когда я отправляю со встроенного монитора порта в ардуино IDE то ардуинка включает светодиод как я запрограмировал. А ЕСЛИ Я ОТПРАВЛЯЮ СО СВОЕЙ ПРОГРАММЫ ТО 0 РЕАКЦИИ. Вот код, буду очень признателен, ибо сам новичок в делфи, и мудохаюсь уже какой день.





var
hComPort: THandle;
dcb: TDCB;
bytesWritten: DWORD;
buffer: array[0..255] of AnsiChar;
begin
// Открытие COM-порта
hComPort := CreateFile('\\.\COM3', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hComPort = INVALID_HANDLE_VALUE then
begin
ShowMessage('Не удалось открыть COM-порт');
Exit;
end;

// Настройка параметров COM-порта
GetCommState(hComPort, dcb);
dcb.BaudRate := CBR_9600; // Скорость передачи данных
dcb.ByteSize := 8; // Биты данных
dcb.StopBits := ONESTOPBIT; // Стоп-биты
dcb.Parity := NOPARITY; // Паритет
SetCommState(hComPort, dcb);

// Отправка данных
StrPCopy(buffer, '1235'#13#10); // Додаємо символ кінця рядка (CR+LF)
WriteFile(hComPort, buffer, Length(buffer), bytesWritten, nil);

// Закрытие COM-порта
CloseHandle(hComPort);



end.

7 ответов

39 просмотров
✙Me.hail✙- Автор вопроса

Чат GPT мне сказал что вроде все должно быть окей, и RX TX мигают когда код выполняется, что по идее свидетельствует об получении данных, но то ли ардуино принимает не то, то ли преобразовывает не в то, но принимает она 1235 только с родного монитора порта

А так? StrPCopy(buffer, #1#2#3#5#13#10);

Сергей Киреев
А так? StrPCopy(buffer, #1#2#3#5#13#10);

а там может оказаться little endian...

✙Me.hail✙- Автор вопроса

Стикер

✙Me.hail✙- Автор вопроса

Не работает

WriteFile() отправляет не 6 байт строки, а весь буфер 255 байтов.

Похожие вопросы

Обсуждают сегодня

Коллеги, я тут для личных нужд пошел ставить MQTT сервер, пощупал mosquitto, но ужаснулся отсутствию такой банальности, как HTTP API для посмотреть список топиков. А тут что,...
Maksim Lapshin
13
Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...
Евгений
44
#include <stdio.h> #include <stdlib.h> #include <time.h> void mass_first_generate(int mass[5][7]) {     for (int N = 0; N < 5; N++) {         for (int A = 0; A < 7; A++) {   ...
Чувак
6
Всем привет! Решаю 99 OCaml Problems и столкнулся со следующей проблемой (прошу палками не забивать, я OCaml практически не трогал до этого момента): open OUnit2 let create_...
К|/|pи/\/\ 6е3yглbIи
2
https://www.linkedin.com/posts/ugama-benedicta-kelechi-codergirl-103041300_mobiledevelopment-fluttertraining-handsonlearning-activity-7263445699227254784-IdHB?utm_source=share...
CoderGirl
16
Ну вот просто даже давайте вот как. Какой нибудь конкретный кейс, можете в пример привести, где бч работает и приносит прикладную пользу, а не просто что бы было? Не крипту.
Alexander Andreev
22
возможно ли как-то передать в электрон или таури медиа поток с рендера 2д движка? двиг запускается как dll, а дальше надо как-то отправлять рендер кодировать не подходит, зр...
Kyle Nekto
7
Точно, оно. У тебя там имена потоков выставляются?
Александр (Rouse_) Багель
11
Помогите пожалуйста. Делаю систему плагинов. Проблема сейчас в такая: плагины загружаются в основном потоке. FLibHandle := SafeLoadLibrary(FFileName) Но нужно еще выполнить фу...
Илья 🤣
10
объясните пожалуйста, почему функция не работает должным образом? вроде должно брать активное окно сравнивать его размер с размером экрана, и если есть совпадение = true прове...
JF
12
Карта сайта