Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Mobilde GSM datalarına erişim
#1
Merhaba arkadaşlar.
Mobil de GSM datalarına erişmek istiyorum. CellID RX TX vs gibi datalara..

var
  obj: JObject;
  TelephonyManager: JTelephonyManager;
  Cells: JList;
  Cell: JCellInfo;
  iter: JIterator;
begin
  obj := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  TelephonyManager := TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID);
  Cells := TelephonyManager.getAllCellInfo;
  iter := Cells.iterator;
  while iter.hasNext do
  begin
    obj := iter.next;
    Cell := TJCellInfo.Wrap((obj as ILocalObject).GetObjectID);
  end;
//  listbox1.Items.add(JStringToString(TelephonyManager.getNeighboringCellInfo ));
  listbox1.Items.add('getNetworkCountryIso:'+JStringToString(TelephonyManager.getNetworkCountryIso ));
  listbox1.Items.add('getNetworkOperator:'+JStringToString(TelephonyManager.getNetworkOperator ));
  listbox1.Items.add('getNetworkOperatorName:'+JStringToString(TelephonyManager.getNetworkOperatorName ));
  listbox1.Items.add('getCallState:'+Inttostr(TelephonyManager.getCallState ));
  listbox1.Items.add('getDeviceId:'+JStringToString(TelephonyManager.getDeviceId.toString ));
  listbox1.Items.add('getCallState:'+inttostr(TelephonyManager.getCallState ));
  listbox1.Items.add('getCellLocation:'+JStringToString(TelephonyManager.getCellLocation.toString ));
// listbox2.Items.add('TelephonyManager:'+JStringToString(TelephonyManager.getAllCellInfo));

Araştrmalarım sonucunda şu kodlara ulaştım. Fakat rem'lediğim satırları bir türlü listbox a atamadım.. Jlist tipinde datalarmış. 

Kısacası Jlist i listbox a nasıl aktarabilirim? bir fikri olan var mı?

Teşekkürler.
Cevapla
#2
Merhaba,
Daha önce Kitap Çalışması için yapmış olduğum bir örnek uygulamayı paylaşayım. (Bu arada kitap içeriğini peyder pey paylaşmış oldum. Smile)

var
  TlfBilgisi: JTelephonyManager;
 TlfServisi: JObject;
begin
 TlfServisi := SharedActivityContext.getSystemService
   (TJContext.JavaClass.TELEPHONY_SERVICE);
 if Assigned(TlfServisi) then
   TlfBilgisi := TJTelephonyManager.Wrap((TlfServisi as ILocalObject)
     .GetObjectID);
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getDeviceId));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getLine1Number));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getSimSerialNumber));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getSubscriberId));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getDeviceSoftwareVersion));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getGroupIdLevel1));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getLine1Number));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getMmsUAProfUrl));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getMmsUserAgent));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getNetworkCountryIso));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getNetworkOperator));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getNetworkOperatorName));
 Memo1.Lines.Add(TlfBilgisi.getPhoneCount.toString);
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getSimCountryIso));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getSimOperatorName));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getSimSerialNumber));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getVoiceMailAlphaTag));
 Memo1.Lines.Add(JStringToString(TlfBilgisi.getVoiceMailNumber));
end;
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
cevap için teşekkürler Fesih BEy.
Fakat benim paylaştığım koddaki Cell datasını komple almam gerkeiyor.. yani ordaki MCI memo1.Lines.Add(JStringToString(cell.toString)); şeklinde memoya yazdırıyorum. burada GSM ile ilgili bir çok teknik detay veriyor.. Fakat bunu Jlist den Tlist e bir türlü çeviremedim..

Memoya yazdırdığım datanın çıktısı şu şekilde:

CellInfoLte:{mRegistered=YES mTimeStampType=oem_ril mTimeStamp=94237272374404ns CellIdentityLte:{ mMcc=286 mMnc=1 mCi=998414 mPci=379 mTac=5123 mEarfcn=0} CellSignalStrengthLte: ss=25 rsrp=-101 rsrq=-7 rssnr=15 cqi=2 ta=9}
CellInfoLte:{mRegistered=NO mTimeStampType=oem_ril mTimeStamp=94237272374404ns CellIdentityLte:{ mMcc=0 mMnc=0 mCi=0 mPci=371 mTac=0 mEarfcn=0} CellSignalStrengthLte: ss=25 rsrp=-105 rsrq=-11 rssnr=0 cqi=0 ta=0}
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  IOS shared klsörlere erişim (GetSharedDownloadsPath)) 41linea41 0 226 29-02-2020, Saat: 23:18
Son Yorum: 41linea41
  FMX Aynı Kod Mobilde Hata Veriyor (Error [FireDAC][Stan][Eval]-101) pro_imaj 2 580 30-01-2020, Saat: 12:51
Son Yorum: serdar
  Uygulamanın Güncel Platform bilgisine erişim 41linea41 3 873 23-01-2020, Saat: 01:54
Son Yorum: Fesih ARSLAN
Question Delphi 10.3 Rio ile Firebird veritabanına android üzerinden erişim budanur 13 2.795 23-10-2019, Saat: 15:48
Son Yorum: cihankoca
  depolama erişim izni olmadan erişmek ? Mr.Developer 9 2.928 28-06-2018, Saat: 11:36
Son Yorum: Mr.Developer



Konuyu Okuyanlar: 1 Ziyaretçi