ProgressBar

[ВикторСесюрити]

Помогите написать кусок программы пожалуста,моя программа шифрует файлы.Надо чтобы при шифровании файлов началася ход выполняемо процесса при помощи ProgressBar.при нажатии на кнопку шифровать начинается процесс загрузки,но для этого надо знать размер файлов,помогите срочно???

[volod3000]

В uses добавляем idGlobal и юзаем функцию FileSizeByName. для перевода в килобайты делим это число на 1024, в мегабайты еще раз делим на 1024 и т.д.

[ВикторСесюрити]

а поточнее можно расписать пожалуста?я новичек

[volod3000]

Приблизительно так :

function FileSizeByName(sFilename: string): cardinal;
var
 sFile: TFileStream;
begin
 sFile := TFileStream.Create(sFilename, fmOpenRead or fmShareDenyNone);
 try
   result := sFile.Size;
 finally
   sFile.free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
t : Double; //

begin
       s := Edit1.Text;
       t := FileSizeByName(s);
 
      if t>=1024 then begin t:=t/1024; e:=' Кбайт'; end;
      if t>=1024 then begin t:=t/1024; e:=' Мбайт'; end;
      if t>=1024 then begin t:=t/1024; e:=' Гбайт'; end;


     Label1.Caption := FloatToStr(t) + e;

end;

Просто функция FileSizeByName не на
всех версиях Delphi есть.

[ВикторСесюрити]

Посмотрите пожалуста,как зделать этот прогресс бар в этой программе?

[volod3000]

Посмотрите, это как пример (идея).

[ВикторСесюрити]

спасибо, очень помог.

[ВикторСесюрити]

А почему например при шифровании больших файлов??не идет загрузка?что надо сделать??