Сделать окно с анимацией при выполнении какого нить долгого процесса

Denov

Нужна помощь...

Как сделать окно где будет крутиться какаянить анимация при этом не обращая внимания на процесс.

типа

 
try
Process_frm.Show;
... строки какого нить процесса
finally
Process_frm.Close;
end;

Форма открывается но анимация не идет...

Знаю что есть Application.ProcessMessage но ставить его внутрь кода (... строки какого нить процесса) это мутарно.

Мож кто знает способ попроще.

Gnomikk93

Denov, post: 706824:
Знаю что есть Application.ProcessMessage но ставить его внутрь кода (... строки какого нить процесса) это мутарно.

Мож кто знает способ попроще.

Не много не понимаю, чего сдесь муторно??? Это кажись самый простой вариант Application.ProcessMessage ставиш в коде перед выполнением особо длительного процеса, и все форма не висит и графика на форме крутится! Еще вариант процес вынести в отдельный поток! Но по мне этот вариан сложнее!

Timedrops

поток более правильное решение, application.processmessage более просто. на форму кинуть Tanimate куда закинуть ролик для анимации.

Kapguokog

вариант с поток хорош при обращениях при обращениях к базе данных, в остальных случаях (когда в цикле обрабатывается большой массив данных) в тело цикла вставляется Application.ProcessMessage и ваша анимация будет проигрываться.

Vogel

Если тебе нужна просто анимированная картинка, то TGifImage

тебя спасёт.

Fr0zen

Моя процедура импорта большого количества файлов.

На форме, которая будет отображаться при длительном процессе:

TProccessProc = procedure of object;

procedure ShowProgress(ProccessProc: TProccessProc; AActName:

string; AStepCount: Integer = 0); overload;

begin

frmProjectExportProgress := TfrmProjectExportProgress.Create(Application);

try

frmProjectExportProgress.InitProgress(AActName,AStepCount);

frmProjectExportProgress.Show;

Application.ProcessMessages;

ProccessProc;

frmProjectExportProgress.Hide;

finally

frmProjectExportProgress.Free;

end;

end;

procedure doStepProccess(AObjName: string; isError: Boolean; var isBreak: Boolean);

var iTmp: Integer;

begin

with frmProjectExportProgress do begin

cxERowCurrentFile.Properties.value:=AObjName;

CurrStep:=CurrStep+1;

if isError then

begin

ErrorCount:=ErrorCount+1;

cxERowErrorCount.Properties.Value:=ErrorCount;

cxMemoLog.Lines.Add('Не удалось импортировать файл: '+AObjName);

//вывод какой-то статистики на форме при импорте

gProgress.Progress := iTmp;

isBreak := isCancel;

end;

Application.ProcessMessages;

end;

Из основной формы вызов:

ShowProgress(LoadFiles,'Импорт файлов',Length(fFileList))

function LoadFiles: Boolean;

begin

//импортируем как-то там

//останавливает импорт

FIsBreak:=false;

while (I<=Length(fFileList) - 1) AND not FIsBreak do begin //идет импорт каждого файла по отдельности //и вызываем нашу формочку, говорим ей, чтобы обновилась doStepProccess(fDirPath+fFileList.Name, not Res, FIsBreak);
end;
end;

да, только тут передается функция, подправить надо будет параметр. Спешил

В общем, разбирайся.

Maxim220

Делать в отдельном потоке показ красивых картинок. В осном потоке - работа. Никакой Application.ProcessMessage не поможет, скажем при выполнении запроса к базе.

Dalx

присоединюсь к последнему.

Application.ProcessMessage будет вызывать перерисовку всего окна.

что в ряде слуаев добавит изрядно тормозов.

кстати и с анимацией шибко заморачиваться не стОит - "накладные расходы" на анимацию могут так же тормозов добавить. а так - только отдельными потоками.

причем в идеале - свой процесс длительный - одним потоком.

анимацию - вторым.

так и форма будет активна и вменяема (в плане отрисовки) и прочие плюшки (с прерыванием задачи и т.п.) реализуемы.

Qvint

Fr0zen, post: 706831:Моя процедура импорта большого количества файлов.
В общем, разбирайся.

Лучше автору топика не разбираться в такой процедуре...

ac:

Maxim220

Повторю еще раз - только отдельный поток, показывающий картину (картинки, анимацию и т.п.). Естественно этот отдельный поток должен быть без VCL. Картинки, скажем, состояния вращающего круга, 16 штук, например, можно поместить в ресурс.

Dalx

Application.ProcessMessage - не проще... хотя бы потому, что задержки между дёрганием ProcessMessage будут различны.

Ephesmews

Все верно говорят про поток анимацию в поток а действие в основной программе а если без потоков то все равно любая анимация колом встанет.

Похожие темы	Дата
ReLink - программа для сокращения ссылки в популярных сервисах	19.12.2024, 05:12
[Udemy] React + Redux - Профессиональная Разработка (2018)	19.12.2024, 05:12
FreeKeys CMS v1.3	19.12.2024, 05:12
Codegolf - Решите Головоломку Мета-Знаний	19.12.2024, 05:12
Codegolf — Найти Все Возможные Даты	19.12.2024, 05:12
Царь Горы - Противостояние Четырех Человек	19.12.2024, 05:12
Codegolf — Абсолютные Суммы Коэффициентов Полинома Сиди	19.12.2024, 05:12
Codegolf — Любая Цифровая Перестановка	19.12.2024, 05:12
Codegolf - Это Инструкция По Траханию Мозгов?	19.12.2024, 05:12
Codegolf — Сгенерируйте Число, Используя Заданный Список Чисел И Арифметических Операторов.	19.12.2024, 05:12

Сделать окно с анимацией при выполнении какого нить долгого процесса

Denov

Gnomikk93

Timedrops

Kapguokog

Vogel

Fr0zen

Maxim220

Dalx

Qvint

Maxim220

Dalx

Ephesmews

I AM

Интересно