Telefon numarasına arama yapma (Phone Dialer)

[ayhandemirtas]

Arkadaşlar merhaba,
Listview, edit veya her hangi bir Object ile
veritabanından çekilen bir telefon numarasını aramak istiyorum,
Bunun için bir Object mi eklemem lazım yada
kod ilemi arama yaptırmalıyım çözemedim.
Teşekkürler.

[ayhandemirtas]

http://docwiki.embarcadero.com/RADStudi ... Android%29

Bu şekilde bir link var fakat sağlıklı olarak çalıştıramadım.

Farklı bir şekilde arama yaptırabiliyorum.
Label a girilen numarayı arattırıyorum.
Şimdide veritabanından ilgili numarayıListview yada grid marifeti ile seçtikten sonra
arama işlemini yapmaya çalışacağım.
Bittiğinde isteyen arkadaşlarla paylaşırım.

[ayhandemirtas]

Kod: Tümünü seç

uses // eklenecekler
  FMX.Platform, FMX.PhoneDialer;

Button ve Label ekliyoruz. Button click e de aşağıdaki kodları ekleyince arama işlemi tamam.
veritabanından çekilen numaralar ile edit e bağlantı attımmı istediğiniz özellikte uygulama yapılabilir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  PhoneDialerService: IFMXPhoneDialerService;

begin
  { telefon ile arama hizmetleri desteklenip desteklenmediğinin testini yapar }
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
  begin
    if Edit1.Text <> '' then
      PhoneDialerService.Call(Edit1.Text)
    else
    begin
      ShowMessage('Numara girilecek alanı boş geçtiniz');
      Edit1.SetFocus;
    end;
  end
  else
    ShowMessage('Şuan Arama Yapılamıyor');
end;

[ayhandemirtas]

Arama yapılamıyor,
Bağlantı kurulamadı ve diğer mesajlar ile ilgili kod da burada,
ben bu ayrıntıya girmedim.

Herkese kolay gelsin. Sağlıcakla kalın.

Kod: Tümünü seç

procedure TForm1.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;