4aiman/nlve
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Показатель работы: число и полоса показывают одно и то же

Browse source 
Полоса ползла по догадке, а подпись показывала замер — и человек видел
полосу, заполненную на девять десятых, рядом с нулём процентов. Что в
этот момент происходит, по такой паре понять нельзя.

Теперь доля одна на обоих. Берётся она у самого ffmpeg: сборка участка с
затуханием идёт минуту и дольше, а «кусок 1 из 1» всё это время не
меняется, поэтому ffmpeg спрашивают ключом -progress, докуда он дошёл.
Пока он не ответил ни разу, полоса трогается с места на пару процентов и
там стоит — пустая полоса и есть правда о только что начатой работе.

Догадка заодно перестала закрывать промежуток до вехи целиком: предел —
девять десятых, остаток виден глазом. Проверка на это добавлена в
tests/progress.

Полоса в окне сборки была системной, и под gtk2 заполнялась ступенями по
восемь кусков на ширину. Теперь там та же своя полоса, что и внизу
главного окна, — заполняется сплошь. Чтобы она читалась из файла формы,
у неё опубликованы Anchors, Align и Visible: читатель формы берёт только
опубликованные свойства, и без этого окно падало при открытии.

Проверено глазами на невидимом экране: «Собираю наложение 1 из 1 — 2%»
при полосе в 2%, через четыре секунды 69% при полосе в 69%.
This commit is contained in:
4aiman 2026-10-01 15:50:10 +03:00
commit 44c0a5de24
8 changed files with 151 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

18
README.md
View file

@ -634,6 +634,24 @@ Linux потом искала по нему `.dll`.
пересчитывается на каждом шаге. Даже такая оценка отвечает на главный
вопрос: успею ли я сходить за чаем.
**Полоса и число — одно и то же число.** Показатель работы внизу главного
окна подписан процентами, и это ровно та доля, которую он нарисовал.
Раньше полоса ползла по догадке, а подпись показывала замер: человек
видел полосу, заполненную на девять десятых, рядом с нулём процентов, и
понять по такой паре было нельзя ничего.
**Доля берётся у ffmpeg, а не угадывается.** Сборка участка с наложением
или затуханием может идти минуту и дольше, и всё это время «кусок 1 из 1»
не меняется. Поэтому ffmpeg спрашивают, докуда он дошёл (`-progress`), и
доля считается по его ответу. Пока он не ответил ни разу, полоса трогается
с места на пару процентов и там стоит: пустая полоса и есть правда о
только что начатой работе.
**Обе полосы рисует один и тот же код.** Полоса в окне сборки раньше была
системной (`TProgressBar`), и под gtk2 она заполнялась ступенями — восемь
кусков на всю ширину. Теперь и там, и внизу главного окна стоит своя
`TThemedProgress`, которая заполняется сплошь.
## Как собирается ролик
1. Монтаж уплощается в последовательность непересекающихся кусков.

18
src/uAppTypes.pas
View file

@ -232,12 +232,30 @@ begin
end;
function AdvanceProgress(AShown, AReal, ANext, AStepShare: Double): Double;
var
Guessed: Double;
begin
Result := AShown;
if AReal > Result then
Result := AReal;
if ANext > Result then
Result := Result + (ANext - Result) * AStepShare;
{ Догадка не закрывает промежуток до вехи целиком.
Шаги мельчают, но за сотню их полоса подбиралась к вехе вплотную, и
на единственном шаге — когда веха одна и она же конец — доползала до
края. Человек видел заполненную полосу у работы, которая ещё идёт, и
считал программу зависшей. Девять десятых промежутка — предел:
остаток виден глазом и говорит, что веха не достигнута. }
Guessed := AReal + (ANext - AReal) * 0.9;
{ Назад полоса не идёт никогда, даже если веха сместилась: предел не
опускается ниже уже показанного. }
if Guessed < AShown then
Guessed := AShown;
if (ANext > AReal) and (Result > Guessed) then
Result := Guessed;
{ До самого конца полоска не доходит: конец наступает тогда, когда
работа кончилась, а не когда мы досчитали. }
if Result > 0.999 then

60
src/uGenerate.pas
View file

@ -36,6 +36,13 @@ type
FCancelled: Boolean;
FMessage: string;
FCurrent: Integer;
{ Насколько сделан кусок, который считается прямо сейчас: 0..1.
Берётся у самого ffmpeg, а не угадывается. }
FStepFraction: Double;
FStepSeconds: Double;
{ Сказал ли ffmpeg хоть раз, докуда он дошёл по этому куску. Пока не
сказал, настоящей доли нет и показывать нечего. }
FStepKnown: Boolean;
FOnProgress: TNotifyEvent;
FOnLog: TNotifyEvent;
@ -44,6 +51,8 @@ type
procedure Log(const AText: string);
function CancelQuery: Boolean;
procedure ErrorLine(const ALine: string);
{ Строки «ключ=значение», которые ffmpeg шлёт о ходе работы. }
procedure ProgressLine(const ALine: string);
procedure Publish;
protected
procedure Execute; override;
@ -57,6 +66,13 @@ type
работы: по ним он знает, докуда ползти до следующей вехи. }
function Total: Integer;
property Done: Integer read FCurrent;
{ Доля сделанного внутри текущего куска. Показателю работы она нужна,
чтобы полоса ползла по настоящему ходу, а не по догадке: кусок
бывает и на полторы минуты, и всё это время Done не меняется. }
property StepFraction: Double read FStepFraction;
{ Есть ли по текущему куску настоящий замер. Нет — показатель работы
не имеет права рисовать заполненную полосу. }
property StepKnown: Boolean read FStepKnown;
{ Место на монтаже, которое считается прямо сейчас. Ноль в обоих —
значит, к монтажу это отношения не имеет. }
function BusyFrom: Double;
@ -138,6 +154,35 @@ begin
Log('ffmpeg: ' + ALine);
end;
{ Ход работы берётся у самого ffmpeg.
Раньше показатель знал только «кусок такой-то из стольких» и между
кусками полз вслепую. На коротких вставках это проходило, а на
затухании в полторы минуты полоса успевала доползти до края и застыть:
со стороны это выглядело как зависшая программа. Теперь ffmpeg каждые
полсекунды сообщает, до какого места он дошёл, и доля честная. }
procedure TGenerateThread.ProgressLine(const ALine: string);
var
Seconds: Double;
AtEnd: Boolean;
begin
if FStepSeconds <= 0 then
Exit;
Seconds := 0;
AtEnd := False;
if not ParseProgressLine(ALine, Seconds, AtEnd) then
Exit;
FStepKnown := True;
FStepFraction := Seconds / FStepSeconds;
if FStepFraction < 0 then
FStepFraction := 0;
{ Единицу не отдаём: единица — это «кусок готов», а готовым он станет,
когда ffmpeg закончит и файл окажется на месте. }
if FStepFraction > 0.99 then
FStepFraction := 0.99;
Publish;
end;
function TGenerateThread.Total: Integer;
begin
Result := Length(FRequests);
@ -162,7 +207,7 @@ end;
procedure TGenerateThread.Publish;
begin
if Length(FRequests) > 0 then
FFraction := FCurrent / Length(FRequests)
FFraction := (FCurrent + FStepFraction) / Length(FRequests)
else
FFraction := 1;
Synchronize(@SyncProgress);
@ -214,6 +259,11 @@ begin
end;
FCurrent := I;
{ Длина куска нужна, чтобы перевести «дошёл до такой-то секунды» в
долю. У вставок она и есть длительность заказа. }
FStepFraction := 0;
FStepKnown := False;
FStepSeconds := FRequests[I].Duration;
case FRequests[I].Kind of
gkBlack:
FStageText := Format('Делаю чёрную вставку %d из %d',
@ -269,7 +319,8 @@ begin
end;
Log('> ' + CommandToString(FfmpegExe, Args));
Res := RunProcess(FfmpegExe, Args, nil, @ErrorLine, @CancelQuery);
Res := RunProcess(FfmpegExe, Args, @ProgressLine, @ErrorLine,
@CancelQuery);
{ Распаковка на видеокарте не пошла — повторяем на процессоре.
@ -286,7 +337,10 @@ begin
FMaster.PixFmt, FMaster.VideoCodec, False, FMaster.VideoBitrate,
'', NotPiped, False);
Log('> ' + CommandToString(FfmpegExe, Args));
Res := RunProcess(FfmpegExe, Args, nil, @ErrorLine, @CancelQuery);
FStepFraction := 0;
FStepKnown := False;
Res := RunProcess(FfmpegExe, Args, @ProgressLine, @ErrorLine,
@CancelQuery);
end;
if Res.Cancelled then

29
src/uMainForm.pas
View file

@ -1128,7 +1128,8 @@ var
{ Не Text: так называется свойство самой формы, а имена в Паскале
нечувствительны к регистру. }
Note: string;
Frac: Double;
Frac, Step: Double;
StepKnown: Boolean;
Total, Done, Kind: Integer;
begin
{$IFDEF LCLWIN32}
@ -1144,6 +1145,9 @@ begin
Total := 0;
Done := 0;
Kind := 0;
{ Доля сделанного внутри текущего шага и есть ли она вообще. }
Step := 0;
StepKnown := False;
{ Порядок важен: показываем то, чего человек ждёт прямо сейчас.
@ -1155,6 +1159,8 @@ begin
Kind := 1;
Total := FGenerate.Total;
Done := FGenerate.Done;
Step := FGenerate.StepFraction;
StepKnown := FGenerate.StepKnown;
Note := FGenerate.StageText;
if Note = '' then
Note := 'Готовлю участки монтажа';
@ -1204,8 +1210,17 @@ begin
if Total > 0 then
begin
FJobReal := Done / Total;
FJobNext := (Done + 1) / Total;
FJobReal := (Done + Step) / Total;
if StepKnown then
{ Работа сама говорит, докуда дошла. Догадываться тут нечего и
нельзя: догадка разойдётся с числом, которое мы же и показываем,
и получится полная полоса рядом с нулём процентов. }
FJobNext := FJobReal
else
{ Замера ещё нет — только запустились. Полоса трогается с места,
чтобы было видно, что работа жива, но уходит недалеко: пустая
полоса и есть правда о начале работы. }
FJobNext := FJobReal + 0.05 / Total;
end
else
begin
@ -1216,7 +1231,13 @@ begin
AdvanceJobBar;
Frac := FJobShown;
FJobLabel.Caption := Note;
{ Число и полоса — одно и то же число.
Раньше полоса показывала догадку, а подпись — замер, и человек видел
полосу, заполненную на девять десятых, рядом с нулём процентов. Что
в этот момент происходит, по такой паре понять нельзя. Теперь
показывается ровно то, что нарисовано. }
FJobLabel.Caption := Note + Format(' — %d%%', [Round(Frac * 100)]);
FJobBar.Fraction := Frac;
if not FJobLabel.Visible then
begin

7
src/uProgressForm.lfm
View file

@ -30,13 +30,12 @@ object ProgressForm: TProgressForm
Caption = 'Готовлю'
ParentColor = False
end
object pbBar: TProgressBar
object pbBar: TThemedProgress
Left = 12
Height = 22
Top = 40
Height = 10
Top = 46
Width = 736
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
end
object lblEta: TLabel
Left = 12

17
src/uProgressForm.pas
View file

@ -28,7 +28,11 @@ type
lblStage: TLabel;
lblEta: TLabel;
memoLog: TLogView;
pbBar: TProgressBar;
{ Полоса своя, а не системная: TProgressBar под gtk2 рисуется
ступеньками, по восемь кусков на всю ширину, и ход работы в ней
виден рывками. Эта заполняется сплошь, как та, что внизу главного
окна. }
pbBar: TThemedProgress;
pnlTop: TPanel;
procedure btnActionClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@ -59,11 +63,6 @@ implementation
{$R *.lfm}
const
{ Прогресс держим в целых долях от десяти тысяч: с шагом в один процент
полоса на длинной операции выглядит замершей. }
BarScale = 10000;
{ TProgressForm }
procedure TProgressForm.FormCreate(Sender: TObject);
@ -71,9 +70,7 @@ begin
{ Цвета задаём сами: системная тема может быть светлой, и тогда
тёмный таймлайн оказался бы в белой рамке. }
ApplyDarkTheme(Self);
pbBar.Min := 0;
pbBar.Max := BarScale;
pbBar.Position := 0;
pbBar.Fraction := 0;
memoLog.Clear;
btnAction.Caption := 'Отмена';
FStartedAt := Now;
@ -121,7 +118,7 @@ begin
AValue := 0;
if AValue > 1 then
AValue := 1;
pbBar.Position := Round(AValue * BarScale);
pbBar.Fraction := AValue;
FLastFraction := AValue;
Elapsed := (Now - FStartedAt) * SecsPerDay;

7
src/uTheme.pas
View file

@ -93,6 +93,13 @@ type
public
constructor Create(AOwner: TComponent); override;
property Fraction: Double read FFraction write SetFraction;
published
{ Опубликовано ради файлов форм: читатель формы берёт только
опубликованные свойства, и без этого «Anchors» в .lfm роняет окно
при открытии — не при сборке. }
property Anchors;
property Align;
property Visible;
end;
{ Кнопка, которая рисует себя сама.

16
tests/progress/progtest.lpr
View file

@ -99,6 +99,22 @@ begin
end;
Check('ход монотонный', V >= Prev);
{ 7. Одна-единственная веха — и та конец.
Так выглядит сборка одного куска: сделано ноль из одного. Полоса
ползёт к единице и раньше подбиралась к ней вплотную — заполненная
полоса у работы, которая ещё идёт, читается как зависшая программа.
Теперь догадка не закрывает промежуток целиком, и остаток виден. }
V := 0;
for I := 1 to 1000 do
V := AdvanceProgress(V, 0, 1, Step);
Check('без замеров полоса не доходит до края: ' +
FloatToStrF(V, ffFixed, 8, 3), V <= 0.91);
{ А как только приходит настоящий замер, полоса слушается его. }
V := AdvanceProgress(V, 0.95, 1, Step);
Check('настоящий замер перекрывает догадку', V >= 0.95);
WriteLn;
if Failed = 0 then
WriteLn('ВЕРДИКТ: все проверки пройдены')