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

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

2015.05.08 01:04

아기사랑 조회 수:751

클래식 블루투스통신으로 통신앱을 만들었는데 참조는 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 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54581
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97992
473 xe8에서 iphone device 연결방법문의? [2] silkroad99 2015.05.19 774
472 [Q&A] XE8 세미나에서 나온 질문과 답변을 정리했습니다. 관리자 2015.05.20 496
471 MacinCloud 설정에 문의 드립니다. [2] silkroad99 2015.05.18 540
470 IDFTP.List 한글 깨짐에 대한 답변 관련해서 .... [1] jcitec 2015.05.16 1013
469 ios 앱 개발 아이콘 변경문의 [2] file 사랑남 2015.05.15 1939
468 iphone 생성된 Provisioning profile 아이폰6에 등록 방법문의 file 사랑남 2015.05.15 786
467 델파이 초보자 문의드립니다. [2] 유세형 2015.05.14 242
466 [무료 세미나] 초대합니다! RAD Studio XE8 출시 세미나!(서울&대구) 관리자 2015.04.08 2765
465 IdFTP 에서 한글깨짐 문제 해결 방법 없나요 ? [3] jcitec 2015.05.12 1847
464 [XE8 웹세미나] EMS관련 상세 자료나 참고할 만한 링크를 소개해주세요. Humphery 2015.05.13 267
463 바코드 Generator 관련 질문 [1] 유레너스 2015.05.13 312
462 [XE8 웹세미나] 웹 환경의 업무 프로젝트 개발이 얼마나 편리한가요? Humphery 2015.05.13 235
461 [XE8 웹세미나] 유니코드관련 델파이 마이그레이션 정보를 알고 싶습니다. Humphery 2015.05.13 202
460 [XE8 웹세미나] 비콘 센서와 연동하는 방법에 대해 자세히 알고 싶습니다. Humphery 2015.05.13 628
459 [XE8 웹세미나] 실행중 발생하는 Access violation시 클래스명이라도 표시 해줬으면 디버깅 속도 개선에 많은 도움이 될듯합니다. [1] 관리자 2015.05.08 401
» XE7사용 블루투스 통신앱 안드로이드 롤리팝업그레이드 후 이상증세 [1] 아기사랑 2015.05.08 751
457 [XE8 웹세미나] 기존 델파이 5/7/XE3 와 같이 설치 개발 가능한지 궁금합니다 관리자 2015.05.08 264
456 [XE8 웹세미나] reFind.exe를 XE이하 환경에서도 쓸 수 있는 방법을 알고 싶네요. 관리자 2015.05.08 349
455 델파이로 스마트폰 전화번호 가져요기 가능한가여? [1] 코더만들기 2015.05.04 3115
454 아이폰 앱 글자깨짐 [2] file 사랑남 2015.04.23 1142
쓰기
태그