C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[39291] 소스 한번 보고 질문에 답글좀 남겨 주세요..제발
초보멋진빌더 [songsoro] 780 읽음    2005-02-25 23:23
232통신 장비 관련입니다.
데이터는 지금 보시는 데로 read data command 를 보내면
데이터를 바로 장비에서 긁어 올 수 있습니다.
지금 메모장에 서 받고 있는데 한 라인에 8byte  씩 짤려  표기만 되네요..
메모장에 이렇게 나타 납니다.
1.000,1.
234,5.67
8,1.100,
1.100,1.
154,5.66

이런식으로 "," 기준으로 9개가 나옵니다.
이 데이터를 TStringGrid로 옮기려 합니다.   한번만 도와 주세요..

//---------------------------------------------------------------------------
//*******************  Read_Data Command Setting **************************//
//---------------------------------------------------------------------------

void __fastcall TTform::Button_ReadClick(TObject *Sender)
{

AnsiString Str_Read;

       Str_Read.sprintf("\x02\x44\x03\x42");
       ComPort1-> WriteStr(Str_Read);
       Memo2-> Lines -> Add(" DownLoad Start ");
}

//---------------------------------------------------------------------------
//*******************  Read Data DownLoad *********************************//
//---------------------------------------------------------------------------

void __fastcall TTform::ComPort1RxChar(TObject *Sender, int Count)
{

String            stBuffer, stString = "";
int               Read_Count;
char              chByte;
unsigned char     ReceiveBuffer[4096];


ComPort1->ReadStr(stBuffer, Count);

for(Read_Count = 0; Read_Count < stBuffer.Length(); Read_Count ++) {
   ReceiveBuffer[Read_Count] = stBuffer.c_str()[Read_Count];

   chByte   = stBuffer.c_str()[Read_Count];
   stString = stString + chByte;
}
Memo1->Lines->Add(stString);

  if(Count == 0)
  Memo2 -> Lines-> Add("Buffer Empty");
  if(Count % 9)
  Memo2 -> Lines-> Add("Buffer Error");
  if(Count == 9)
  Memo2 -> Lines-> Add("Read Data DownLoad Success");

}
//---------------------------------------------------------------------------

+ -

관련 글 리스트
39291 소스 한번 보고 질문에 답글좀 남겨 주세요..제발 초보멋진빌더 780 2005/02/25
39302     Re:소스 한번 보고 질문에 답글좀 남겨 주세요..제발 smleelms 934 2005/02/27
39310         내용무.. 정말 감사 합니다. 초보멋진빌더 625 2005/02/28
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.