COM-порт , Com-порт cp2102

[Igor_Muhin]

Устройство USB-UART cp2102 рабочее. Позволяет программировать прибор, и через него идет считывание данных с прибора через программы-мониторы портов. Но в программе на Delphi не проходит команда SetCommState(Com_Port_Handle, DCB), а GetCommState(Com_Port_Handle, DCB) возвращает все нули. Устройства USB-UART на других микросхемах (например, CH340G) с этой программой работают. В чем может быть проблема?

[MBo]

Что значит "не проходит команда SetCommState" ?

[Igor_Muhin]

Если делаю цикл

While Result = false do
  begin
   SetCommState(Com_Port_Handle, DCB) ;
   Result := SetCommState(Com_Port_Handle, DCB);
  end ;

то зависает именно на CP2102. На CH340G все проходит, параметры порта устанавливаются.

Сообщение отредактировано: Krid - 29.09.17, 20:52

[MBo]

А зачем цикл? Всегда достаточно было одного раза. Что GetLastError сообщает?

Устанавливаемые параметры порта совпадают с теми, что используют другие программы (которые работают)?

[Igor_Muhin]

С одного раза не зависает, но и ничего в CP2102 не устанавливает (а в CH340G устанавливает). GetCommState(Com_Port_Handle, DCB) возвращает все нули. GetLastError дает нуль. Параметры, используемые другими программами, неизвестны, но я их довольно много перебрал, все глухо. А на других микросхемах и с одного раза все ставится нормально, и параметры меняю как угодно.

[ter_nk_]

В терминале все работает и там и там?

[Igor_Muhin]

Если использую готовые программы-мониторы портов, все работает, данные считываются.

[ter_nk_]

Значит ищи ошибку, перепроверь параметры DCB. Запись байт в порт проходит нормально под отладчиком? Если в терминале работает, должно и у тебя в коде.

Добавлено 29.09.17, 17:31
Попробуй portmon.

[Igor_Muhin]

И чтение и запись идет нормально через другие программы, устройство рабочее. Параметры DCB на последний момент:

DCB.BaudRate := CBR_9600 ;
   // DCB.Parity := EVENPARITY ;
   DCB.Parity := NOPARITY;
   // DCB.ByteSize := 7 ;
   DCB.ByteSize := 8 ;
   DCB.StopBits := ONESTOPBIT ;
  // DCB.XonLim := 0 ;
  // DCB.XoffLim := 255 ;
   // DCB.XonChar := 11 ;
   // DCB.XoffChar := 13 ;
  // DCB.StopBits := TWOSTOPBITS ;

9600, NOPARITY, 8 бит, 1 стоп-бит - вроде бы ничего необычного. Ни один параметр даже по отдельности не устанавливается. Без предварительной установки GetCommState(Com_Port_Handle, DCB) возвращает все нули изначально (с другими микросхемами не так).

Сообщение отредактировано: Krid - 29.09.17, 20:52

[ter_nk_]

Попробуй задержку перед GetCommState поставить. Вызвать его повторно с задержкой.

[Igor_Muhin]

Portmon порт на CP2102 обнаруживает (COM10 как и везде), но активности из под Delphi никакой нет (на других микросхемах и портах что-то пишет).

Добавлено 29.09.17, 17:58
Задержка ничего не дает.

[ter_nk_]

А терминал соответственно портмон активность показывает? Функция открытия порта как отрабатывает?

[Igor_Muhin]

Может Handle неправильный? Код такой:

procedure TfMT_30.OpenComPort ;
{--------------Установить параметры COM-порта--------------------}
begin
  if (Com_Port_Handle = 0) then
  begin
   Com_Port_Handle:= CreateFile(
                                pchar(Port_Name),
                                GENERIC_READ or GENERIC_WRITE,
                                //FILE_SHARE_READ,
                                0, // Not shared
                                nil, // No security attributes
                                OPEN_EXISTING, //CREATE_NEW, //OPEN_EXISTING,
                               // 0,
                               // FILE_FLAG_OVERLAPPED,
                                FILE_ATTRIBUTE_READONLY,
                                0 // No template
                              ) ;
  end ;
 
  if (Com_Port_Handle = INVALID_HANDLE_VALUE) then
  begin
   eReady.Text := 'Ошибка' ;
   exit ;
   end ;
end ;

Хотя ошибки при работе не выдает.

Сообщение отредактировано: Krid - 29.09.17, 20:53

[ter_nk_]

В коде я имею в виду.

Добавлено 29.09.17, 18:07
Вместо FILE_ATTRIBUTE_READONLY поставь 0

перед GetCommState что-то вроде этого попробуй
dcb.DCBlength = sizeof(DCB);

[Igor_Muhin]

Portmon на CP2102 вообще ничего не показывает.

[ter_nk_]

А и вот еще что, хорошо бы перед GetCommState обнулить dcb, как это в дельфи тебе виднее

Добавлено 29.09.17, 18:11

Цитата Igor_Muhin @ 29.09.17, 18:09

Portmon на CP2102 вообще ничего не показывает.

И терминал при этом отрабатывает?

Добавлено 29.09.17, 18:13
В CreateFile последний параметр в nil поставь

Добавлено 29.09.17, 18:17
Если активности нет, по идеи ты сюда должен свалить
eReady.Text := 'Ошибка' ;

потому как порт не открылся

[Igor_Muhin]

Вместо FILE_ATTRIBUTE_READONLY 0 ничего не дает.

dcb.DCBlength = sizeof(DCB); ничего не дает.

Portmon активности никакой не показывает.

Зато после всех манипуляций и порты на других микросхемах стали вести себя так же.

Добавлено 29.09.17, 18:25
Ну, да:

if (Com_Port_Handle = INVALID_HANDLE_VALUE) then
  begin
   eReady.Text := 'Ошибка' ;
   exit ;
   end ;

Но ошибки, получается нет, т. е. Handle правильный.

Сообщение отредактировано: Krid - 29.09.17, 20:54

[ter_nk_]

Хорошо, верни в CreateFile как было, а со структурой dcb
сначала ее обнуляешь, потом присваиваешь длину, потом вызов getCommState и нули?

Добавлено 29.09.17, 18:45
Если в терминале работает, ну не знаю. Можно посмотреть в сторону таймаутов

COMMTIMEOUTS CommTimeOuts;
CommTimeOuts.ReadIntervalTimeout := 0xFFFFFFFF;
CommTimeOuts.ReadTotalTimeoutMultiplier := 0;
CommTimeOuts.ReadTotalTimeoutConstant := TIMEOUT;
CommTimeOuts.WriteTotalTimeoutMultiplier := 0;
CommTimeOuts.WriteTotalTimeoutConstant := TIMEOUT;
 
SetCommTimeouts(m_Handle, &CommTimeOuts)

Сообщение отредактировано: Krid - 29.09.17, 20:54

[Igor_Muhin]

Таймауты пока отключены. Вернулся назад, выполняю только процедуру открытия порта CreateFile и процедуру закрытия. Для CP2102 Portmon никакой активности вообще не показывает, для других микросхем и портов минимальная активность в три строчки имеется. Только что-то этот Portmon систему портит, порты как бы остаются после их изъятия, некоторые становятся неправильным оборудованием, вплоть до жесткий диск стал несистемным. Возможно, все-таки где-то на уровне CreateFile что-то идет не так.

Добавлено 29.09.17, 20:14
Когда в CreateFile задаю имя порта как Pchar('\\.\'+ Port_Name) вместо Pchar(Port_Name), то Portmon активность для CP2102 показывает, GetCommState и SetCommState вроде бы тоже работают, т. е. вроде бы пока процесс пошел. А что такое здесь это '\\.\' и что оно дает?

Добавлено 29.09.17, 20:16
Получается что вместо COM10 надо записать \\.\COM10?

[Krid]

Igor_Muhin, ter_nk_

M

Используем тег [code] для добавления текста программы в пост! Устное предупреждение! Читаем правила!

Сообщение отредактировано: Krid - 29.09.17, 20:57

[Igor_Muhin]

В общем, когда задаю в CreateFile имя порта как Pchar('\\.\'+ Port_Name) вместо Pchar(Port_Name), где Port_Name = 'COM10' (получается программно), то порт на CP2102 (действительно COM10 по диспетчеру устройств) устанавливается нормально и даже уже удается иногда прочитать правильные числа с прибора. Зачем нужна добавка '\\.\', пока не понял. Только Portmon при использовании для контроля портит дело, приходится перезагружать компьютер.

[ter_nk_]

Цитата Igor_Muhin @ 29.09.17, 21:30

В общем, когда задаю в CreateFile имя порта как Pchar('\\.\'+ Port_Name) вместо Pchar(Port_Name), где Port_Name = 'COM10' (получается программно), то порт на CP2102 (действительно COM10 по диспетчеру устройств) устанавливается нормально и даже уже удается иногда прочитать правильные числа с прибора. Зачем нужна добавка '\\.\', пока не понял. Только Portmon при использовании для контроля портит дело, приходится перезагружать компьютер.

Там где порт больше девятого надо '\\.\' ставить. При открытии файла где длина пути больше 255 тоже надо добавлять "абсолютный" путь.

[Igor_Muhin]

Понятно, спасибо. А корректно этот префикс к именам первых портов (COM1-COM9) тоже добавлять для простоты? Я пока ко всем добавляю, вроде бы работает.

[ter_nk_]

Цитата Igor_Muhin @ 30.09.17, 07:52

Понятно, спасибо. А корректно этот префикс к именам первых портов (COM1-COM9) тоже добавлять для простоты? Я пока ко всем добавляю, вроде бы работает.

Не обязательно добавлять. Я кстати не знал, что выше 9 надо добавлять, в дотнетовском проекте когда делал, у меня было до фига ком-портов и все работало.

[MBo]

> корректно этот префикс к именам первых портов (COM1-COM9) тоже добавлять для простоты?
Да, корректно. (Это UNC-нотация)

[zhuravlev80]

Igor_Muhin после CreateFile() и настройки порта CP2102 обязательно поставь задержку перед передачей данных. Сталкивался с некоторым такими девайсами (завит от настроения производителя) которые не воспринимали начальную посылку данных.

[Emmys]

та же проблема. 1 в 1.