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

Delphi XE7사용 블루투스 통신앱 안드로이드 롤리팝업그레이드 후 이상증세

2015.05.08 01:04

아기사랑 조회 수:751

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 Xe7예제 파일부분을 참조 했습니다.


그런데 앞전 테스트안드로이드 기기가 아이스크림샌트위치에서 지난달 롤리팝으로 업그레이드 하고난뒤 통신부분에서


데이터가 제대로 읽혀지거나 보내지지 않는거 같습니다.


클래식 블루투스 보내기 예제에서  

procedure TForm1.SendData;
var
  ToSend: TBytes;
  LDevice: TBluetoothDevice;
begin
  if (FSocket = nil) or (ItemIndex <> ComboboxPaired.ItemIndex) then
  begin
    if ComboboxPaired.ItemIndex > -1 then
    begin
      LDevice := FPairedDevices[ComboboxPaired.ItemIndex] as TBluetoothDevice;
      DisplayR.Lines.Add(GetServiceName(ServiceGUI));
      DisplayR.GoToTextEnd;
      FSocket := LDevice.CreateClientSocket(StringToGUID(ServiceGUI), False);
      if FSocket <> nil then
      begin
        ItemIndex := ComboboxPaired.ItemIndex;
        FSocket.Connect;
        ToSend := TEncoding.UTF8.GetBytes(Edit1.Text);
        FSocket.SendData(ToSend);
        DisplayR.Lines.Add('TX1:'+EDIT1.Text);
        DisplayR.GoToTextEnd;
      end
      else
        ShowMessage('Out of time -15s-');
    end
    else
      ShowMessage('No paired device selected');
  end
  else
  begin
    ToSend := TEncoding.UTF8.GetBytes(Edit1.Text);
    FSocket.SendData(ToSend);
    DisplayR.Lines.Add('TX2:'+EDIT1.Text);
    DisplayR.GoToTextEnd;
  end;
end;

클래식블루투스 예제 수신 부분

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;

아이스크림에서는 보내고 받고가 잘 하는데 롤리팝에서는 캐릭터는 날아가는거 같습니다. 예를 들면 1234 4자를 보내면

length(FData) 하면 4가 리턴이 됩니다. 근데 메모장에서는 아무것도 표시되지 않고 HEX로 보면 00넘어 옵니다 롤리팝에서

위와 같은 이슈가 있는지 있다면 해결방법이 있는지 알려주시기 바랍니다.

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15759
공지 유용한 관련 사이트 관리자2 2014.03.20 54576
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97971
793 퍼미션에 추가하려고하는데 항목이 없습니다. [1] file 처음처럼 2016.04.18 256
792 안드로이드 이미지 픽셀 추출 관련 질문 [1] hsson 2016.04.19 366
791 Tbeacon 사용 [1] file ddhdhdhww2 2016.04.15 110
790 컴파일과 저장관련 문의드립니다~ [1] syc 2016.04.12 132
789 지도위에 위치추적기능을 구현하려면? [2] silkroad99 2016.04.12 377
788 파이어버드에서 Create문을 델파이에서 사용하는 방법이 있나요? [1] 김태윤 2016.04.01 261
787 [질문] 험프리님 말씀하신대로 제가 작성한 내용 댓글 붙였습니다. 어떻게 수정하면 원하는 결과가 나오는지요? 델파이 정규식에서 어떻게 검색조건을 줘야 원하는 결과가 나올까요? [3] delphi 2016.04.05 783
786 인터넷 연결 가능 상태확인방법 알고 싶습니다. [1] 우석이 2016.04.04 1129
785 xe7로 DataSnap 사용하여 3티어로 작성 한 프로그램 remort error: Error reading servermethods2.clientheight: property clientheight does not exist오류가 납니다 [3] file delphi 2016.03.29 781
784 [안드로이드] 앱 배포후 업데이트시 overwrite 안됩니다.해결방법좀 알려주세요 ㅠ. [2] 한사람 2016.03.27 1350
783 데브기어 강의 - 2016년 3월 (첫 개강!) file 관리자 2015.01.22 3197
782 Delphi 10 Seattle Professional로 Upgrad중 입니다. [1] 도고래 2016.03.25 284
781 아래의 TCategoryButtons 의 동적생성 후 action의 동적생성 재 문의 [3] urong 2016.03.22 183
780 TWebBrowser 컴포넌트 관련 사항 [2] 자객 2016.03.22 621
779 [공유] 파이어몽키에서 Drag and drop은 어떻게 구현할 수 있나요? [1] 험프리 2016.03.21 320
778 pda폰 또는 안드로이드폰에 rfid 리더 모듈을 개발하려하는데 조언부탁드립니다. 여리낭군 2016.03.21 593
777 [공유] WebServer와 연동하는 예제나 컴퍼넌트가 있을까요? 험프리 2016.03.21 194
776 [공유] 파이어몽키 스타일 적용방법 험프리 2016.03.21 169
775 [공유] 실행 중 도형등의 크기를 변경하려면 어떻게 하나요? 험프리 2016.03.21 199
774 [도서][한 번에 개발하는 안드로이드/iOS with 델파이 1편] 7장.1.카메라로 사진찍기 - Invalid class typecast. 오류 발생 시 조치방법 file 험프리 2015.11.26 1164
쓰기
태그