TProgressBar

[JRcoker]

Как зделать чтоб TProgressBar показывал процесс загрузки например сокета?..Или удоления большего файла?

Если ктото не вкурсе что такое TProgressBar это строка прогресса типа такаяже как в поцессе установок игр или программ...

[Arigato]

Нужно использовать свойства Min, Max и Position компонента TProgressBar. Их привязываете к ходу выполнения длительного процесса.

[JRcoker]

Можна кодом?..

[Stilet]

Как зделать чтоб TProgressBar показывал процесс загрузки например сокета?

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

Или удоления большего файла?

А как удалять ты его собрался, Вроде это цельная операция...

[Arigato]

Можна кодом?..

Хорошо, допустим мы хотим удалить несколько файлов. На форму кидается компонент типа TProgressBar (допустим, ProgressBar1) и запускается процедуру удаления:

procedure TForm1.DeleteFiles (FileList: TStringList);
var I: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0; // минимальное значение прогрессбара
    Max := FileList.Count - 1; // максимальное значение прогрессбара
    Position := Min; // начальная позиция прогрессбара
    for I := 0 to FileList.Count - 1 do
    begin // удаляем все файлы из переданного списка
      if not DeleteFile (FileList[I]) then
      begin // если не удалось удалить файл
        ShowMessage ('Ошибка удаления файла: ' + FileList[I]);
        Exit;
      end; {if}
      Position := I; // меняем позицию прогрессбара
      Application.ProcessMessages; // а это, что бы все намертво не подвисло
    end; {for}
  end; {with}
end; {proc TForm1.DeleteFiles}

Это только пример, конечно, лучше такое делать не в одной процедуре, а скажем удалять по 1 файлу на каждый тик таймера.

[mutabor]

Если ктото не вкурсе что такое TProgressBar это строка прогресса типа такаяже как в поцессе установок игр или программ...

Спасибо, что объяснили, а то мы не знали )

Можно такое сделать (насчет удаления, копирования файлов/файла), я даже видел такое здесь на форуме, пользуйтесь поиском. Или в Общих вопросах или в Компонентах ищите, точно не помню. Практически такой же вопрос был, и на него ответили.

Arigato, то что вы дали это симуляция, можно же сделать реальный прогресс, независимо от кол-ва файлов.

[Stilet]

mutabor

Как ты представляешь прогрессбар для удоления большего файла?
(одного файла)

[JRcoker]

[DCC Error] Unit2.pas(37): E2003 Undeclared identifier: 'FileList'
[DCC Error] Unit2.pas(37): E2014 Statement expected, but expression of type 'Integer' found
[DCC Error] Unit2.pas(39): E2029 'DO' expected but identifier 'Count' found
[DCC Error] Project2.dpr(5): F2063 Could not compile used unit 'Unit2.pas'

Выдал мне кучу ошибок...

[mutabor]

Как ты представляешь прогрессбар для удоления большего файла?
(одного файла)

Если я ничего не путаю, вроде я видел на форуме такое.

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

[Arigato]

Выдал мне кучу ошибок...

Приведенная процедура реализована как метод класса TForm1. Вам нужно добавить заголовок процедуры в раздел описания класса TForm1.
Если у Вас там не TForm1, а TForm2 - действуйте аналогично