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

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

2015.05.08 01:04

아기사랑 조회 수:828

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 39524
공지 유용한 관련 사이트 관리자2 2014.03.20 79022
1012 ScrollBox안에 Edit 가상키보드 문제.. [4] 운직 2021.07.14 924
1011 XE8 Android에서 ini 파일 관련 문의 드립니다. [1] 비도리 2015.12.21 925
1010 델파이 7버전 다운로드 문의 [1] 정보개발팀 2017.06.26 926
1009 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 927
1008 Appmethod 사용시, 안드로이드 시뮬레이터 에러 [1] radio 2015.02.23 928
1007 [질문] Delphi XE7 - Check for Updates 대하여... [2] 델사냥 2014.12.10 928
1006 부팅시 자동실행(브로드캐스트 리시버)예제를 따라하니 앱이 강제 종료됩니다. [1] file 김태윤 2016.06.01 931
1005 Delphi 10 Seattle 에서 DevExpress v15.1.5 버전이 설치가 되지 않습니다. [3] 도사 2015.12.08 931
1004 coding in delphi 책 어디서 다운받을 수 있나요 [3] 해뜨는식당ㅋㅋ 2015.01.29 931
1003 기존 프로젝트를 다른 폴더로 옮긴후 사용하는 방법문의 [1] 희망나라 2015.03.10 938
1002 [kinvey]에러 문의 입니다. 초보델팡이 2020.02.13 939
1001 xe7 달력 앱 개발문의 [1] 사랑남 2015.03.12 939
1000 안드로이드에서 음성인식 및 TTS(Text To Speach) 델마당쇠 2020.03.03 940
999 cannot resolve unit name 'Winapi. windows' file charlesseo 2015.12.15 946
998 dephi 10.1 DBExpress MySQL 접속 문제 질문드립니다. [1] kevin 2020.11.19 947
997 윈도우즈 환경에서 TTS를 구현할 수 있나요? [3] 손보라 2016.05.31 951
996 글자 짤림문제 델펀맨 2016.09.20 955
995 [세미나: 데이터와 RAD] DataSnap 으로도 REST API 구현이 되는가요? 험프리 2020.06.24 959
994 안드로이드 앱 작성시 일부만 기본 스타일을 사용하고 싶습니다. [1] 델사냥 2014.12.11 959
993 델파이 xe 디버깅시 값확인 [1] 가나다 2019.03.08 962
쓰기
태그