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

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

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

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

Есть какой-нибудь для Delphi/FPC T*Compression(Decompression)Stream на базе LZ4/Zstd/любой другой быстрый(и хорошо сжимающий) алгоритм А ещё лучше в pure pascal А ещё лучше од...
notme
48
А чем вам питонисты не угодили?😂
.
79
type TObj = object procedure Init; virtual; end; TObj1 = object(TObj) procedure Init; override; end; procedure TObj1.Init; begin inherited; end; procedur...
Alexander 👋
29
Такой вопросец - есть функция function MySuperDuperConcat(const a: array of AnsiString): AnsiString; Как мне в её теле сделать вот так? Result:=Concat(a); А не грустный вариан...
notme
15
Всем привет. Поделитесь, пожалуйста, опытом. Есть форма, на которой имеется dbgrid и кнопки: добавить, редактировать, удалить. Если нет записей в dbgrid, то кнопки редактирова...
Евгений
5
Как структуру (из MSVC) в которой описаны битовые поля описать для fasm? Вот например это (fBinary...fDummy2 - это физически 1 DWORD): typedef struct _DCB { DWORD DCBlength;...
Евгений
3
Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
86
type TExtensions<GExtender>=class function GetExtension<GEntityExtenderType>:GEntityExtenderType; end; function TExtensions<GExtender>.GetExtension<GEntityExtenderType...
zamtmn
8
Всем привет, препод задал вопрос, подскажите пожалуйста, какой адрес инкапсулирует указатель?
Свинка Пеппа
8
Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs := TFileStream.Create('filename'); cs := TCompressionStream.Create(compression_level, fs); Я хочу сделать так: ...
notme
5
Карта сайта