자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54581
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97992
1019 2010 사용자 입니다. ime 한글 모드 전환문제 radio 2015.04.08 748
1018 [bcc32c Error] GdiplusPath.h(146) reference to 'byte' is ambiguous [2] 하루 2019.11.15 749
1017 "Ignore this exception type" 다시 활성화 방법문의 드립니다. [1] file 슈크림 2020.01.31 749
1016 C++builder 10.1 Berlin DLL에 vcl 테마 적용 방법 질문 [5] file gildong 2020.03.19 749
1015 앱설치시 홈화면에 바로가기 만들기 문의 [2] 김태윤 2016.04.07 749
1014 BindingsList1 properties의 autobuffercount [1] silkroad99 2015.01.27 750
1013 [공유] 파이어몽키 콤보박스의 글자 크기를 변경하고 싶습니다. 험프리 2019.02.20 751
» XE7사용 블루투스 통신앱 안드로이드 롤리팝업그레이드 후 이상증세 [1] 아기사랑 2015.05.08 751
1011 배포시 borlndmm.dll 찾지못하는 문제때문에 문의 드려요. [2] 현수막 2017.10.25 753
1010 xe8 에서 mssql서버 접속방법 [1] 윤영일 2015.07.18 754
1009 delphi 10 seattle 버전 아이폰 앱 컴파일 오류 [5] file 사랑남 2015.09.23 754
1008 혹시 LIN통신 해보신분 계신가요.. [1] 공감 2019.11.22 755
1007 RADSTUDIO XE3 컴포넌트 지원 관련 질문입니다 술그머니홍구 2014.11.20 756
1006 Baas를 이용하지 않고 구글 푸시 서비스(FCM)를 이용하는 방법 문의 드립니다. [5] 김태윤 2017.01.25 757
1005 [세미나: 데이터와 RAD] DataSnap 으로도 REST API 구현이 되는가요? 험프리 2020.06.24 757
1004 DB를 읽어오는 부분에 속도문제 (이미지포함) [1] 김하나 2015.05.28 758
1003 델파이로 Jsp,php 등 웹서버와 통신할수 있나요? [2] 드레곤 2016.05.26 759
1002 기존 프로젝트를 다른 폴더로 옮긴후 사용하는 방법문의 [1] 희망나라 2015.03.10 759
1001 XE8 Android에서 ini 파일 관련 문의 드립니다. [1] 비도리 2015.12.21 759
1000 BindingsList1 properties의autobuffercount ? [5] silkroad99 2015.01.22 761
쓰기
태그