srFileSR.Size = sorunum.

[Shou]

Merhabalar ben bir güncelleme sistemi kullanıyorum bir problemim var ben dosya boyutuna göre güncelleme yaptırıyorum fakat bazı dosyaların boyutu hep aynı oluyor o yüzden boyutlar değişmedigi için güncellemiyor benim kullandıgım fonksiyon :

Kod: Tümünü seç

function boyut(dosya: String): String;
var
srFileSR: TSearchRec;
begin
if not FileExists(dosya) then begin
boyut := inttostr(0);
exit;
end;
findfirst(dosya, FaAnyFile, srFileSR);
boyut := inttostr(srFileSR.Size);
end;

ben bu fonksiyonu şöyle yaparsam ;

Kod: Tümünü seç

boyut := inttostr(srFileSR.Size);

olan kısım ;

Kod: Tümünü seç

boyut := inttostr(srFileSR.Time);

Aldığım sonuç :

Kod: Tümünü seç

1077513030

ben bu sonucu aynısını php ile nasıl alırım bunun cevabını öğrenmek istiyorum + ,

birde bu kodu ;

Kod: Tümünü seç

boyut := inttostr(srFileSR.Size);

kodunu ;

Kod: Tümünü seç

boyut := inttostr(srFileSR.Attr);

yaparsam şunu söylüyor 12 byte ise 32 diyor bu attr ne işe yarıyor + php ile bunu kontrol edebilirmiyiz, şimdiden teşekkürler..

[greenegitim]

php ile dosya oluşturma tarihine baksan?

Kod: Tümünü seç

<?
echo date("d/m/y","dosyam.php");
?>

[SimaWB]

PHP'de stat fonksiyonu işinizi görür.

[Shou]

Teşekkür ederim cevabınız için fakat php ile bir fonksiyon yaptım son değiştirilme saatini söylüyor fonksiyon şu ;

Kod: Tümünü seç

<?php
$filename = 'map0.exp'; 
if ( file_exists ( $filename )) { 
echo "dosya : $filename , son güncelleme: " . date ( "H:i:s" , filemtime ( $filename ));
}
?>

fonksiyon'da sorun yok fakat aşagıdaki kodu nasıl son değiştirilme tarihini almasını yapabilirim aşagıdaki kod boyutunu gösteriyor onu beceremedim yardımcı olursanız çok sevinirim.

Kod: Tümünü seç

function boyut(dosya: String): String;
var
srFileSR: TSearchRec;
begin
if not FileExists(dosya) then begin
boyut := inttostr(0);
exit;
end;
findfirst(dosya, FaAnyFile, srFileSR);
boyut := inttostr(srFileSR.Size);
end;

şimdiden teşekkürler..

[SimaWB]

Bir dosyanın değiştirilme tarihini verir:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  FileDT : TDateTime;
  FileOSDate : integer;
begin
  FileOSDate := FileAge('C:\Deneme.exe');
  if FileOSDate = -1 then Exit;

  FileDT := FileDateToDateTime(FileOSDate);
  Caption := FormatDateTime('dd/mm/yyy hh:nn', FileDT);
end;

[Shou]

çok teşekkür ederim abi cevabın için fakat bir sorun var.

Kod: Tümünü seç

function boyut(dosya: String): String;
var
srFileSR: TSearchRec;
begin
if not FileExists(dosya) then begin
boyut := inttostr(0);
exit;
end;
findfirst(dosya, FaAnyFile, srFileSR);
boyut := inttostr(srFileSR.Size);
end;

bu fonksiyon güzel çalışıyor tamam ama dosya indiginde son güncelleme zamanı değişiyor onun için bu fonksiyonu oluşturma zamanınına nasıl ceviricez??

[Shou]

yokmu yardimci olacak?