Установка компонента TComPort

@tus1 · Регистрация: 13.10.2009

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

У меня такой вопрос. При инсталляции компонента TComPort в C++Builder 2007 появляется ошибка: Unable to open file 'DSGNCPOTLIB2007.bpi. Такого файла я у себя не нашел. При попытке стереть упоминания о нем в файле проекта, выдалась другая ошибка, якобы этот файл все-таки нужен. Кто-нибудь знает, в чем может быть проблема, или есть у кого-нибудь такой файл?
Спасибо.

@tus1 · 13.10.2009, 23:46 **[ТС]**

Может кто-нибудь подскажет другой хороший компонент для работы с ComPortoм в C++ Builder2007?

@vladi · 26.05.2010, 10:00

Только не ТComPort ,а TCommPort наверное.Я установил в Builder 6 правда.
Я нашел на

Комментарий модератора

Ссылка удалена.

Установил,открыть ком порт удалось.Померил осциллом сигнал на выводе ком порта.
А как передать данные в него????
Нифига нет описания и тестовая прога не компилируется.
Кто знает как пользоваться компонентом отзовитьесь!!!!!Бьюсь уже не один день!!!
Описание свойств компонента скинте,если есть.
Под Вин апи большая программа получается и трудная для понимания....
Готовые есть с Вин Апи но мне не надо этих всяких Memo и Edit - наворотов, там что написаны.
Нужно нажать на кнопочку,передать символ в Com port ну и т д.

@uggway · 26.05.2010, 10:57

Ну если просто послать байт в ком-порт, то проще вобще без компонентов

Вот из какой-то моей старой проги....
Инициализируешь порт в InitCom() и отправляешь байт SendByte().
После использования закрываешь порт CloseHandle(HComm);
Все предельно просто.

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
bool PortInit = false;
char ComBuf[1024];
int InBuf, ReadPtr;
HANDLE HComm;
 
 
void SendByte(byte b)
{      unsigned long sended;bool t;
        if (PortInit) {
           t=WriteFile(HComm,&b,1,&sended,NULL);
           if ((!t)|(sended != 1))
                MessageDlg("Не могу записать в порт!",mtError,TMsgDlgButtons() << mbOK, 0);       
}
 
void InitCom(void)
{
        _DCB Mode;
        _COMMTIMEOUTS TimeOuts;
 
      //инициализация
     if (!PortInit){
        HComm = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE,  0, 0,  OPEN_EXISTING,  0,   0);
        GetCommState(HComm,&Mode);
    Mode.BaudRate= 115200;
    Mode.ByteSize = 8;
    Mode.Parity = 0;
    Mode.StopBits = 2;
 
    if (HComm==INVALID_HANDLE_VALUE)
     {
         MessageDlg("Не могу открыть порт.",mtError,TMsgDlgButtons() << mbOK, 0);
     } else {
    SetCommState ( HComm, &Mode );
    // Устанавливаем таймауты
 
    TimeOuts.ReadIntervalTimeout = MAXLONG;
    TimeOuts.ReadTotalTimeoutMultiplier = 100;
    TimeOuts.ReadTotalTimeoutConstant = 100;
    TimeOuts.WriteTotalTimeoutConstant=100;
    TimeOuts.WriteTotalTimeoutMultiplier=100;
 
    SetCommTimeouts(HComm,&TimeOuts);
    PortInit=true;}
}
}

@vladi · 26.05.2010, 11:41

Что то не пошло.Вот код://---------------------------------------------------------------------------

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 
bool PortInit = false;
char ComBuf[1024];
int InBuf, ReadPtr;
HANDLE HComm;
 
 
void SendByte(byte b)
{      unsigned long sended;bool t;
        if (PortInit) {
           t=WriteFile(HComm,&b,1,&sended,NULL);
           if ((!t)|(sended != 1))
                MessageDlg("Не могу записать в порт!",mtError,TMsgDlgButtons() << mbOK, 0);       
}
 
void InitCom(void)
{
        _DCB Mode;
        _COMMTIMEOUTS TimeOuts;
 
      //инициализация
     if (!PortInit){
        HComm = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE,  0, 0,  OPEN_EXISTING,  0,   0);
        GetCommState(HComm,&Mode);
    Mode.BaudRate= 115200;
    Mode.ByteSize = 8;
    Mode.Parity = 0;
    Mode.StopBits = 2;
 
    if (HComm==INVALID_HANDLE_VALUE)
     {
         MessageDlg("Не могу открыть порт.",mtError,TMsgDlgButtons() << mbOK, 0);
     } else {
    SetCommState ( HComm, &Mode );
    // Устанавливаем таймауты
 
    TimeOuts.ReadIntervalTimeout = MAXLONG;
    TimeOuts.ReadTotalTimeoutMultiplier = 100;
    TimeOuts.ReadTotalTimeoutConstant = 100;
    TimeOuts.WriteTotalTimeoutConstant=100;
    TimeOuts.WriteTotalTimeoutMultiplier=100;
 
    SetCommTimeouts(HComm,&TimeOuts);
    PortInit=true;}
    }
   }
 
}
//---------------------------------------------------------------------------

ошибки:
Build
[C++ Error] Unit1.cpp(29): E2141 Declaration syntax error
[C++ Error] Unit1.cpp(71): E2139 Declaration missing ;
[C++ Error] Unit1.cpp(71): E2134 Compound statement missing }
[C++ Warning] Unit1.cpp(71): W8004 'PortInit' is assigned a value that is never used

А все-таки русского,хотя бы какого нить описания компонента TCommPort нет??
Или компонента,работающего и help а к нему?А?
Поможите,если сможете.

@uggway · 26.05.2010, 11:46

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
bool PortInit = false;
char ComBuf[1024];
int InBuf, ReadPtr;
HANDLE HComm;
 
 
void SendByte(byte b)
{ unsigned long sended;bool t;
if (PortInit) {
t=WriteFile(HComm,&b,1,&sended,NULL);
if ((!t)|(sended != 1))
MessageDlg("Не могу записать в порт!",mtError,TMsgDlgButtons() << mbOK, 0);
}
 
void InitCom(void)
{
_DCB Mode;
_COMMTIMEOUTS TimeOuts;
 
//инициализация
if (!PortInit){
HComm = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0);
GetCommState(HComm,&Mode);
Mode.BaudRate= 115200;
Mode.ByteSize = 8;
Mode.Parity = 0;
Mode.StopBits = 2;
 
if (HComm==INVALID_HANDLE_VALUE)
{
MessageDlg("Не могу открыть порт.",mtError,TMsgDlgButtons() << mbOK, 0);
} else {
SetCommState ( HComm, &Mode );
// Устанавливаем таймауты
 
TimeOuts.ReadIntervalTimeout = MAXLONG;
TimeOuts.ReadTotalTimeoutMultiplier = 100;
TimeOuts.ReadTotalTimeoutConstant = 100;
TimeOuts.WriteTotalTimeoutConstant=100;
TimeOuts.WriteTotalTimeoutMultiplier=100;
 
SetCommTimeouts(HComm,&TimeOuts);
PortInit=true;}
}
}
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
       InitCom();//инициализируем порт
       SendByte(0xFE);//посылаем байт 0xFE
       CloseHandle(HComm);//закрываем порт
}
//---------------------------------------------------------------------------

@vladi · 26.05.2010, 12:55

ЭЭЭхххх....

Все равно:
Build
[C++ Error] Unit1.cpp(32): E2141 Declaration syntax error
[C++ Error] Unit1.cpp(79): E2139 Declaration missing ;
[C++ Error] Unit1.cpp(79): E2134 Compound statement missing }

Видно не судьба нам обогнать японцев в электронике.

А я еще хотел принимать символы потом и еще по определённому алгоритму и записывать в разные мемо.
Даже сцуко символ не передается.

@uggway · 26.05.2010, 13:39

Ну неужели трудно прочитать то что говорит компилятор?
Не хватает закрывающей фигурной скобки "}" в строке 30 или 29... (Нужно закрыть функцию SendByte()). Куда-то она потерялась.

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

Видно не судьба нам обогнать японцев в электронике.

С таким подходом точно не судьба...

Вот примерно так можно читать из ком-порта.

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
//очистка буфера приема
void ClearCB(void){
while(ReadMessages()!=0);
for(int i=0;i<10000;i++)ComBuf[i]=0;
InBuf=0;
ReadPtr=0;
}
//прием сообщения в буфер ComBuf
int ReadMessages(void)
{
  unsigned long ErrorCode;
  COMSTAT StatPort;
  unsigned long BytesIn;
  unsigned long Readed;
     Readed=0;
     ClearCommError(HComm, &ErrorCode, &StatPort);
     BytesIn = StatPort.cbInQue;
     if (BytesIn>0 ){
       if (BytesIn>sizeof(ComBuf)-1)BytesIn = sizeof(ComBuf)-1;
       ReadFile(HComm,&ComBuf[ReadPtr],BytesIn,&Readed,NULL);
       recv+=Readed;
       ReadPtr+=Readed;
       InBuf+=Readed;
}
return Readed;
}

Вообще почти вся работа с ком-портом сводится к работе с ним как с файлом в простейшем случае.

Не в тему:... помойму люди разучаются думать...

@Atmel · 16.07.2010, 13:05

Мне понадобилось тоже отправлять побайтно в ком-порт, но в асинхронном режиме. Пока флаг FILE_FLAG_OVERLAPPED был равен 0, все вроде выполнялось, по крайней мере компилировалось без ошибок и осциллографом отмечал сигнал на TXD (правда, почему-то не было реакции на RXD).

Стоило установить FILE_FLAG_OVERLAPPED, как при посылке байта выдает сообщение "Не могу записать в порт".

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
52
53
54
55
56
57
58
59
60
61
62
63
64
bool PortInit = false;
char ComBuf[1024];
int InBuf, ReadPtr;
static int rs232_byte=0; //статическую – потому что потом надо будет подобрать байт в цикле
HANDLE HComm;
DWORD nb=0;
OVERLAPPED Overlapped = {0,0,0,0,0};
 
void InitCom(int _Baud, int _ByteSize, int _Parity, int _StopBits);
 
void SendByte(byte b)
{ 
  unsigned long sended;
  bool t;
 if (PortInit)
 {
  t=WriteFile(HComm,&b,1,&sended,&Overlapped);
  if ((!t)|(sended != 1))
// также здесь пробовал просто « if (sended != 1) » - все равно не пишет
  MessageDlg("Не могу записать в порт",mtError,TMsgDlgButtons() << mbOK, 0);
 }
}
 
void InitCom(int _Baud, int _ByteSize, int _Parity, int _StopBits)
{
 _DCB Mode;
 _COMMTIMEOUTS TimeOuts;
 
 //Инициализация порта
 if (!PortInit)
 {
  HComm = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, NULL);
  GetCommState(HComm,&Mode);
  Mode.BaudRate= _Baud;
  Mode.ByteSize = _ByteSize;
  Mode.Parity = _Parity;
  Mode.StopBits = _StopBits;
 
  if (HComm==INVALID_HANDLE_VALUE)
  {
   MessageDlg("Не могу открыть порт",mtError,TMsgDlgButtons() << mbOK, 0);
  }
  else
  {
   SetCommState ( HComm, &Mode );
 
   // Устанавливаем тайм-ауты
   TimeOuts.ReadIntervalTimeout = MAXLONG;
   TimeOuts.ReadTotalTimeoutMultiplier = 100;
   TimeOuts.ReadTotalTimeoutConstant = 100;
   TimeOuts.WriteTotalTimeoutConstant=100;
   TimeOuts.WriteTotalTimeoutMultiplier=100;
 
   SetCommTimeouts(HComm,&TimeOuts);
   PortInit=true;}
  }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
       InitCom(9600, 8, 0, 1);//инициализация
       rs232_byte=0x46; //пусть отправляемый байт равен этому значению
       SendByte(rs232_byte);//отправим байт
}

Чего не хватает?

И еще вопрос - а разве функция WriteFile() что-либо возвращает? (я про t=WriteFile() в функции SendByte(byte b) )

Добавлено через 21 час 26 минут
В строке 19 пробовал также
if (sended ==0)

@tus1 · 22.02.2012, 13:47 **[ТС]**

В продолжение темы:
нет ли компонента для работы с компортом, поддерживаемого Builder XE?
Последний вариант ComPort Library от Dejan Crnila поддерживает только дельфи последней версии, и билдер - нет. Или как можно сконвертировать его?

cpp_developer · 22.02.2012, 14:06

COM-порт в Windows
Работа с последовательными портами (Статья)

Настройка порта:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
HANDLE TForm1::OpenAndSetupPort (UnicodeString APortName, int ASpeed, int AByteSize, int AParity, int AStopBits)
{
HANDLE ComHandle;
DCB ComDCB;
COMMTIMEOUTS ComTimes;
UnicodeString Msg = "\\\\.\\" + APortName.UpperCase();
 
ComHandle = CreateFile(Msg.t_str(), GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
if (ComHandle == INVALID_HANDLE_VALUE)
  {
  Msg = "Ошибка при открытии порта " + APortName + ":\n" + GetLastError(); goto OnError;
  }
 
ZeroMemory(&ComDCB, sizeof(ComDCB));
ComDCB.DCBlength = sizeof(ComDCB);
if (!GetCommState(ComHandle, &ComDCB))
  {
  Msg = "Ошибка при получении параметров порта " + APortName + ":\n" + GetLastError(); goto OnError;
  }
ComDCB.BaudRate = ASpeed;
ComDCB.ByteSize = AByteSize;
ComDCB.Parity   = AParity;
ComDCB.StopBits = AStopBits;
ComDCB.fBinary  = 1;
ComDCB.fParity  = (ComDCB.Parity != NOPARITY) ? 1 : 0;
ComDCB.fOutxCtsFlow = 0;
ComDCB.fOutxCtsFlow = false;
ComDCB.fOutxDsrFlow = false;
ComDCB.fDtrControl = DTR_CONTROL_DISABLE;
ComDCB.fDsrSensitivity = false;
ComDCB.fNull = false;
ComDCB.fRtsControl = RTS_CONTROL_DISABLE;
ComDCB.fOutX = 0;
ComDCB.fInX = 0;
ComDCB.fAbortOnError = false;
if (!SetCommState(ComHandle, &ComDCB))
  {
  Msg = "Ошибка при настройке параметров порта " + APortName + ":\n" + GetLastError(); goto OnError;
  }
 
if (!GetCommTimeouts(ComHandle, &ComTimes))
  {
  Msg = "Ошибка при получении таймаутов порта " + APortName + ":\n" + GetLastError(); goto OnError;
  }
ComTimes.ReadIntervalTimeout         = MAXDWORD;
ComTimes.ReadTotalTimeoutMultiplier  = 0;
ComTimes.ReadTotalTimeoutConstant    = 300;
ComTimes.WriteTotalTimeoutMultiplier = 0;
ComTimes.WriteTotalTimeoutConstant   = 0;
if (!SetCommTimeouts(ComHandle, &ComTimes))
  {
  Msg = "Ошибка при настройке таймаутов порта " + APortName + ":\n" + GetLastError(); goto OnError;
  }
 
SetupComm(ComHandle, 1024, 1024);
PurgeComm(ComHandle, PURGE_RXCLEAR | PURGE_TXCLEAR);
 
ErrorInfo = "Успешно завершено";
return ComHandle;
 
OnError:
if (ComHandle != INVALID_HANDLE_VALUE) CloseHandle(ComHandle);
 
ErrorInfo = Msg;
return NULL;
}

Отправка в порт:

C++
1
2
3
4
5
6
7
8
9
DWORD temp;
 BYTE comanda[4];
 comanda[0] = 0x00;
 comanda[1] = 0x00;
 comanda[2] = 0x01;
 comanda[3] = 0xB0;
 
 WriteFile(ComHandle, &comanda, 4, &temp, NULL);  //Отправляем команду прибору
 ReadFile(ComHandle, &comanda, 4, &temp, NULL);

UnicodeString применяю по причине использования Builder XE: функция CreateFile в первом параметре требует wchar_t.

@tus1 · 22.02.2012, 15:19 **[ТС]**

Да, наверно ничего не поделаешь, придется осваивать API ф-ции...)

cpp_developer · 22.02.2012, 15:20

мне кажется, что так более гламурно

@_engineer_ · 22.02.2012, 16:00

Вот Вам класс для начало изучение API функций Com порта.
P.S. Вас должен интересовать только класс SerialPort, есть небольшие рудименты от других классов, просто удалите их.
P.P.S. коллега говорит, что смог его запустить на Builder XE (писал этот класс лет 7 назад, поэтому цитирую классика LK, не помню как точно у него, но смысл такой: "поддержки кода не осуществляю" )

@tus1 · 22.02.2012, 16:06 **[ТС]**

ОК, спасибо. Посмотрим.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@tus1 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 62

	Установка компонента TComPort 13.10.2009, 03:37. Показов 16077. Ответов 14 Метки нет (Все метки) У меня такой вопрос. При инсталляции компонента TComPort в C++Builder 2007 появляется ошибка: Unable to open file 'DSGNCPOTLIB2007.bpi. Такого файла я у себя не нашел. При попытке стереть упоминания о нем в файле проекта, выдалась другая ошибка, якобы этот файл все-таки нужен. Кто-нибудь знает, в чем может быть проблема, или есть у кого-нибудь такой файл? Спасибо. 0

@tus1 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 62
	13.10.2009, 23:46 [ТС]
	Может кто-нибудь подскажет другой хороший компонент для работы с ComPortoм в C++ Builder2007? 0

@vladi 0 / 0 / 0 Регистрация: 12.02.2009 Сообщений: 13
	26.05.2010, 12:55
	ЭЭЭхххх.... Все равно: Build [C++ Error] Unit1.cpp(32): E2141 Declaration syntax error [C++ Error] Unit1.cpp(79): E2139 Declaration missing ; [C++ Error] Unit1.cpp(79): E2134 Compound statement missing } Видно не судьба нам обогнать японцев в электронике. А я еще хотел принимать символы потом и еще по определённому алгоритму и записывать в разные мемо. Даже сцуко символ не передается. 0

@tus1 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 62
	22.02.2012, 13:47 [ТС]
	В продолжение темы: нет ли компонента для работы с компортом, поддерживаемого Builder XE? Последний вариант ComPort Library от Dejan Crnila поддерживает только дельфи последней версии, и билдер - нет. Или как можно сконвертировать его? 0

@tus1 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 62
	22.02.2012, 15:19 [ТС]
	Да, наверно ничего не поделаешь, придется осваивать API ф-ции...) 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	22.02.2012, 15:20
	мне кажется, что так более гламурно 0

@tus1 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 62
	22.02.2012, 16:06 [ТС]
	ОК, спасибо. Посмотрим. 0