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

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

2015.05.08 01:04

아기사랑 조회 수:829

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 39571
공지 유용한 관련 사이트 관리자2 2014.03.20 79078
1032 MS-SQL DB에 smalldatetime type 일자저장시 data overflow (status = 6h) 에러 [2] delphi 2018.04.23 434
1031 쇼핑몰 결제시스템 연동 문의 지병철 2018.04.23 451
1030 C/C#으로 만들어진 SDK 델파이에서 사용방법. [3] 엔달 2018.04.25 546
1029 Tokyo 10.2 Starter Edition Component 관련 질문 [2] goinma 2018.04.30 387
1028 IdHTTP 이용시 한글 깨짐현상 file 브로아 2018.05.01 2192
1027 한글깨짐 모바일맨 2018.05.02 696
1026 iOS 11.3 개발 시 PrivateFrameworks 관련 에러 [4] 스카이 2018.05.03 644
1025 groupbox 및 checkbox 등의 font color 변경 안되는 사항 [2] goinma 2018.05.03 2293
1024 델파이 FireMonkey Sample&Help 별도 설치 관련 [2] 허준영 2018.05.04 564
1023 iblite 및 라이센스는 어떻게 다운로드 하나요? [2] netpcc26 2018.05.08 408
1022 XE 버전 사용하여 앱(APP) 개발 가능한가요?? [2] 전수정 2018.05.08 335
1021 윈도우10 PRO에서 DBGrid 한글 깨짐이 발생합니다. [1] file LSM 2018.05.09 723
1020 스피드버튼으로 한글 입력 되도록 할 때 Delphi7 은 이상이 없는데 XE10 은 한글이 쪼개집니다. [2] 막스뮐러 2018.05.09 3961
1019 iOS 에서 Bluetooth Low Energy 검색이 안되는데, 저만의 문제인가요? [1] 지병철 2018.05.11 345
1018 GCM 프로그래밍 어떻게??? [2] netpcc26 2018.05.11 363
1017 FMX REST 오류에 대해 문의 드립니다. [2] 호홍호 2018.05.12 366
1016 어플리케이션 배포시에.. [2] 미크 2018.05.14 454
1015 IBTOGO INSTALL시 에러. file 미크 2018.05.15 422
1014 TButton에 TImage를 Child로 만들었는데.. [1] 미크 2018.05.16 380
1013 uses permission으로 설정한 권한 런타임시 허용 대화상자 띄우는 방법이 궁금합니다. [1] 김태윤 2018.05.24 808
쓰기
태그