자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi [질문] 블루투스 송,수신...

2016.12.28 11:50

천재일우 조회 수:774

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

델파이 시애틀로 개발중입니다.

 

블루투스를 이용한 데이타(TEXT)를 송.수신  하려고 합니다 

 

(테스트 환경)

PC(windows) ---- (블루투스연결)---- > 블루투스 모듈 2.0 ----- (RS232 연결)----- >  PC(Windows)

 

 

문제가  되는 부분 이라고 예상되는 부분

 

procedure TServerConnectionTH.execute;
var
  ASocket: TBluetoothSocket;
  Msg: string;
begin
  while not Terminated do
    try
      ASocket := nil;
      while not Terminated and (ASocket = nil) do
        ASocket := FServerSocket.Accept(100);

      if(ASocket <> nil) then
      begin
        FSocket := ASocket;
        while not Terminated do
        begin
          FData := ASocket.ReadData;
          if length(FData) > 0 then
            Synchronize(procedure
              begin
                Form1.DisplayR.Lines.Add(TEncoding.UTF8.GetString(FData));
                Form1.DisplayR.GoToTextEnd;
              end);
          sleep(100);
        end;
      end;
    except
      on E : Exception do
      begin
        Msg := E.Message;
        Synchronize(procedure
          begin
            Form1.DisplayR.Lines.Add('Server Socket closed: ' + Msg);
            Form1.DisplayR.GoToTextEnd;
          end);
      end;
    end;
end;

 

이내용은 제공되는 기본예제인 Classic Bluetooth Basic app와 동일 합니다.

 

 

PC와 블루투스모듈 (블루투스 연결 후 ) 

 

 PC에서 블루투스 모듈로 ( TEXT를 송신을 하면 ) 블루투스 모듈에서 PC(RS232)로 RX 로 수신은 정상적으로 됩니다.

문제점

 PC(RX232) 로 블루투스 모듈로 (TEXT를 송신을 하면 ) 블루투스 모듈을 통해서 PC(블루투스) 수신을 할려고 하는데

 해당부분에서  

while not Terminated and (ASocket = nil) do

         ASocket := FServerSocket.Accept(100);

무한루프를 돌며, 소켓에 값이 전달이 되지 않습니다. (디버깅을 해서 보아도 스레드의 값은 NIL .....)

///  하지만 From1.Fscockt.Readdata의 값은 NIL 이 아닌 필자가 보낸 Text를 가지고 있습니다.

 

이해를 잘못하고 있는것인지 '';.... 모르겠네요 ..

 

첨부파일은 소스입니다. 

 

 

목적 : PC와 블루투스모듈과 블루투스 연결되어 데이터 송,수신 될수 있도록 하려고 합니다.

      안드로이드(핸드폰,테블릿)과 블루투스 모듈과 블루트스 연결하여 데이터 송,수신 할려고 합니다.

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58977
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102605
1619 1개의 LIcense로 C++ Builder와 Delphi 사용이 가능한지? [3] techwon 2017.01.05 193
1618 안드로이드에서 앱 설치 시 External에 저장하게 하는 방법입니다. file 푸른솔 2017.01.05 365
1617 C++ 빌더에서 델파이 소스를 보다가 다시 빌드를 하면 에러 발생 techwon 2017.01.05 154
1616 시애틀을 사용하고 있는데, 베를린 업데이트2를 설치하려고 합니다. 삭제 후 설치해야 하나요? 관리자 2017.01.05 121
1615 폼에서 에디터체 포커스가 갔을때 왜 가상키보드가 안먹을까? [2] file 화이부동 2017.01.03 449
1614 [질문] 블루투스 BLE를 이용하여 블루투스 단말기와 스마트폰 간의 데이터 송수신 방법 데브기어 2016.12.30 458
1613 웹페이지 파라미터를 안드로이드에서 어떻게 보내나요? [1] SongTHs 2016.12.29 279
» [질문] 블루투스 송,수신... [2] file 천재일우 2016.12.28 774
1611 [질문] 안드로이드몬의 효과음 실행은요? [1] 화현 2016.12.27 261
1610 [축하드립니다!] 개발자 Q&A 게시판 우수 답변자 선정 관리자 2016.12.27 211
1609 윈도우10 에서 BLE 검색 [1] 서영아빠 2016.12.26 646
1608 Invalid Imagelist Index 오류 문의 [1] file 데브기어 2016.12.26 327
1607 애플 푸시알림을 사용하기 위해서 설정하는 방법은? [1] 화이부동 2016.12.22 351
1606 RAD 스튜디오 베를린 10.1에서 Graphics32 지원하나요? [2] Bishop 2016.12.19 515
1605 QR CODE Component Natura 2016.12.22 265
1604 [질문] TMemo, TText에서 문자단위로 WordWrap(줄바꿈) 하는 방법 [2] file 푸른솔 2016.12.21 812
1603 간혹 . 를 찍어도 아무런 반응이 없는 경우.. 가나당 2016.12.22 110
1602 Android Virtual Device [2] file Natura 2016.12.19 470
1601 Access Violation 발생 시 예외발생 위치 찾는 방법이 있어 공유합니다. [2] 나즈나 2016.11.28 1633
1600 델파이 10 에서 립모션 설정 방법좀 알고 싶습니다. [1] 한사람 2016.12.12 193