Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi Dahili Hafıza Boyutu Öğrenme
#1
Merhaba arkadaşlar 
Delphide bir android uygulaması projemde dahili hafıza boyutunu öğrenmem gerekiyor ama googlede aramama rağmen bir örnek bulamadım. Bu konuda yardımlarınıza ihtiyacım var. 

(Not : Delphi 10.1.2 Berlin kullanıcısıyım.)
Cevapla
#2
(07-01-2018, Saat: 01:10)codder71 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba arkadaşlar 
Delphide bir android uygulaması projemde dahili hafıza boyutunu öğrenmem gerekiyor ama googlede aramama rağmen bir örnek bulamadım. Bu konuda yardımlarınıza ihtiyacım var. 

(Not : Delphi 10.1.2 Berlin kullanıcısıyım.)

Ekte ram durumunu gosteren bir uygulama var
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#3
hocam cevabınız teşekkürler yalnız ben yanlış anlattım galiba benim öğrenmek istediğim olay cihazın kullanılabilir alanı (örneğin : 16 gb hafızası olan bir cihazın mesela 4 gb kullanılabilir alanı) bunu öğrensem yeter toplam hafıza boyutu bilgisine vs. ihtiyacım yok veri alış verişi yapan bir uygulamada kullanmak istiyorum. Cevaplarınızı bekliyorum teşekkürler.
Cevapla
#4
  {$IFDEF ANDROID}
  aStatFS := TJALStatFs.JavaClass.init(StringToJstring(aDir));
 if (TJBuild_VERSION.JavaClass.SDK_INT < 18 {Android 4.3 - JELLY_BEAN_MR2}) then aTmpAvailableSpace := aStatFS.getBlockSize * aStatFS.getAvailableBlocks
 else aTmpAvailableSpace := aStatFS.getAvailableBytes;
 aStatFS := nil;
 {$ELSEIF defined(IOS) or defined(_MACOS)}
 aFileManager := TNSFileManager.Wrap(TNSFileManager.OCClass.defaultManager);
 aDict := aFileManager.attributesOfFileSystemForPath(StrToNSStr(aDir), nil);
 if aDict = nil then aTmpAvailableSpace := 0
 else begin
   aPointer := aDict.objectForKey((CocoaNSStringConst(FoundationFwk, 'NSFileSystemFreeSize') as ILocalObject).GetObjectID);
   if Assigned(aPointer) then aTmpAvailableSpace := TNSNumber.Wrap(aPointer).unsignedLongLongValue
   else aTmpAvailableSpace := 0;
 end;
 {$ELSEIF defined(MSWINDOWS)}
 aDiskDrive := ALupperCaseU(AlStringReplaceU(ExtractFileDrive(aDir), ':', '', []));
 if length(aDiskDrive) = 1 then aTmpAvailableSpace := DiskFree(ord(aDiskDrive[low(aDiskDrive)]) - $40)
 else aTmpAvailableSpace := 0;
 {$ENDIF}

--Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Üstat dene bir istersen; 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


Saygılarımla,
İyi çalışmalar.
May the force be with you!
Cevapla
#5
(07-01-2018, Saat: 22:55)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
  {$IFDEF ANDROID}
  aStatFS := TJALStatFs.JavaClass.init(StringToJstring(aDir));
 if (TJBuild_VERSION.JavaClass.SDK_INT < 18 {Android 4.3 - JELLY_BEAN_MR2}) then aTmpAvailableSpace := aStatFS.getBlockSize * aStatFS.getAvailableBlocks
 else aTmpAvailableSpace := aStatFS.getAvailableBytes;
 aStatFS := nil;
 {$ELSEIF defined(IOS) or defined(_MACOS)}
 aFileManager := TNSFileManager.Wrap(TNSFileManager.OCClass.defaultManager);
 aDict := aFileManager.attributesOfFileSystemForPath(StrToNSStr(aDir), nil);
 if aDict = nil then aTmpAvailableSpace := 0
 else begin
   aPointer := aDict.objectForKey((CocoaNSStringConst(FoundationFwk, 'NSFileSystemFreeSize') as ILocalObject).GetObjectID);
   if Assigned(aPointer) then aTmpAvailableSpace := TNSNumber.Wrap(aPointer).unsignedLongLongValue
   else aTmpAvailableSpace := 0;
 end;
 {$ELSEIF defined(MSWINDOWS)}


 aDiskDrive := ALupperCaseU(AlStringReplaceU(ExtractFileDrive(aDir), ':', '', []));
 if length(aDiskDrive) = 1 then aTmpAvailableSpace := DiskFree(ord(aDiskDrive[low(aDiskDrive)]) - $40)
 else aTmpAvailableSpace := 0;
 {$ENDIF}

--Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Üstat dene bir istersen; 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


Saygılarımla,
İyi çalışmalar.

Hocam cevabın için teşekkürler fakat kodlar hata veriyor apkyı derlemeyi başaramadım. Sitede detaylı bir açıklama da bulamadım maalesef
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question delphi 10.2.3 edit-memo yazı tekrarı BY-HAYALET 2 166 05-06-2018, Saat: 11:10
Son Yorum: BY-HAYALET
Question delphi - örnek projeler hakkında BY-HAYALET 6 219 27-05-2018, Saat: 10:35
Son Yorum: BY-HAYALET
  Delphi Android Java kullanmak AliZairov 11 1.436 22-03-2018, Saat: 04:36
Son Yorum: AliZairov
  Delphi AVD Manager kullanımı Bay_Y 15 776 07-03-2018, Saat: 15:59
Son Yorum: Bay_Y
  Delphi Android Java Tetikleyici hyperxman 0 199 15-02-2018, Saat: 01:06
Son Yorum: hyperxman



Konuyu Okuyanlar: 1 Ziyaretçi