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.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
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
  Delphi Android Sayı Karmaşası [Çözüldü] codder71 2 109 12-01-2018, Saat: 15:54
Son Yorum: codder71
  Delphi Android Java kullanmak AliZairov 10 869 21-12-2017, Saat: 18:09
Son Yorum: Abdullah ILGAZ
  Delphi Firebase Post işlemi yhackup 4 443 11-12-2017, Saat: 09:50
Son Yorum: yhackup
  Delphi ile Android Lord_Ares 0 96 21-11-2017, Saat: 00:24
Son Yorum: Lord_Ares
  Location Sensor - Konum Bilgisi Öğrenme samet 3 123 09-11-2017, Saat: 10:51
Son Yorum: Abdullah ILGAZ



Konuyu Okuyanlar: 1 Ziyaretçi