Değişken Dosya Boyutunu Öğrenmek

[kafkasyali]

Değişken dosya boyutunu almak için ne denediysem olmadı. İnternette yaptığım araştırmalarda iki kalıp buldum.

Her iki kodu da timer içinde kullanıyorum.

Kod: Tümünü seç

1-)

procedure TForm1.Button1Click(Sender: TObject);
var
  srFileSR: TSearchRec;
  sFileName, sFileSize: string;
begin
  sFileName := 'c:\test\2.avi';
  FindFirst(sFileName,faAnyFile,srFileSR);
  sFileSize := IntToStr(srFileSR.Size);
  Showmessage(sFileSize);
end;

Yukarıdaki kodlarla yapmaya çalıştığımda I/O hatası alıyorum.

Kod: Tümünü seç

2-) 

function GetFileSize(const filename: string): Int64;  
 var  
   f: TWin32FindData;  
   h: THandle;  
 begin  
   result := -1;  
   try  
     if not FileExists(filename) then  
       exit;  
     h := FindFirstFile(PChar(filename), f);  
     if h = INVALID_HANDLE_VALUE then  
       RaiseLastWin32Error;  
     try  
       Result := f.nFileSizeHigh shl 32 + f.nFileSizeLow;  
     finally  
       windows.FindClose(h);  
     end;  
   except  
   end;  
 end;

Bununla yaptığımda timer olmadan boyutu alabiliyorum fakat timer kullandığımda boyutu sıfır olarak gösteriyor. Bu konuda yardımcı olabilir misiniz?

[sabanakman]

Dosyaya bilgi yazılırken bu türden bir bilgiyi sağlıklı olarak elde edemezsiniz.

[kafkasyali]

Aslında amacım yüzde hesabı çıkarmak. Yaptığım küçük uygulama bir klasörü sıkıştırıyor. Yani dosyanın boyutunu bayt'ı bayt'ına almak yerine yaklaşık değerler de olabilir.

Klasör boyutunu alıyorum. Sıkıştırılan dosyanın boyutunu yaklaşık ta olsa takip etmek istiyorum. WinRAR progressbar'ı bilirsiniz. Eğer sıkıştırılan dosyanın boyutunu alabilirsem aşağıdaki görüntü oluşacak.



kullandığım kodlar

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
a,b,c:integer;

begin
a:=klasör boyutu kodları
b:=sıkıştırılan dosya boyutu alma kodları
c:=round(b/a*100); //sıkıştırılan dosya klasörün yüzde kaçı? (yuvarlayarak tam sayı al)
sarı_progressbar.position:=c;
end;

[mkysoft]

Abbrevira kompanenti bu tür verileri kendisi veriyordu. Siz kendiniz bir algoritma geliştirdiniz sanırım.

[orhancc]

SIkıştırmayı ne ile yapıyorsun ?

[kafkasyali]

7zip'in Dll dosyasını kullanıyorum. Abbrevia'ya göre bayağı gelişmiş bir program bilirsiniz.

[sadettinpolat]

7zip.dll callback metodlari destekliyor ama dosya boyutu olarak bilgi donmuyor sanirim.. kurcalamak lazim...

Kod: Tümünü seç

Progress bar

 function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Mainform.ProgressBar.Max := value else
     Mainform.ProgressBar.Position := value;
   Result := S_OK;
 end;

 procedure TMainForm.ExtractClick(Sender: TObject);
 begin
   with CreateInArchive(CLSID_CFormatZip) do

   begin
     OpenFile('c:\test.zip');
     SetProgressCallback(nil, ProgressCallback);
     ...
   end;
 end;