Tutorial에 있는 강의를 봤는데염~~

흑흑.. 언제 강의가 올라오나.. 목 빠지게 기둘리고 있답니다.

또.. 책에 있는데로..
컴포트 열려구.. CreateFile() 썼구여..
통신 Parameter같은거 Setting할려구... GetCommProperties() 등등.. 썻구여~
했는데.. 여기까지는 에러 없이(?) 잘 가는 거 같은데...
문자를 보내서.. Send하는 부분에서.. 먹통이 되버려여.. (WriteFile)...

기냥.. 쪼금.. 부끄럽지만... 소스 다~ 올릴께영~

참!! 글구.. 질문 하나더!

   return 1L;   return 2L;  이러던데..

1L.. 2L이 뭔가여???

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Cbo_Comport->ItemIndex = 1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Btn_ConnectClick(TObject *Sender)
{
  char CommName[4];
  strcpy(CommName, Cbo_Comport->Text.c_str());
  CommName[4] = '\0';

  cc.dwSize = sizeof(COMMCONFIG);
  cc.dcb.BaudRate = CBR_9600;

  CommConfigDialog(CommName, Handle, &cc);

  if((hComm = CreateFile(CommName,GENERIC_READ|GENERIC_WRITE,
    0,NULL, OPEN_EXISTING,0,NULL))==INVALID_HANDLE_VALUE)
  {
        ShowMessage("Error opening COM Port");
        return;
  }

  cc.dcb.fOutxCtsFlow = true;
  cc.dcb.fRtsControl = true;

  if(!SetCommState(hComm, &cc.dcb)) {
        CloseHandle(hComm);
        ShowMessage("포트 설정 Error");
        return;
  }

  cp.wPacketLength = sizeof(COMMPROP);
  GetCommProperties(hComm, &cp);

  Reading = TRUE;

  if((hThread = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)ReadThread,
         NULL, 0, &id)) == INVALID_HANDLE_VALUE)
  {
        ShowMessage(" Error Creating Read Thread");
        CloseHandle(hComm);
        return;
  }
  //Memo1->SetFocus();
  Edit1->SetFocus();
}
//---------------------------------------------------------------------------


void CommError(DWORD dwError)
{
  LONG lrc;
  COMSTAT cs;

  ClearCommError(hComm, (LPDWORD)&lrc, &cs);
  CloseHandle(hComm);
}

void __fastcall TForm1::Btn_DisConnectClick(TObject *Sender)
{
   Reading = false;
   ResumeThread(hThread);

  
   SetCommMask(hComm, 0L);
   while(GetExitCodeThread(hThread, &id))
   {
     if(id == STILL_ACTIVE)
       continue;
     else
       break;
   }

   CloseHandle(hThread);
   CloseHandle(hComm);
}
//---------------------------------------------------------------------------
DWORD ReadThread()
{
  char inbuff[BUFSIZ];
  DWORD nBytesRead;

  if(!(cp.dwProvCapabilities & PCF_INTTIMEOUTS))
    return 1L;

  memset(&to, 0, sizeof(to));
  to.ReadIntervalTimeout = MAXDWORD;
  SetCommTimeouts(hComm, &to);

  while(Reading)
  {
    if(!ReadFile(hComm, inbuff, BUFSIZ, &nBytesRead, NULL))
    {
      CommError(GetLastError());
    }
    else
    {
      if(nBytesRead)
        Form1->ProcessBytes(inbuff, nBytesRead);
    }
  }

  PurgeComm(hComm, PURGE_RXCLEAR|PURGE_TXCLEAR);

  return 0L;
}

void __fastcall TForm1::ProcessBytes(char *inbuff, int nBytesRead)
{
  int i;
  char Ch, buff[100];

  memset(buff, NULL, 100);
  for(i=0; i<nBytesRead; i++)
  {
    buff[i]=inbuff[i];
  }
  Memo1->Lines->Add(buff);
}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------


//---------------------------------------------------------------------------


void __fastcall TForm1::Msg_SendClick(TObject *Sender)
{
  LONG lrc;
  int nBytes, i;
  char Buff[100];

  nBytes = Edit1->Text.Length();
  strcpy(Buff, Edit1->Text.c_str());
  Memo1->Lines->Add(Edit1->Text);
  Edit1->SetFocus();

  for(i = 0; i<nBytes; i++) {
    char Ch = Buff[i];
    if(!WriteFile(hComm, (LPBYTE)&Ch, 1, (LPDWORD)&lrc, NULL))
    {
       CommError(GetLastError());
    }
  }
  return;
}