Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

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 Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. 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
Question Delphi 10.3 Rio ile Firebird veritabanına android üzerinden erişim budanur 13 1.013 23-10-2019, Saat: 15:48
Son Yorum: cihankoca
  depolama erişim izni olmadan erişmek ? Mr.Developer 9 1.534 28-06-2018, Saat: 11:36
Son Yorum: Mr.Developer
  mobilde programı kapatmak erdogan 4 878 11-05-2018, Saat: 21:44
Son Yorum: Fesih ARSLAN
  Hosting üzerindeki Mysql e direkt erişim nehirnnn 9 1.831 23-12-2017, Saat: 10:26
Son Yorum: cemaliozan
  Delphi XE Mobilde Çalışma Mantığı Nedir? İbrahim 3 2.949 15-09-2016, Saat: 02:42
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi