Моя программа долго загружается

← →
Turboon (2008-07-29 16:48) [0]

Проблема в том, что между событиями OnCreate и OnShow проходит секунд 10.
Что происходит в этом промежутке, я не знаю.
Подскажите, как можно оптимизировать программу?

← →
tesseract © (2008-07-29 16:51) [1]

Отладчиком и профайером посмотреть.

> Что происходит в этом промежутке, я не знаю.

Это точно твоя программа ?

← →
stas © (2008-07-29 16:57) [2]

Программа из 1-й формы?
Что на ней лежит?

← →
oldman © (2008-07-29 16:59) [3]

> Что происходит в этом промежутке, я не знаю.

Собственно Create и происходит...
С инициализацией переменных и объектов, их настройкой и т.д.

А что, 10 секунд для старта программы это много?

← →
Плохиш © (2008-07-29 17:04) [4]

> Что происходит в этом промежутке, я не знаю.

Открываются все ваши TTable...

← →
Григорьев Антон © (2008-07-29 17:09) [5]

Ненужные формы из автозагрузки удалены?

← →
Turboon (2008-07-29 17:13) [6]

1. Программа не совсем моя, я ее дорабатываю. После некоторой корректировки (добавлена пара компонентов и пара процедур) время загрузки увеличилось с 3-4 до 10 секунд.
Я ставил MessageBox"ы в конец FormCreate и в начало FormShow. Между их появлениями проходит секунд 8 минимум.
Отладчиком встроенным проверить? Или внешним? И что такое профайер я не знаю :(

2. Нет, программа из нескольких форм. В обработчике OnCreate главной формы вызывается форма авторизации, отрабатывает быстро, но главная форма появляется через 10 сек.
На главной форме лежат панели, TIB - компоненты, TreeList"ы.

3. Многовато. Я бы хотел каким-либо образом отобразить ход процесса загрузки для пользователя (прогрессбар, например, вывести), или сократить задержку.

← →
oldman © (2008-07-29 17:14) [7]

> Плохиш © (29.07.08 17:04) [4]
> Открываются все ваши TTable...

Скорее:
Загружаются все ваши TImage...
:)

← →
Игорь Шевченко © (2008-07-29 17:15) [8]

> 3. Многовато. Я бы хотел каким-либо образом отобразить ход
> процесса загрузки для пользователя (прогрессбар, например,
> вывести), или сократить задержку.

Splash-форму повесь, как в Delphi и все будет хорошо

← →
tesseract © (2008-07-29 17:16) [9]

> или сократить задержку.

Верни всё на место :-)
Отладчик тебе выдаст время выполения процедур, только на твой глаз. Профайлер даст рельное время.

← →
oldman © (2008-07-29 17:18) [10]

> После некоторой корректировки (добавлена пара компонентов

каких?

← →
oldman © (2008-07-29 17:19) [11]

> Turboon (29.07.08 17:13) [6]
> 1. Программа не совсем моя, я ее дорабатываю.

читаем сабж:

> Моя программа долго загружается

Врать не надо по телефону! ©

← →
oldman © (2008-07-29 17:21) [12]

ну...
и код OnCreate в студию
и код Unit1 тоже, пожалуй

← →
Turboon (2008-07-29 17:22) [13]

> > Плохиш © (29.07.08 17:04) [4]
> > Открываются все ваши TTable...
>
>
> Скорее:
> Загружаются все ваши TImage...
> :)

:))) Ничего подобного!

> Григорьев Антон © (29.07.08 17:09) [5]
> Ненужные формы из автозагрузки удалены?

Антон, большое спасибо! Удалены, и время загрузки опять 3 секунды! :))
Провел небольшой эксперимент - обнаружил, какой кусок кода (если его можно так назвать :))) ) тормозил. Вот он:
Ini := TIniFile.Create(FileName);
Path := Ini.ReadString("Path","zpath","C:\");
Я его закомментил, и тормоза пропали :))

← →
Turboon (2008-07-29 17:25) [14]

> Верни всё на место :-)
> Отладчик тебе выдаст время выполения процедур, только на
> твой глаз. Профайлер даст рельное время.

Ок, пойду нагуглю себе профайлер :))

← →
Turboon (2008-07-29 17:26) [15]

В общем-то проблема больше не актуальна, но если кто-нибудь подскажет мне, почему это:

> Ini := TIniFile.Create(FileName);
> Path := Ini.ReadString("Path","zpath","C:\");

вызывало тормоза, тому большой респект.

← →
Игорь Шевченко © (2008-07-29 17:30) [16]

> В общем-то проблема больше не актуальна, но если кто-нибудь
> подскажет мне, почему это:
>
> > Ini := TIniFile.Create(FileName);
> > Path := Ini.ReadString("Path","zpath","C:\");
>
> вызывало тормоза, тому большой респект.

Это не может вызывать тормоза

← →
Turboon (2008-07-29 17:32) [17]

> Это не может вызывать тормоза

Но вызывает!! :))

← →
Turboon (2008-07-29 17:35) [18]

Каюсь! Ошибся. Задержку вызывает эта строка
DirTree.Path := Path;
DirTree - это TShellTreeView

← →
oldman © (2008-07-29 17:35) [19]

> Turboon (29.07.08 17:22) [13]
> Провел небольшой эксперимент - обнаружил, какой кусок кода
> (если его можно так назвать :))) ) тормозил. Вот он:
> Ini := TIniFile.Create(FileName);
> Path := Ini.ReadString("Path","zpath","C:\");
> Я его закомментил, и тормоза пропали :))

Проведи "небольшой эксперимент №2":
Закоменти каждую строку в отдельности и выясни, что тормозит - Create или ReadString

← →
oldman © (2008-07-29 17:36) [20]

Удалено модератором

← →
Loginov Dmitry © (2008-07-29 19:11) [21]

> Провел небольшой эксперимент - обнаружил, какой кусок кода
> (если его можно так назвать :))) ) тормозил. Вот он:
> Ini := TIniFile.Create(FileName);
> Path := Ini.ReadString("Path","zpath","C:\");
> Я его закомментил, и тормоза пропали :))

Это не может вызывать тормоза. Реальные (жуткие тормоза) может вызывать WriteString() при запущенном NOD32.

← →
Сергей М. © (2008-07-29 20:07) [22]

> Turboon

Если не желаешь пользовать отладчик, то тряси бубен.

← →
++vist++ © (2008-07-29 23:29) [23]

> Проблема в том, что между событиями OnCreate и OnShow проходит секунд 10.

Какой у вас процессор?

← →
KilkennyCat © (2008-07-30 04:36) [24]

Удалено модератором

← →
++vist++ © (2008-07-30 07:35) [25]

> у людей - моск. а у компов - процессор. а еще есть препроцессор,
> сопроцессор, прогрессор , просто цессор, оссиллограф и
> холодильник.

Я просто про то, что Дельфа кушает очень много памяти, да и вообще ресурсов! Так что на слабом проце программа может работать медленно!

Удалено модератором

← →
Turboon (2008-07-30 10:46) [27]

> Сергей М. © (29.07.08 20:07) [22]
>
> > Turboon
>
>
> Если не желаешь пользовать отладчик, то тряси бубен.

А поконкретнее, какой отладчик ты имеешь в виду?
Встроенный дельфовский, или OllyDbg, к примеру?

← →
Turboon (2008-07-30 10:46) [28]

Удалено модератором

DirTree.Path := Path;
у меня в пределах 1 сек... может несколько раз вызываешь? поставь брякпоинт

> Slym © (30.07.08 12:28) [29]

если поставить брякпоинт, это явно не ускорит. даж наоборот. я даж затрудняюсь определить, на скока затормозит.

> Проблема в том, что между событиями OnCreate и OnShow проходит
> секунд 10.

Напиши хотя бы словами список действий, который выполняется между этими событиями!

← →
User (2008-07-31 09:35) [33]

... а почему бы не вклинить
var t: array[1..n] of TDateTime; ... begin ... t[i]:= Now; Inc(i); ... t[i]:= Now; Inc(i); ... end;
после каждого действия и в Real-Time анализировать результаты задержки ...?

> User (31.07.08 09:35) [33]

> после каждого действия и в Real-Time анализировать результаты
> задержки ...?

Я бы даже сказал: после каждого акта.

--
Regards, LVT.

← →
Turboon (2008-07-31 10:54) [35]

> DirTree.Path := Path;
> у меня в пределах 1 сек... может несколько раз вызываешь?
> поставь брякпоинт

Я по разному пробовал. В любом лучае позиционирование DirTree на Path вызывает серьезную задержку.

> Встроенный дельфовский, или OllyDbg, к примеру?

Встроенный дельфовский, разумеется.

Моя программа долго загружается Найти похожие ветки