Работа с COM портом с использованием библиотеки TrComPort.dll (TrComPort_BCB.lib)

@Max_92 · Регистрация: 26.04.2010

Студворк — интернет-сервис помощи студентам

Скачивал отсюда: ссылки на форумы запрещены
В Project1.cpp подключаем:
#pragma comment (lib, "TrComPort_BCB.lib");
#include "TrComPort.h"

Библиотечка эта очень простая и практичная, необходимые функции есть, другим способом делать нет желания. Самому почти ничего делать не надо. Все заголовки функции, которые можно использовать, есть в заголовочном файле с небольшими пояснениями. Алгоритмы скрыты.

В Unit1.cpp к какому-нибудь клику по кнопке привязываем вот этот код как пример (если надо могу весь тестовый прожект скинуть):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
int PortId, value, result;
LPDWORD input_queue = NULL;
 
 
//открытие порта
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 
PortId = TrComPortOpen(6);// COM7
Edit1->Text = IntToStr(PortId);
if( TRCOM_SUCCEEDED(PortId) ) {
   ShowMessage("PortOpen success!");
   // порт открыт - устанавливаем параметры соединения
   TrComPortParameters params = {tcpmpBaudRate|tcpmpDefaultTimeout|tcpmpByteSize|tcpmpStopBits|tcpmpCheckParity|tcpmpParity|tcpmpEnableRtsControl|tcpmpEnableDtrControl,
                                   CBR_9600,           // 9600 бод
                                   5000,               // по умолчанию тайм-аут 5 с.
                                   8,                  // 8 бит
                                   ONESTOPBIT,         // 1 стоп-бит
                                   0,                  // без проверки четности
                                   NOPARITY,           // без бита четности
                                   RTS_CONTROL_DISABLE,// изначально RTS-off
                                   DTR_CONTROL_ENABLE};// изначально DTR-on
   result = TrComPortSetConfig(PortId,&params);
   if( TRCOM_SUCCEEDED(result) ) {
      // параметры заданы - устанавливаем управляющие сигналы(DTR-on, RTS-off)
      result = TrComPortSetControl(PortId, tcpscfSetDtr|tcpscfClearRts);
      if( TRCOM_SUCCEEDED(result) ) {
         // управляющие сигналы установлены
        
 
// что-нибудь делаем далее:
 
            //записываем байт данных в порт
            value = 244;
            TrComPortWriteByte(PortId, value, -1); }
 
            //считываем байт данных из порта
            result = TrComPortReadByte(PortId, -1);
 
 
 
      }
   }
        //закрытие порта
result = TrComPortClose(PortId);
   if ( TRCOM_SUCCEEDED(result) )
   {
   ShowMessage("PortClose success!");
   }
}
}

Всё замечательно работает.. Но:

1. Преподаватель задал организовать ОПРОС ГОТОВНОСТИ ПОРТА перед передачей. Порывшись в заголовочном файле, я нашёл вот эту функцию:

" Получение текущего количества байтов в приемной и передающей очередях порта
portid - идентификатор порта( полученный от TrComPortOpen )
input_queue - адрес получателя количества байтов в приемной очереди
( NULL, если значение не интересует )
output_queue - адрес получателя количества байтов в передающей очереди
( NULL, если значение не интересует ) */

DLLFUNC
INT
WINAPI
TrComPortGetQueue(INT portid, LPDWORD input_queue, LPDWORD output_queue); "

Как видно, здесь нужно знать адреса. Откуда их взять? К тому же не совсем понятно, что значит "получателя количества байтов в приемной очереди" ? Почему не самой приёмной очереди?

2. Допустим, если идея с опросом готовности обломалась, то можно попробовать организовать цикл, в котором попытки чтения байта из порта будут происходить до тех пор, пока он этот байт наконец не даст (т.е. пусть программа на это время подвиснет, не страшно). Другими словами, истёк таймаут (который выше равен 5 сек.), тупо заново вызывается та же функция TrComPortReadByte. Но для этого нужно использовать вот эту функцию (см. заголовочный файл):

// не удалось выполнить чтение
#define TRCOMERR_READ ((INT)-8)

или

// не удалось выполнить чтение - истек таймаут
#define TRCOMERR_READ_TIMEOUT ((INT)-10)

Здесь входной аргумент "(INT)-10". Что это значит?

@vxg · 13.11.2012, 14:40

Сообщение от Max_92

здесь нужно знать адреса

portid - идентификатор порта( полученный от TrComPortOpen )

Сообщение от Max_92

что значит "получателя количества байтов в приемной очереди"

адрес ячейки памяти в которую будет записано количество байтов в очереди

Сообщение от Max_92

организовать цикл, в котором попытки чтения байта из порта будут происходить до тех пор, пока он этот байт наконец не даст

думаю первый вариант больше соответствует вашей теме - как я понял имеется желание убедиться перед началом передачи что все данные ушли и (возможно) что нет входящих данных

@Max_92 · 17.11.2012, 18:18 **[ТС]**

опрос очередей сделал. но теперь хотелось бы вывести сообщение в случае, если операции записи/считывания байта завершилась не успешно по какой-то причине. TRCOMERR_READ, оказывается, интовая переменная. но компилятор говорит что выражение типа if ( TRCOMERR_READ != 0) {ShowMessage("Ошибка считывания")} всегда true (или false, не помню, короче не меняется). в чём причина?

@vxg · 19.11.2012, 10:19

TRCOMERR_READ - это не переменная это константа

@Max_92 · 19.11.2012, 12:34 **[ТС]**

vxg, в чём тогда её смысл? как узнать, произошла ли ошибка при передаче?

@vxg · 19.11.2012, 13:33

я так понимаю функции возвращают код ошибки или есть общая функция возвращающая код последней ошибки. во эту ошибку и анализируют - либо сравнивают с константой либо складывают по битам.

@Shadow_i · 02.02.2013, 11:02

Помогите!!!
У меня вижуал си++ 2008 экспресс, и при загрузке либы
#pragma comment (lib, "TrComPort_BCB.lib")
вылазит ошибка :
1>LINK : fatal error LNK1104: не удается открыть файл "TrComPort_BCB.lib"

@vxg · 02.02.2013, 13:10

наверное либ файл другого формата - они для VS и BCB разные COFF и OMF

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Max_92 28 / 10 / 1 Регистрация: 26.04.2010 Сообщений: 457
	17.11.2012, 18:18 [ТС]
	опрос очередей сделал. но теперь хотелось бы вывести сообщение в случае, если операции записи/считывания байта завершилась не успешно по какой-то причине. TRCOMERR_READ, оказывается, интовая переменная. но компилятор говорит что выражение типа if ( TRCOMERR_READ != 0) {ShowMessage("Ошибка считывания")} всегда true (или false, не помню, короче не меняется). в чём причина? 0

@vxg Модератор 3407 / 2178 / 354 Регистрация: 13.01.2012 Сообщений: 8,448
	19.11.2012, 10:19
	TRCOMERR_READ - это не переменная это константа 0

@Max_92 28 / 10 / 1 Регистрация: 26.04.2010 Сообщений: 457
	19.11.2012, 12:34 [ТС]
	vxg, в чём тогда её смысл? как узнать, произошла ли ошибка при передаче? 0

@vxg Модератор 3407 / 2178 / 354 Регистрация: 13.01.2012 Сообщений: 8,448
	19.11.2012, 13:33
	я так понимаю функции возвращают код ошибки или есть общая функция возвращающая код последней ошибки. во эту ошибку и анализируют - либо сравнивают с константой либо складывают по битам. 0

@Shadow_i 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 10
	02.02.2013, 11:02
	Помогите!!! У меня вижуал си++ 2008 экспресс, и при загрузке либы #pragma comment (lib, "TrComPort_BCB.lib") вылазит ошибка : 1>LINK : fatal error LNK1104: не удается открыть файл "TrComPort_BCB.lib" 0

@vxg Модератор 3407 / 2178 / 354 Регистрация: 13.01.2012 Сообщений: 8,448
	02.02.2013, 13:10
	наверное либ файл другого формата - они для VS и BCB разные COFF и OMF 0