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.
Eski dos'tan windows olmaz.
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 Java kullanmak AliZairov 11 1.278 22-03-2018, Saat: 04:36
Son Yorum: AliZairov
  Delphi AVD Manager kullanımı Bay_Y 15 599 07-03-2018, Saat: 15:59
Son Yorum: Bay_Y
  Delphi Android Java Tetikleyici hyperxman 0 150 15-02-2018, Saat: 01:06
Son Yorum: hyperxman
Question farklı dosya boyutu sıkıntısı BY-HAYALET 2 185 31-01-2018, Saat: 11:17
Son Yorum: BY-HAYALET
Question proje dosya boyutu sorunu BY-HAYALET 9 353 23-01-2018, Saat: 14:21
Son Yorum: BY-HAYALET



Konuyu Okuyanlar: 1 Ziyaretçi