Robię aplikację okienkową w Builder C++ do komunikacji przez UART tzn. wysyłam znak z PC i odbieram dane z uC.
Na początku próbuję uruchomić gotowe programy z książki "RS232 Programowanie praktyczne" Daniluka i za każdym razem wyskakuje mi przy otwieraniu COM6 następujący komunikat
"Niewłaściwa nazwa portu lub port jest aktywny"
Czy ktoś spotkał się już z takim problemem?
Podaję kod:
[syntax=cpp]#include <vcl.h>
#pragma hdrstop
#include "Unit_05_09.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
#define cbOutQueue 1024 //rozmiar bufora danych wyjściowych
#define cbInQueue 1024 //rozmiar bufora danych wejściowych
#define TIMER_INTERVAL 1 //przedział czasu próbkowania Timera
TForm1 *Form1;
AnsiString newFile; // przechowuje nazwę pliku
HFILE hfile; // identyfikator pliku
char bufferOut[cbOutQueue]; // bufor danych wyjściowych
char bufferIn[cbInQueue]; // bufor danych wejściowych
DWORD bytesRead ; // liczba bajtów do czytania
HANDLE hCommDev; // identyfikator portu
LPCTSTR portName; // wskaźnik do nazwy portu
DCB dcb; // struktura kontroli portu szeregowego
DWORD fdwEvtMask; // informacja o aktualnym stanie transmisji
COMSTAT comstat; // dodatkowa informacja o zasobach portu
DWORD errors; // reprezentuje typ ewentualnego błędu
BOOL bResult ; // zmienna boolowska
LPCTSTR sbuffer1 = "Zamknięcie aplikacji";
LPCTSTR sbuffer2 = "Uwaga !";
LPCTSTR sbuffer3 = " Łącze będzie monitorowane do czasu"
" odebrania znaku.";
LPCTSTR sbuffer4 = "Zawartość pliku lub okna została"
" zmieniona. Zapisać zmiany ?";
LPCTSTR sbuffer5 = "Niewłaściwa nazwa portu lub port jest"
" aktywny.";
LPCTSTR sbuffer6 = "Nie wybrano pliku do transmisji.";
//--------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------
BOOL __fastcall TForm1::closeSerialPort(HANDLE hCommDev)
{
return CloseHandle(hCommDev);
}
//--------------------------------------------------------------
BOOL __fastcall TForm1::writeSerialPort(HANDLE hCommDev,
DWORD numberOfBytesToWrite)
{
DWORD numberOfBytesWritten;
GetCommMask(hCommDev, &fdwEvtMask);
SetCommMask(hCommDev, EV_TXEMPTY);
if (WriteFile(hCommDev, &bufferOut[0], numberOfBytesToWrite,
&numberOfBytesWritten, NULL) == TRUE)
return WaitCommEvent(hCommDev, &fdwEvtMask, NULL);
else
return FALSE;
}
//--------------------------------------------------------------
BOOL __fastcall TForm1::readSerialPort(HANDLE hCommDev, LPDWORD
lpNumberOfBytesRead, DWORD bufSize)
{
DWORD numberOfBytesToRead;
*lpNumberOfBytesRead = 0;
ClearCommError(hCommDev, &errors ,&comstat);
if (comstat.cbInQue > 0) {
if (comstat.cbInQue > bufSize)
numberOfBytesToRead = bufSize;
else
numberOfBytesToRead = comstat.cbInQue;
}
return ReadFile(hCommDev, &bufferIn[0], numberOfBytesToRead,
lpNumberOfBytesRead, NULL);
}
//--------------------------------------------------------------
void __fastcall TForm1::CloseCommClick(TObject *Sender)
{
Timer1->Enabled = FALSE;
CheckFileSave();
closeSerialPort(hCommDev);
Application->Terminate();
}
//--------------------------------------------------------------
void __fastcall TForm1::CheckFileSave(void)
{
if (RichEdit1->Modified) {
switch(MessageBox(NULL, sbuffer4, sbuffer2,
MB_YESNOCANCEL | MB_ICONQUESTION))
{
case ID_YES : FileSaveClick(this);
case ID_CANCEL : Abort();
};
}
}
//--------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
OpenDialog1->InitialDir = ExtractFilePath(ParamStr(0));
OpenDialog1->Filter =
"*.dat , *.txt, *.cpp, *.c | *.dat; *.txt; *.cpp; *.c";
SaveDialog1->InitialDir = OpenDialog1->InitialDir;
SaveDialog1->Filter = "*.*|*.*";
Timer1->Enabled = FALSE;
Timer1->Interval = TIMER_INTERVAL;
CheckComm->Enabled = FALSE;
FileOpen->Hint = "Otwórz plik";
FileOpen->ShowHint = TRUE;
FileSave->Hint = "Zapisz";
FileSave->ShowHint = TRUE;
CopyText->Hint = "Kopiuj";
CopyText->ShowHint = TRUE;
PasteText->Hint = "Wklej";
PasteText->ShowHint = TRUE;
CutText->Hint = "Wytnij";
CutText->ShowHint = TRUE;
CleanBuffers->Hint = "Wyczyść bufory";
CleanBuffers->ShowHint = TRUE;
ReceiveFileSave->Hint = "Zapisz otrzymane";
ReceiveFileSave->ShowHint = TRUE;
}
//--------------------------------------------------------------
void __fastcall TForm1::FileOpenClick(TObject *Sender)
{
CheckFileSave();
if (OpenDialog1->Execute()) {
RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
RichEdit1->Modified = FALSE;
RichEdit1->ReadOnly =
OpenDialog1->Options.Contains(ofReadOnly);
}
}
//--------------------------------------------------------------
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
if (! strcmp(newFile.c_str(), LoadStr(256).c_str()))
SaveAs1Click(Sender);
else {
RichEdit1->Lines->SaveToFile(newFile);
RichEdit1->Modified = FALSE;
}
}
//--------------------------------------------------------------
void __fastcall TForm1::CopyTextClick(TObject *Sender)
{
RichEdit1->CopyToClipboard();
}
//--------------------------------------------------------------
void __fastcall TForm1::PasteTextClick(TObject *Sender)
{
RichEdit1->PasteFromClipboard();
}
//--------------------------------------------------------------
void __fastcall TForm1::CutTextClick(TObject *Sender)
{
RichEdit1->CutToClipboard();
}
//--------------------------------------------------------------
void __fastcall TForm1::UndoClick(TObject *Sender)
{
if (RichEdit1->HandleAllocated())
SendMessage(RichEdit1->Handle, EM_UNDO, 0, 0);
}
//--------------------------------------------------------------
void __fastcall TForm1::SelectAllClick(TObject *Sender)
{
RichEdit1->SelectAll();
}
//--------------------------------------------------------------
void __fastcall TForm1::CleanBuffersClick(TObject *Sender)
{
for (int i = 0; i < cbInQueue; i ++) {
bufferIn[i] = NULL;
RichEdit1->Text = bufferIn;
}
for (int i = 0; i < cbOutQueue; i ++) {
bufferOut[i] = NULL;
RichEdit2->Text = bufferOut;
}
//memset(bufferOut, 0, cbOutQueue);
//memset(bufferIn, 0, cbInQueue);
ProgressBar1->Max = 0;
}
//--------------------------------------------------------------
void __fastcall TForm1::OpenCommClick(TObject *Sender)
{
if (CheckBox1->Checked == TRUE) // wybór portu
portName = "COM1";
if (CheckBox2->Checked == TRUE)
portName = "COM2";
if (CheckBox5->Checked == TRUE)
portName = "COM6";
hCommDev = CreateFile(portName, GENERIC_READ |
GENERIC_WRITE, 0, NULL,
OPEN_EXISTING, 0, NULL);
if (hCommDev != INVALID_HANDLE_VALUE)
// sprawdza, czy port jest otwarty prawidłowo
{
SetupComm(hCommDev, cbInQueue, cbOutQueue);
dcb.DCBlength = sizeof(dcb);
GetCommState(hCommDev, &dcb);
if (CheckBox3->Checked == TRUE) // wybór prędkości
dcb.BaudRate = CBR_1200;
if (CheckBox4->Checked == TRUE)
dcb.BaudRate = CBR_19200;
if (CheckBox6->Checked == TRUE)
dcb.BaudRate = CBR_9600;
dcb.Parity = NOPARITY; // ustawienie parzystości
dcb.StopBits = ONESTOPBIT; // bity stopu
dcb.ByteSize = 8; // bity danych
//-przykładowe ustawienia flag sterujących DCB-
dcb.fParity = TRUE;
dcb.fDtrControl = DTR_CONTROL_DISABLE;
dcb.fRtsControl = RTS_CONTROL_DISABLE;
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE;
dcb.fDsrSensitivity = FALSE;
dcb.fAbortOnError = FALSE;
dcb.fOutX = FALSE;
dcb.fInX = FALSE;
dcb.fErrorChar = FALSE;
dcb.fNull = FALSE;
dcb.EofChar = FALSE;
SetCommState(hCommDev, &dcb);
}
else
{
switch ((int)hCommDev)
{
case IE_BADID:
MessageBox(NULL, sbuffer5, sbuffer2, MB_OK);
break;
};
}
}
//--------------------------------------------------------------
void __fastcall TForm1::SendFileClick(TObject *Sender)
{
DWORD fileSizeHigh;
CheckComm->Enabled = FALSE;
ProgressBar1->Max = 0;
if ((_lopen(OpenDialog1->FileName.c_str(), OF_READ))!=
HFILE_ERROR) {
hfile =_lopen(OpenDialog1->FileName.c_str(), OF_READ );
ProgressBar1->Max = GetFileSize((HANDLE)hfile,
&fileSizeHigh);
while (_lread(hfile, &bufferOut[0], 1)) {
writeSerialPort(hCommDev, 1);
ProgressBar1->StepIt();
}
_lclose(hfile);
FlushFileBuffers(hCommDev);
}
else
MessageBox(NULL, sbuffer6, sbuffer2, MB_OK);
}
//--------------------------------------------------------------
void __fastcall TForm1::SendWrittenClick(TObject *Sender)
{
if ((hCommDev != INVALID_HANDLE_VALUE) && (hCommDev > 0)) {
CheckComm->Enabled = FALSE;
strcpy(bufferOut, RichEdit1->Lines->Text.c_str());
writeSerialPort(hCommDev, strlen(bufferOut));
FlushFileBuffers(hCommDev);
}
else
MessageBox(NULL, sbuffer5, sbuffer2, MB_OK);
}
//--------------------------------------------------------------
void __fastcall TForm1::ReceiveClick(TObject *Sender)
{
if ((hCommDev != INVALID_HANDLE_VALUE) && (hCommDev > 0)) {
CheckComm->Enabled = TRUE;
RichEdit2->Clear();
GetCommMask(hCommDev, &fdwEvtMask);
SetCommMask(hCommDev, EV_RXCHAR );
bResult = readSerialPort(hCommDev, &bytesRead, sizeof(bufferIn));
if (bResult && bytesRead != 0) {
RichEdit2->Text = bufferIn;
Edit2->Text= " Dane zostały przetransferowane.";
}
}
else
MessageBox(NULL, sbuffer5, sbuffer2, MB_OK);
}
//--------------------------------------------------------------
void __fastcall TForm1::OpenClick(TObject *Sender)
{
CheckFileSave();
if (OpenDialog1->Execute()) {
RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
RichEdit1->Modified = FALSE;
RichEdit1->ReadOnly =
OpenDialog1->Options.Contains(ofReadOnly);
}
}
//--------------------------------------------------------------
void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) { // dane będą zapisywane w
// formacie Rich !
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
RichEdit1->Modified = FALSE;
}
}
//--------------------------------------------------------------
void __fastcall TForm1::TimerOnTimer(TObject *Sender)
{
if (WaitCommEvent(hCommDev, &fdwEvtMask, NULL) == TRUE) {
// sprawdza czy nadszedł znak
Beep();
Edit2->Text = " Transfer danych.";
GetCommMask(hCommDev, &fdwEvtMask);
SetCommMask(hCommDev, EV_TXEMPTY);
Timer1->Enabled = FALSE;
CheckComm->Enabled = FALSE;
}
}
//--------------------------------------------------------------
void __fastcall TForm1::ReceiveFileSaveClick(TObject *Sender)
{
if (SaveDialog1->Execute()) {
RichEdit2->Lines->SaveToFile(SaveDialog1->FileName);
RichEdit2->Modified = FALSE;
}
}
//--------------------------------------------------------------
void __fastcall TForm1::NewClick(TObject *Sender)
{
CheckFileSave();
RichEdit1->Lines->Clear();
RichEdit1->Modified = FALSE;
}
//--------------------------------------------------------------
void __fastcall TForm1::CheckCommClick(TObject *Sender)
{
if (Application->MessageBox(sbuffer3 , sbuffer2,
MB_OKCANCEL) != IDOK) {
CheckComm->Enabled = FALSE;
Timer1->Enabled = FALSE;
Abort();
}
else {
Timer1->Enabled = TRUE;
Edit2->Text = "Łącze jest monitorowane.";
}
/*if (MessageDlg(" Łącze będzie monitorowane do czasu
" odebrania znaku.", mtConfirmation,
TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
{
Timer1->Enabled = TRUE;
Edit2->Text = "Łącze jest minitorowane.";
}
else
{
CheckComm->Enabled = FALSE;
Timer1->Enabled = FALSE;
Abort();
}*/
}
//-----------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender,
TCloseAction &Action)
{
Action=caFree;
}
//------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender,
bool &CanClose)
{
if (RichEdit1->Modified)
{
switch(MessageBox(NULL, sbuffer1, sbuffer2,
MB_YESNOCANCEL | MB_ICONQUESTION))
{
case mrYes:
CheckFileSave();
break;
case mrNo:
CanClose=FALSE;
break;
case mrCancel:
CanClose=FALSE;
break;
}
}
}
//--------------------------------------------------------------[/syntax]
PozdrawiamStatystyki: Napisane przez Lukasz_wat — 6 mar 2014, o 09:28
]]>
