|
안녕하세요... 이곳에서 빌더에 대해 많은것을 항상 배워가는 유저입니다.
PC와 개발 Board간에 Serial 통신 프로그램을 작성하게 되어 개발 도중... 문제가 발생하여 질문드립니다.
에러 상황은 Comport1->Closer() 호출시 가끔 try문에도 잡히지 않는 다운 증상이 나타납니다.
그때 해당 프로그램 CPU사용율을 보면 47%~50%(테스트 PC가 듀오여서 한쪽 CPU를 다 사용하는것으로 보입니다.)사용하며 동작하지 않습니다.
가만보니 무한루프에 빠져있어 보이네요 ^^;;
제가 몇가지 테스트 해본 결과는 다음과 같습니다.
1. Serial RX, TX가 없는 상황에서 Comport Open(), Close()는 100% 정상 동작합니다.
2. RX만 보내도 Tx만 보내도 아니면 둘다 다 보내더라도 가끔 Close시 다운 증상이 나타납니다.
3. Tx, Rx 보내는 딜레이를 빠르게 하면 할수록 다운 증상은 더 빨리 나타납니다.
4. 추적 결과 확실히 Comport1->Close(); 구문에서 잡혀 있습니다.
갑갑합니다. 뭔가 해결 방안이나 아니면 피해 갈수 있는 방법이 있는지 간절히 조언 부탁드립니다.
간단한 테스트 소스를 첨부하겟습니다.
테스트 환경은 PC는 Windows XP pro이고 Builder6.0에서 프로그래밍 했습니다. 사용 컴포넌트는 CPort-3.10과 Indy9.0의 Thread 컴포넌트를 사용했습니다.
//##########################################
//##########################################
//######## unit1.h
//##########################################
//##########################################
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "CPort.hpp"
#include "CPortCtl.hpp"
#include "IdThreadComponent.hpp"
#include <IdBaseComponent.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TComPort *ComPort1;
TComComboBox *ComComboBox1;
TComComboBox *ComComboBox2;
TComLed *ComLed1;
TComLed *ComLed2;
TComLed *ComLed3;
TButton *Button1;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TListBox *Debug_ListBox;
TEdit *Edit1;
TButton *Button2;
TIdThreadComponent *IdThreadComponent1;
TIdThreadComponent *IdThreadComponent2;
TEdit *Edit2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall IdThreadComponent1Run(
TIdCustomThreadComponent *Sender);
void __fastcall IdThreadComponent2Run(
TIdCustomThreadComponent *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
PAsync Serial_TX_AsyncPtr;
PAsync Serial_RX_AsyncPtr;
AnsiString DebugMsg;
void __fastcall DisplayDebugLog(void);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//##########################################
//##########################################
//######## unit1.cpp
//##########################################
//##########################################
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma link "CPortCtl"
#pragma link "IdThreadComponent"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
InitAsync(Form1->Serial_RX_AsyncPtr);
InitAsync(Form1->Serial_TX_AsyncPtr);
}
//---------------------------------------------------------------------------
#define MAX_DEBUG_LINE 100
void __fastcall TForm1::DisplayDebugLog(void) {
try {
#if 1
// ListBox GUI Update Stop
Form1->Debug_ListBox->Items->BeginUpdate();
int DelLineCnt = Form1->Debug_ListBox->Count - (MAX_DEBUG_LINE-1) ;
// Delete Old line
if ( DelLineCnt > 0 )
while (DelLineCnt--)
Form1->Debug_ListBox->Items->Delete(DelLineCnt);
// Display Message
Form1->Debug_ListBox->Items->Add(Form1->DebugMsg);
// Set Fource at Last Line
Form1->Debug_ListBox->ItemIndex = Form1->Debug_ListBox->Items->Count-1;
// ListBox GUI Update Start
Form1->Debug_ListBox->Items->EndUpdate();
#endif
#if 0
if ( Form1->CheckBox1->Checked ) {
FILE *out;
if((out=fopen(DebugFileName.c_str(),"at")) == NULL) {
ShowMessage("Failed write to config file");
return;
}
fputs(Form1->DebugMsg.c_str(),out); fputs("\n\r",out);
fclose(out);
}
#endif
} catch ( ... ) {
ShowMessage("Exception : DisplayDebugLog");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int cnt = 0;
try {
if ( ComPort1->Connected ) { // Disconnect
if ( Form1->ComPort1->IsAsyncCompleted(Serial_RX_AsyncPtr) ) {
Form1->ComPort1->WaitForAsync(Serial_RX_AsyncPtr);
}
if ( Form1->ComPort1->IsAsyncCompleted(Serial_TX_AsyncPtr) ) {
Form1->ComPort1->WaitForAsync(Serial_TX_AsyncPtr);
}
cnt = 0;
while ( !Form1->IdThreadComponent1->Stopped ) {
Form1->DebugMsg = "try IdThreadComponent1 stop : "+IntToStr(cnt);
Form1->IdThreadComponent1->Synchronize(&(Form1->DisplayDebugLog));
Form1->IdThreadComponent1->Stop();
Sleep((unsigned long)100);
cnt++;
}
cnt = 0;
while ( !Form1->IdThreadComponent2->Stopped ) {
Form1->DebugMsg = "try IdThreadComponent2 stop : "+IntToStr(cnt);
Form1->IdThreadComponent1->Synchronize(&(Form1->DisplayDebugLog));
Form1->IdThreadComponent2->Stop();
Sleep((unsigned long)100);
cnt++;
}
Application->ProcessMessages();
Sleep((unsigned long)100);
Form1->ComPort1->Close();
Form1->Button1->Caption = "Connect";
} else { // Connect
Form1->ComPort1->Open();
Form1->IdThreadComponent1->Start();
Form1->IdThreadComponent2->Start();
Form1->Button1->Caption = "Disconnect";
}
} catch ( ... ) {
ShowMessage("Exception : Button1Click");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if ( Form1->Button2->Caption == "Send" ) {
Form1->IdThreadComponent2->Start();
Form1->Button2->Caption = "Stop";
} else {
Form1->IdThreadComponent2->Stop();
Form1->Button2->Caption = "Send";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdThreadComponent1Run(
TIdCustomThreadComponent *Sender)
{
try {
int Serial_Rd_Cnt = Form1->ComPort1->InputCount();
if ( Serial_Rd_Cnt ) {
char *rx_buf = (char *)malloc( Serial_Rd_Cnt * sizeof(char));
Form1->ComPort1->ReadAsync(rx_buf, Serial_Rd_Cnt, Serial_RX_AsyncPtr);
//Form1->ComPort1->Read(rx_buf, Serial_Rd_Cnt);
Form1->DebugMsg = "RX ("+IntToStr(Serial_Rd_Cnt) + ") : ";
for ( int i = 0 ; i < Serial_Rd_Cnt ; i++ ) {
Form1->DebugMsg += IntToHex(rx_buf[i],2) + " ";
}
Form1->IdThreadComponent1->Synchronize(&(Form1->DisplayDebugLog));
free(rx_buf);
}
Sleep((unsigned long)1);
} catch ( ... ) {
ShowMessage("Exception : IdThreadComponent1Run");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdThreadComponent2Run(
TIdCustomThreadComponent *Sender)
{
try {
int length = Form1->Edit1->Text.Length();
char *buf = (char *)malloc(length * sizeof(char));
memcpy( buf, Form1->Edit1->Text.c_str(),length);
Form1->ComPort1->WriteAsync(buf, length, Serial_TX_AsyncPtr);
Form1->DebugMsg = "TX ("+IntToStr(length) + ") : ";
for ( int i = 0 ; i < length ; i++ ) {
Form1->DebugMsg += IntToHex(buf[i],2) + " ";
}
Form1->IdThreadComponent2->Synchronize(&(Form1->DisplayDebugLog));
free(buf);
Sleep((unsigned long)StrToIntDef(Form1->Edit2->Text, 100));
} catch ( ... ) {
ShowMessage("Exception : IdThreadComponent2Run");
}
}
//---------------------------------------------------------------------------
|
