Konuyu Paylaş : facebook gplus twitter

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.
WWW
Cevapla
#2
Merhaba,
Daha önce Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 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}
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Hosting üzerindeki Mysql e direkt erişim nehirnnn 9 320 23-12-2017, Saat: 10:26
Son Yorum: cemaliozan
  Delphi XE Mobilde Çalışma Mantığı Nedir? İbrahim 3 1.951 15-09-2016, Saat: 02:42
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi