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

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

2015.05.08 01:04

아기사랑 조회 수:753

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 15947
공지 유용한 관련 사이트 관리자2 2014.03.20 54752
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98219
473 Datasnap(midas) 사용시 조회 자료를 ADOQuery 에 넣고 싶습니다. [1] 블랙 2019.06.13 172
472 ClientDataSet 사용중입니다. 이미지 또는 파일을 테이블에 넣을시 에러입니다. 어떻게들 하시나요? [1] 블랙 2019.06.14 211
471 델파이 10.3.1에서 IOS 환경 설정 관련해서 질문 드려요. [3] 짱구 2019.06.15 215
470 델파이5 Indy9 소켓 관련 문의 땡이 2019.06.19 155
469 제브라 프린터 한글 출력 문제 [2] max 2019.06.19 1555
468 혹시 창 사이즈 고정하는 방법이 있을까요? 짱구 2019.06.21 240
467 XE5 Firemonkey Mobile 넓다란세상 2019.06.22 65
466 쇼핑몰 결제시스템관련 질문 유정 2019.06.24 196
465 XE5 겔럭시디바이스 연결 [2] file 넓다란세상 2019.06.24 147
464 PluginMain.pas(14): E2225 Never-build package 'F8PluginCore' must be recompiled file ucucucu 2019.06.24 174
463 Data Explorer의 dbExpress 항목에 누락된 것이 있습니다. 루키 2019.06.24 112
462 델파이 시애틀 사용자입니다. MariaDB [2] 시리온느 2019.06.25 306
461 [RAD Server] REST API 접속자의 IP 알수있는 방법? [1] 1seo77 2019.06.26 277
460 10.3 ImageViewer에서 crop 기능문의 [1] file 파란하늘 2019.07.01 140
459 appearance 이용시 datetimepicker 표시 오류 file 파란하늘 2019.07.04 216
458 Delphi 툴을 활용하여 윈도우프로그램에 광고 붙이기 HEETS 2019.07.04 216
457 BaaS 연동개발 문의 [2] 이치고 2019.07.09 161
456 BDE 10.3 Rio 설치시, oracle client 미인식 문제 [1] file 하히후헤호 2019.07.11 426
455 Rio 10.3 에서 사용할수 있는 WebSocket 이 있으면 추천좀 해주세요 [1] 이치고 2019.07.12 996
454 Richedit 하아퍼링크 속성 DB 저장에 관하여 [1] 델마당쇠 2019.07.16 250
쓰기
태그