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 ответов

42 просмотра
✙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 байтов.

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

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

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта