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

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

2015.05.08 01:04

아기사랑 조회 수:762

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 20046
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
799 바코드 Generator 관련 질문 [1] 유레너스 2015.05.13 330
798 [XE8 웹세미나] 웹 환경의 업무 프로젝트 개발이 얼마나 편리한가요? Humphery 2015.05.13 260
797 [XE8 웹세미나] 유니코드관련 델파이 마이그레이션 정보를 알고 싶습니다. Humphery 2015.05.13 216
796 [XE8 웹세미나] 비콘 센서와 연동하는 방법에 대해 자세히 알고 싶습니다. Humphery 2015.05.13 649
795 [XE8 웹세미나] 멀티디바이스 플랫폼과 데이터스냅서버(파이어댁으로 db연결) 시 db커넥션이 두개씩 생성이 되던데, 그 이유? 혹은 어떤 설정이 잘못된것인지? 정상적인 데모소스를 구할수 있는지요? [1] 관리자 2015.05.08 409
794 리스트박스 PACKETRECORDS [6] 김하나 2015.05.08 549
793 XE7에서 개발한 앱을 XE8에서 컴파일시 질문입니다. [1] 희망나라 2015.05.09 330
792 [XE8 웹세미나] 실행중 발생하는 Access violation시 클래스명이라도 표시 해줬으면 디버깅 속도 개선에 많은 도움이 될듯합니다. [1] 관리자 2015.05.08 415
» XE7사용 블루투스 통신앱 안드로이드 롤리팝업그레이드 후 이상증세 [1] 아기사랑 2015.05.08 762
790 [XE8 웹세미나] 기존 델파이 5/7/XE3 와 같이 설치 개발 가능한지 궁금합니다 관리자 2015.05.08 278
789 [XE8 웹세미나] reFind.exe를 XE이하 환경에서도 쓸 수 있는 방법을 알고 싶네요. 관리자 2015.05.08 363
788 델파이로 스마트폰 전화번호 가져요기 가능한가여? [1] 코더만들기 2015.05.04 3129
787 아이폰 앱 글자깨짐 [2] file 사랑남 2015.04.23 1178
786 XE7에서 Mac IOS Simulator 연결 문제. [2] kmtl 2015.04.30 565
785 [XE8 출시세미나] RAD Studio XE8 출시세미나 질문과 답변 Humphery 2015.05.01 2251
784 [XE8 출시세미나] RAD Studio 2007에서 XE8로 마이그레이션할 때 검토해야할 사항은 어떤 것이 있나요? [1] 관리자 2015.04.30 280
783 [XE8 출시세미나] 기존에 유니코드가 아니라 ANSI를 사용하고 있습니다. 델파이 2009 버전 이상에서는 무조건 유니코드를 써야하나요? 업그레이드 하더라도 ANSI를 계속 사용하려면 어떻게 하나요? [1] 관리자 2015.04.30 382
782 [XE8 출시세미나] 구글글래스 앱을 만들어야 하는 프로젝트가 있습니다. 델파이로 개발할 수 있나요? [1] 관리자 2015.04.30 501
781 [XE8 출시세미나] 델파이로 윈도우 메트로 UI를 구현할 수 있다고 했는데, 인텔 윈도우가 아닌 윈RT 앱도 만들 수 있나요? [1] 관리자 2015.04.30 438
780 [XE8 출시세미나] 데이터스냅 서버나 EMS 서버를 확장 (Scale out) 할 수 있나요? [1] 관리자 2015.04.30 471
쓰기
태그