через ком порт в своей проге в делфи? Если что когда я отправляю со встроенного монитора порта в ардуино 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.
Чат GPT мне сказал что вроде все должно быть окей, и RX TX мигают когда код выполняется, что по идее свидетельствует об получении данных, но то ли ардуино принимает не то, то ли преобразовывает не в то, но принимает она 1235 только с родного монитора порта
А так? StrPCopy(buffer, #1#2#3#5#13#10);
а там может оказаться little endian...
Нет не работает
Стикер
Не работает
WriteFile() отправляет не 6 байт строки, а весь буфер 255 байтов.
Обсуждают сегодня