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

Delphi 전화통화 중인지... 확인

2017.05.31 11:38

지니 조회 수:1683

안녕하세요.

델파이 10.2 트라리얼 버젼를 사용 중입니다.

 

안드로이드 스마트폰이 통화 중인지 아닌지.. 알려고 확인하려 합니다.

델파이 예제 중.. Phone Dialer 이 있는데..

이곳에.. 소스를 추가하여 통화중인지, 통화하는 중인지, 통화가 끝난건지.. 확인하려 하는데..

잘 안되는데.. 소스 확인 부탁드립니다.

 

unit uMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.PhoneDialer,
  FMX.Platform, FMX.Edit, FMX.ListBox, FMX.Layouts, FMX.Controls.Presentation;

type
  TPhoneDialerForm = class(TForm)
    btnGetCarrierInfo: TButton;
    btnMakeCall: TButton;
    edtTelephoneNumber: TEdit;
    lblTelephoneNumber: TLabel;
    ToolBar1: TToolBar;
    Label1: TLabel;
    ListBox1: TListBox;
    CarrierNameItem: TListBoxItem;
    CountryCodeItem: TListBoxItem;
    NetworkCodeItem: TListBoxItem;
    MobileNetworkItem: TListBoxItem;
    lblCallState: TLabel;
    procedure btnGetCarrierInfoClick(Sender: TObject);
    procedure btnMakeCallClick(Sender: TObject);
    procedure MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
  private
    { Private declarations }
    PhoneDialerService: IFMXPhoneDialerService;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;

var
  PhoneDialerForm: TPhoneDialerForm;

implementation

{$R *.fmx}

constructor TPhoneDialerForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
  if Assigned(PhoneDialerService) then
    PhoneDialerService.OnCallStateChanged := MyOnCallStateChanged;
end;

procedure TPhoneDialerForm.MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
var outText: String;
Begin
  case ACallState of
    TCallState.None:      outText := 'No calls';
    TCallState.Connected: outText := 'Connected';
    TCallState.Incoming:  outText := 'Incoming call';
    TCallState.Dialing:   outText := 'Dialing';
    TCallState.Disconnected: outText := 'Disconnected';
  end;

  lblCallState.Text := outText;
End;

procedure TPhoneDialerForm.btnGetCarrierInfoClick(Sender: TObject);
{var
  PhoneDialerService: IFMXPhoneDialerService;}

begin
  { test whether the PhoneDialer services are supported }
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
  begin
    { if yes, then update the labels with the retrieved information }
    CarrierNameItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetCarrierName;
    CountryCodeItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetIsoCountryCode;
    NetworkCodeItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetMobileCountryCode;
    MobileNetworkItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetMobileNetwork;
  end
  else
    ShowMessage('PhoneDialer service not supported');
end;

procedure TPhoneDialerForm.btnMakeCallClick(Sender: TObject);
var
  PhoneDialerService: IFMXPhoneDialerService;

begin
  { test whether the PhoneDialer services are supported }
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
  begin
    { if the Telephone Number is entered in the edit box then make the call, else
      display an error message }
    if edtTelephoneNumber.Text <> '' then
      PhoneDialerService.Call(edtTelephoneNumber.Text)
    else
    begin
      ShowMessage('Please type in a telephone number.');
      edtTelephoneNumber.SetFocus;
    end;
  end
  else
    ShowMessage('PhoneDialer service not supported');
end;

end.

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 39730
공지 유용한 관련 사이트 관리자2 2014.03.20 79231
909 [IoT 세미나] 비콘 배터리는 얼마나 가나요? Humphery 2015.09.03 614
908 바코드스캔이 넘느려서 질문드립니다 [1] 화현 2019.11.23 614
907 애플앱 등록시 에러나는 경우 silkroad99 2015.08.25 615
906 핸드폰에서 이미지를 불러서 저장하는 부분을 잘몰라서요 [4] 종결자 2019.10.01 615
905 NetHTTPClient1 오류 질문입니다. [2] file 델파이안드로이드 2019.10.17 615
904 [질문] TEdgeBrowser 에서 새창 크기 문제 [1] 겨울아이 2021.02.10 615
903 안드로이드 버전 6.0 이상부터 IDHTTP 사용이 안됩니다. [6] 루피 2017.01.25 617
902 Webbrowser에서 오픈시 과거 데이타를 가져오는 듯한 느낌은? [4] 화이부동 2016.12.06 617
901 [공유] 비콘으로 어린이집 원아 관리해보려고 합니다. 참고할 자료가 있을까요? 험프리 2017.08.11 617
900 MariaDB 10에 입력하는데 한글만 포함되면 임의의 값이 추가되어 입력됩니다 [1] 아폴로 2020.04.05 617
899 TSQLQuery 사용시 operation not supported [1] 영들사랑 2020.12.30 618
898 uses절 추가 에러 문의드립니다 [2] syc 2016.08.17 619
897 GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i])) 에러... [1] 왕초보 2018.03.16 619
896 DBExpress 와 MySQL 연결관련 문의 [1] file 대화마을 2017.06.08 620
895 폼의 시작 이벤트 변경 원인 (소스포함) [7] file 젠틀 2019.05.07 620
894 방사형 차트 문의 [1] jhgg 2015.08.06 620
893 반투명폼 위에 올려져 있는 컨트롤들을 선명하게... [1] 파랑 2017.02.16 620
892 [Q&A] XE8 세미나에서 나온 질문과 답변을 정리했습니다. 관리자 2015.05.20 621
891 delphi 10.2 sdk 설정 관련 문의 [1] file 신우 2018.09.07 622
890 LOCKBOX의 CODEC컴포넌트에서 AES 복호화시 유니코드 에러 입니다 ㅠ 돌떵이이11 2021.04.20 622
쓰기
태그