Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: FireMonkey
Войти
Регистрация
Восстановить пароль
 
antonkis2002
0 / 0 / 0
Регистрация: 18.12.2016
Сообщений: 35
1

Создаю дайлер в Delphi

10.09.2017, 09:10. Просмотров 326. Ответов 4
Метки нет (Все метки)

Привет. ДРУЗЬЯ. Я пытаюсь написать дайлер для андроид, точнее, экран входящего вызова Caller ID. Очень прошу помощи, т.к. не разбираюсь в этом. Есть ссылка, http://docwiki.embarcadero.com/RADSt...OS_and_Android), но я не совсем понимаю что-то. Я создаю программу, пишу, как там, и надписи "взодящий вызов", "вызов закончен" у меня в приложении не отображаются! В чем проблема??
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2017, 09:10
Ответы с готовыми решениями:

Создаю команду)) из начинающих программистов, для совместного разробатывания программ)))))
Я хочу собрать группу начинающих программистов, которые работают в сфере...

Какие отличия Delphi 5, Delphi 6 и Delphi 7
Кто-нибудь юзал Delphi 6? Если да, то напишите, плиз, его отличия от 5-ой...

Новая редакция Delphi: Delphi XE Starter Edition
Хочется запостить новость. Сегодня Embarcadero представила новую редакцию...

Что использовать - Delphi XE6 или Delphi 7?
Delphi EX6 или Delphi 7? Какая разница(интерфейс не трогать)? Где больше...

Создаю MP3 плеер в Delphi
Доброе время суток. Пишу MP3 плеер в Delphi (курсовая). Такой вопрос: как...

4
qwertehok
2306 / 2210 / 602
Регистрация: 29.08.2013
Сообщений: 14,759
10.09.2017, 14:11 2
Цитата Сообщение от antonkis2002 Посмотреть сообщение
Я пытаюсь написать дайлер для андроид
Цитата Сообщение от antonkis2002 Посмотреть сообщение
не разбираюсь в этом
так может стоит сначала разобраться?
может надо сначала начать?

Цитата Сообщение от antonkis2002 Посмотреть сообщение
В чем проблема??
проблема в коде, код ты не показал, значит только телепат угадает в чем проблема

ЗЫ и версию делфи не написал
1
antonkis2002
0 / 0 / 0
Регистрация: 18.12.2016
Сообщений: 35
10.09.2017, 16:23  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
// This software is Copyright (c) 2015 Embarcadero Technologies, Inc.
// You may only use this software if you are an authorized licensee
// of an Embarcadero developer tools product.
// This software is considered a Redistributable as defined under
// the software license agreement that comes with the Embarcadero Products
// and is subject to that software license agreement.
 
//---------------------------------------------------------------------------
 
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;
    Timer1: TTimer;
    procedure btnGetCarrierInfoClick(Sender: TObject);
    procedure btnMakeCallClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    //procedure MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
  private
    { Private declarations }
    PhoneDialerService: IFMXPhoneDialerService;
   procedure MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
 
 
  public
    { Public declarations }
     constructor Create(AOwner: TComponent); override;
  end;
 
var
  PhoneDialerForm: TPhoneDialerForm;
  outText: String;
 
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.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;
 
procedure TPhoneDialerForm.Button1Click(Sender: TObject);
begin
lblCallState.Text := outText;
end;
 
procedure TPhoneDialerForm.MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
 
 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;
 
end.
Delphi 10.2 Architect
0
qwertehok
2306 / 2210 / 602
Регистрация: 29.08.2013
Сообщений: 14,759
10.09.2017, 16:39 4
Running the Application
Important: Before running your Delphi application on an Android device, verify that the following permissions are set in
Project > Options > Uses Permissions for the All configurations - Android platform target:
Call phone
Read phone state
For more information, see Uses Permissions.
сделал?

Не по теме:

Цитата Сообщение от antonkis2002 Посмотреть сообщение
Я пытаюсь написать дайлер для андроид
самое интересное тут местоимение "Я"))))

0
antonkis2002
0 / 0 / 0
Регистрация: 18.12.2016
Сообщений: 35
10.09.2017, 19:22  [ТС] 5
А то! Конечно, везде галки поставлены УЖЕ были))

Добавлено через 1 час 5 минут
У меня такая проблема, 121 строка кода - название строки не меняется! Точнее, ее text.
0
10.09.2017, 19:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2017, 19:22

Создаю тест
Всем привет! Меня поднапряг препод по экологии сделать тест. И дал программу...

создаю программу на C#
Нужна помощь в коде C# Предположим создаю небольшую грапфическую программку...

Создаю базу связь пж
Здравствуйте форумчане, помогите начинающему... --создал базу, --если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru