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

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

2015.05.08 01:04

아기사랑 조회 수:761

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 19663
공지 유용한 관련 사이트 관리자2 2014.03.20 58614
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102137
1019 앱설치시 홈화면에 바로가기 만들기 문의 [2] 김태윤 2016.04.07 779
1018 Baas를 이용하지 않고 구글 푸시 서비스(FCM)를 이용하는 방법 문의 드립니다. [5] 김태윤 2017.01.25 780
1017 Troubleshooting: Cannot Deploy an Application for Android [1] 민돌이 2015.01.27 780
1016 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 781
1015 델파이 xe 디버깅시 값확인 [1] 가나다 2019.03.08 782
1014 정적배열의 초기화 문제? [1] 스카이 2017.06.29 783
1013 카메라 실행 오류문의 [2] file kim 2015.11.16 783
1012 [공유] 파이어몽키 콤보박스의 글자 크기를 변경하고 싶습니다. 험프리 2019.02.20 784
1011 TEdit 박스 한글로 선택후 입력시 선택된 문자를 덮어쓰지 않는 문제 [5] file 운땡최향태 2016.08.04 784
1010 델파이로 Jsp,php 등 웹서버와 통신할수 있나요? [2] 드레곤 2016.05.26 790
1009 델파이 Query.Reflesh와 DataSource.DataSet.ReFlesh의 차이점은? [1] 스카이 2018.07.31 790
1008 xe7 앱개발 [1] file 사랑남 2015.02.25 790
1007 델파이의 intraweb은 ASP.NET과 비교해 어떤 장점이 있나요? [1] 베스트드레곤 2015.04.10 790
1006 XE7에서는 개선이 되었는지 궁금합니다. [1] ScorpioM 2014.12.22 790
1005 xe8에서 iphone device 연결방법문의? [2] silkroad99 2015.05.19 791
1004 Access Violation 에러 때문에 map파일로 확인하려고 하는데 잘 안됩니다ㅜ [1] file 맛재현 2017.04.24 792
1003 [질문] XE7에서 CPORT 컴파일 후 인스톨 시 에러 file 신지 2015.02.09 793
1002 DB를 읽어오는 부분에 속도문제 (이미지포함) [1] 김하나 2015.05.28 794
1001 dll(.net assembley) 추가 [2] bugfix 2015.01.02 797
1000 iphone 생성된 Provisioning profile 아이폰6에 등록 방법문의 file 사랑남 2015.05.15 799
쓰기
태그