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

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

2015.05.08 01:04

아기사랑 조회 수:755

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 17218
공지 유용한 관련 사이트 관리자2 2014.03.20 56089
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99530
633 델파이7 마이그레이션 문의 [1] 오기영 2019.07.23 738
632 StringGrid와 Query Component와의 바인딩에 대한 질문입니다 투덜이스머프 2014.12.29 738
631 windows 7 , delphi xe5 에서의 LoadLibrary 가 실행되지 않습니다. [1] 쭈니쿤 2016.01.12 741
630 Rest 파라미터 한글 문제...? 헨씀히포 2017.10.11 743
629 [질문] 블루투스 송,수신... [2] file 천재일우 2016.12.28 745
628 component 추가 하는 방법 알려주세요. [2] del 2018.01.24 745
627 [XE8 출시세미나] EMS 푸쉬에서 클라이언트에서 푸쉬메시지 수신확인이 가능한가요? [1] Humphery 2015.04.30 745
626 윈도우10 크리에이터스 업데이트 후 DateTimePicker 관련 오류문제 [3] 루키 2017.05.02 749
625 델파이 6 소스 컴파일 및 빌드 오류 건 문의드립니다. [1] 다니엘 2017.09.14 749
624 델파이 xe 디버깅시 값확인 [1] 가나다 2019.03.08 749
623 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 751
622 반투명 판넬을 만들고 싶습니다. [1] 원우아빠 2017.09.20 753
» XE7사용 블루투스 통신앱 안드로이드 롤리팝업그레이드 후 이상증세 [1] 아기사랑 2015.05.08 755
620 dephi 10.1 DBExpress MySQL 접속 문제 질문드립니다. [1] kevin 2020.11.19 755
619 delphi 10 seattle 버전 아이폰 앱 컴파일 오류 [5] file 사랑남 2015.09.23 756
618 델파이 Query.Reflesh와 DataSource.DataSet.ReFlesh의 차이점은? [1] 스카이 2018.07.31 757
617 BindingsList1 properties의 autobuffercount [1] silkroad99 2015.01.27 758
616 2010 사용자 입니다. ime 한글 모드 전환문제 radio 2015.04.08 759
615 xe8 에서 mssql서버 접속방법 [1] 윤영일 2015.07.18 761
614 "Ignore this exception type" 다시 활성화 방법문의 드립니다. [1] file 슈크림 2020.01.31 761
쓰기
태그