Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.07.2011, 17:43
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию COM-порт. WinAPI

Уже голову сломал.
Есть устройство на базе широко известного в узких кругах USB-UART переходника (он же виртуальный COM порт) FT232RL. И пишу программу для работы с этим устройством.
И всё вроде работает. У меня (Win7 x64). На компьютере друга (нетбук) - ну ни в какую. Прием данных осуществляется так:
Код:
if not ReadFile(hCom, Buf, dwRead, dwRead, @OverlapRead) then
begin
   ShowMessage('Ошибка при чтении данных.');
   ...// работаем с ошибкой
end;
К порту у него подключается, ждет данных нормально, а как только данные приходят - выскакивает эта самая "Ошибка при чтении данных".
Думал, что дело в его винде (WinXP SP2). Но нет - поставил себе эту же самую винду (с его диска) на виртуальную машину - всё работает.
В чём может быть дело? Программу изначально писал как раз другу, будет очень печально, если на его компе так и не запустится.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 03.07.2011 в 18:01.
Ответить с цитированием
  #2  
Старый 03.07.2011, 18:20
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Режим ком-порта устанавливаешь? как?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #3  
Старый 03.07.2011, 18:33
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Устанавливаю, стандартно:
Код:
    if not GetCommState(hCom, Dcb) then
    begin
      StandardError('Не удалось получить состояние порта.');
      exit;
    end;

    Dcb.BaudRate := CBR_9600;
    Dcb.Parity := NOPARITY;
    Dcb.ByteSize := 8;
    Dcb.StopBits := ONESTOPBIT;

    if not SetCommState(hCom, Dcb) then
    begin
      StandardError('Не удалось установить состояние порта.');
      exit;
    end;

З.Ы. StandardError - это мой обработчик, там вывод сообщения и освобождение ресурсов.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 03.07.2011 в 18:37.
Ответить с цитированием
  #4  
Старый 03.07.2011, 18:52
Аватар для Developer
Developer Developer вне форума
Прохожий
 
Регистрация: 01.07.2011
Адрес: Украина
Сообщения: 27
Версия Delphi: 7, 2009
Репутация: 75
По умолчанию

Цитата:
Сообщение от Bargest
Есть устройство на базе широко известного в узких кругах USB-UART переходника (он же виртуальный COM порт) FT232RL...

У меня есть опыт работы с таким.

-Первое что могу посоветовать, это попробовать обмениваться данными с устройством используя программу-терминал. С помощью нее можно посылать на устройство данные и принимать. Классная штука. Помогает отладить протокол и проверить связь с устройством.
-Второе. На сколько я понял ты используешь стандартное API? Лучше используй готовые компоненты, например: скачать.

Последний раз редактировалось Developer, 03.07.2011 в 18:55.
Ответить с цитированием
  #5  
Старый 03.07.2011, 18:59
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Терминал на его компе поюзать не додумался - при встрече попробую, спасибо что напомнил.
А насчет второго - не люблю я лишние компоненты на АПИ работать ничуть не труднее, зато прога легче и стопудово не будет чужих багов. Когда-то юзал COM32 - норм, но не моё. Там стандартные ошибки понавешаны на каждый писк, а я предпочитаю свои обработчики, например вписать в лог или тихонько намекнуть об ошибке, а не орать на всю Ивановскую что у меня ком-порт не открылся, и не рисовать огромные крестики на экране с подписями на английском
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #6  
Старый 03.07.2011, 19:06
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Bargest , вообще-то если используешь асинхронный режим (@OverlapRead), то ReadFile запросто может вернуть ошибку, но при этом GetLastError возвратит ERROR_IO_PENDING. тогда данные можно получить через WaitForSingleObject/GetOverlappedResult.
http://msdn.microsoft.com/en-us/libr...67(VS.85).aspx
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #7  
Старый 03.07.2011, 19:16
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Я предварительно ожидаю вечность (infinite), пока не придут данные, через WaitForSingloObject. Потом получаю количество байт в очереди при помощи ClearCommError.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 03.07.2011 в 19:37.
Ответить с цитированием
  #8  
Старый 04.07.2011, 09:37
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а GetLastError что говорит?
Код:
ShowMessage(SysErrorMessage(GetLastError));
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #9  
Старый 04.07.2011, 21:25
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Завтра попробую на его компе, посмотрю.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:41.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025