прогресс бар в консоли

[Volkogriz]

Можно ли как-нибудь сделать подобие прогресс бара в консоли?
Например что-нибудь типа:

PHP код:

[**************************] 


Искал негдн даже примера элюментарного нет.
Вот в этот код хочу вставить:

PHP код:

function PackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
var
  fs: TFileStream;
  cs: TCompressionStream;
function FilesScan(Dir: string): byte;
var
  sr: TSearchRec;
  s:  string;
  ln: byte;
  sz: int64;
  fs: TFileStream;
begin
 SaveLog:= TStringList.Create;
   SaveLog.Add(Rus(DateToStr(Date)));
  result := ERR_OK;
  if FindFirst(Dir + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if sr.Name[1] <> '.' then begin
        if sr.Attr and faDirectory = faDirectory then
        begin
          ln := FilesScan(Dir + sr.Name + '\');
          if result = ERR_OK then result := ln;
        end else
        if (sr.Attr and faArchive) = faArchive then
        begin
          s := Dir + sr.Name;
          try
            fs := TFileStream.Create(s, fmOpenRead or fmShareDenyWrite);
            s := copy(s, Length(path)+1, Length(s));
            writeln(Rus(s+ ' Делаю! Вот Здесь и хотел вставить'));
            ln := Length(s);
            cs.Write(ln, 1);
            cs.Write(s[1], ln);
            sz := fs.Size;
            cs.Write(sz, SizeOf(sz));
            cs.CopyFrom(fs, sz);
            writeln(Rus(s + ' Готово!'));
            SaveLog.Add(Rus(TimeToStr(Time)+' '+ Dir + sr.Name+' -'+ IntToStr(fs.Size)+' byte'));
            fs.Free;
          except
            result := ERR_FILES;
          end;
        end;
      end;
      until FindNext(sr) <> 0;
    FindClose(sr);
  end else result := ERR_NO_FILES;
end;
begin
  if Path[Length(Path)] <> '\' then Path := Path + '\';
  try
    fs := TFileStream.Create(ArcName, fmCreate or fmShareDenyWrite);
    fs.Write(signature[1], Length(signature));
  except
    result := ERR_CREATE_ARC;
    Exit;
  end;
  cs := TCompressionStream.Create(clMax, fs);
  if Assigned(OnWork) then cs.OnProgress := OnWork;
  result := FilesScan(Path);
  cs.Free;
  fs.Free;
  writeln(Rus('Завершино!'));
   SaveLog.Add('end;');
  end; 


С уважением,
Volkogriz!

[Человек_Борща]

Просто очищаете консоль и заполняете заново тем же содержимым только меняется строка с прогрессом.
Загляните в исходники upx.

[Пепел Феникса]

лучше уж позиционировать курсор

[Volkogriz]

позиционировать курсор

я просто не сталкивался вообще ни когда с этим.
понятия не имею как он работает тоесть сам смысл(

[phomm]

Найти аналог процедуры GotoXY для виндовс-консоли (в паскале этот было в модуле CRT) и просто перезаписывать строку в консоли каждый раз добавляя звездочку, в остальные места пробел, начало и конец []
Всё.
Лично я пользуюсь CRT Unit v.1.0 By Serhiy Perevoznyk отсюда http://www.torry.net/pages.php?id=236 Чутка подшаманил ReadKey, правда )

[Stilet]

SetConsoleCursorPosition
Ищи примеры этой функции.

[Volkogriz]

Сообщение от phomm

Найти аналог процедуры GotoXY для виндовс-консоли (в паскале этот было в модуле CRT) и просто перезаписывать строку в консоли каждый раз добавляя звездочку, в остальные места пробел, начало и конец []
Всё.
Лично я пользуюсь CRT Unit v.1.0 By Serhiy Perevoznyk отсюда http://www.torry.net/pages.php?id=236 Чутка подшаманил ReadKey, правда )

phomm Можете свой модуль "CRT.PAS" выложить пожалуйста?
С уважением,
Volkogriz!

[phomm]

Зачем ? Берите с Торри. Мой с лично мне нужными исправлениями, какой Вам толк от него ?
А для 1 функции можно и просто винапишную SetConsoleCursorPosition использовать , как предложил Stilet , зачем целый модуль ?