Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi ускорение запуска приложения. / 25 сообщений из 39, страница 1 из 2
  1  все
26.11.2021, 10:36
    #40115150
svd
svd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
Всем привет.

Прошу поделиться опытом, кто как решает(решил) подобную нестыковку.

В чем у меня сложности:
В приложении всего 3 формы. Но куча фреймов и работа с базой данных.Фреймы грузятся в зависимости от конфигурации, потому и исследовать даже проблематично - по одной конфикурации вроде быстро показывется, а в другой тормоза на минуту.

Картинки есть, но тащятся из ресурсов.
Еще очень много таймеров.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 10:58
    #40115155
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
найти медленные запросы и что-то с этим сделать:
1) ускорить запросы
2) отложить во времени, например по требованию пользователя
3) выполнять запросы в фоновом режиме

фаэрволл иногда замедляет выполнение запросов, но это доли секунды
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 10:58
    #40115156
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd,

1. Делать логику как можно более простой, без задержек и сложных алгоритмов;
2. По возможности не обращаться к БД при запуске.
2.1. Если такой возможности нет - уменьшить кол-во запросов до минимума, а так же - оптимизировать эти запросы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 11:21
    #40115162
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
Не выполнять запросы при старте ПО или при открытии формы.
Как минимум сократить кол-во тяжелых операций до минимума.
Не использовать Data-Aware компоненты.

Если это не возможно - сделать сплэш скрин с прогресс-баром во время первичной загрузки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 11:44
    #40115171
svd
svd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
1. Сплэшскрин есть, но раздражает именно задержка старта и людям просто плевать, что пишется в сплэше.
2. Совет с запросами к базе держу в голове, но не так то просто ее решить: часть данных из базы так же является конфигурацией или влияет на порядок/видимость кнопок (например). А видимость так же зависит от размера других контролов на экране и т.п. тоже не так просто, но надо попробовать решить ребус.

сначала запускается "старая форма" (есть клиенты, которые привыкли к гвоздику и слазить с лавочки не хотят, да и техникам удобней пользоваться старой версией при настройке),
затем если в ini стоит вызов к touch-версии, то поверх нее показывается новая форма, а старая скрывается. Новая форма со старой использует часть таймеров (в любой момент опреатор может преключить на старую форму и изменить что то там)

кто нибудь пробовал такие вещи использовать:
- ассинхронные процедуры;
- threads.
- что то еще.

какие нюансы, на что обратить внимание, какие грабли при этом раскиданы? По идее должно помомочь - в thread я создавал форму, но с небольшим количеством элементов, а тут еще и запросы к базы делать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 11:57
    #40115180
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
часть данных из базы так же является конфигурацией или влияет на порядок/видимость кнопок (например)
Эти запросы не могут выполняться минуту. И пять секунд не могут. Секунда - это самое долгое. Причем это для суммы всех запросов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 11:58
    #40115182
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
2. Совет с запросами к базе держу в голове, но не так то просто ее решить: часть данных из базы так же является конфигурацией или влияет на порядок/видимость кнопок (например). А видимость так же зависит от размера других контролов на экране и т.п. тоже не так просто, но надо попробовать решить ребус.
Переведи всю вычитку в один большой, но быстрый запрос. Только так.
svd
в thread я создавал форму
Врёшь, это невозможно. Только через WinAPI - CreateWindow и т.д.
В общем, раз с потоками не работал - сейчас не время начинать. Для начала - переделай несколько запросов на один и ускорь его.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:02
    #40115223
svd
svd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
@_Vasilisk_

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

@YuRock
ПС: должен я напоминать о правилах в форуме?
под спойлером проект для курения написанныйза 2 минуты. Выкладывать видео на youtube с процессом запуска?
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  T_FormThread = class(TThread)
  protected
    procedure execute; override;
    procedure createform;
  end;

var
  Form1: TForm1;

  Form2: TForm1;

  thd : T_FormThread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  thd := T_FormThread.Create;
  thd.FreeOnTerminate := True;
end;

{ T_FormThread }

procedure T_FormThread.createform;
begin
  Form2 := TForm1.Create(nil);
end;

procedure T_FormThread.execute;
begin
  inherited;

  Synchronize(createform);
  while not terminated do;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Assigned(Form2) then
   Form2.Show;
end;

end.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:06
    #40115224
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
под спойлером проект для курения написанныйза 2 минуты.
svd
Код: pascal
1.
2.
3.
4.
5.
6.
procedure T_FormThread.execute;
begin
  inherited;
  Synchronize(createform);
  while not terminated do;
end;

Я не хочу вас огорчать, но форма у вас создается в главном потоке

svd
: часть данных из базы так же является конфигурацией
svd
в которых коллега делал какие-то довольно сложные вычисления
Так вы определитесь: запрос конфигурации или сложные вычисления?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:25
    #40115231
Fr0sT-Brutal
Fr0sT-Brutal
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
Прошу поделиться опытом, кто как решает(решил) подобную нестыковку.


1. Засечь, что именно подтормаживает
2. Ускорить это
3. Если сработало: Профит
4. Иначе: Забить либо Оптимизировать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:34
    #40115236
svd
svd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
@_Vasilisk_,

и то, и другое. Он сейчас объяснил, что делал там перерасчет элементов старой версии и версии в которой этого небыло. Ну а выходом являются коэффициенты. По его задумке "перавый раз" может выполняться медленно, а потом уже быстро. Но этот кусок уже несуществинен - только что его перенес всекцию создания то запросу клинетов. На 3 или 4 секунды вроде лучше стало(судя по логам).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:56
    #40115248
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
ПС: должен я напоминать о правилах в форуме?
под спойлером проект для курения написанныйза 2 минуты. Выкладывать видео на youtube с процессом запуска?
Ничё не понял, к чему это. Ну ладно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 13:59
    #40115251
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
Код: pascal
1.
2.
Synchronize(createform);
while not terminated do;

Прикольно. Обе строки мне нравятся. Коротко и ясно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 14:04
    #40115253
svd
svd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
Так тоже в основном потоке?

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  T_FormThread = class(TThread)
  protected
    procedure execute; override;
    procedure createform;
  end;

var
  Form1: TForm1;

  Form2: TForm1;

  thd : T_FormThread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  thd := T_FormThread.Create;
  thd.FreeOnTerminate := True;
end;

{ T_FormThread }

procedure T_FormThread.createform;
begin
  if not assigned(Form2) then
  begin
    Form2 := TForm1.Create(nil);
  end;
end;

procedure T_FormThread.execute;
begin
  inherited;

  while not terminated do
      Synchronize(createform);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Assigned(Form2) then
 begin
   application.InsertComponent(Form2);
   Form2.Show;
 end;
end;

end.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 14:15
    #40115260
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
Так тоже в основном потоке?

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  T_FormThread = class(TThread)
  protected
    procedure execute; override;
    procedure createform;
  end;

var
  Form1: TForm1;

  Form2: TForm1;

  thd : T_FormThread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  thd := T_FormThread.Create;
  thd.FreeOnTerminate := True;
end;

{ T_FormThread }

procedure T_FormThread.createform;
begin
  if not assigned(Form2) then
  begin
    Form2 := TForm1.Create(nil);
  end;
end;

procedure T_FormThread.execute;
begin
  inherited;

  while not terminated do
      Synchronize(createform);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Assigned(Form2) then
 begin
   application.InsertComponent(Form2);
   Form2.Show;
 end;
end;

end.


Да. И так еще прикольнее)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 14:16
    #40115262
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svdТак тоже в основном потоке?

Чудак, может, ты уже откроешь справку по Synchronize?..
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 14:21
    #40115264
DmSer
DmSer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
YuRock
svd
Код: pascal
1.
2.
Synchronize(createform);
while not terminated do;

Прикольно. Обе строки мне нравятся. Коротко и ясно.


Потрясающий шедевр! Восхитительно! Нет слов!

 

Как можно что-то программировать, совершенно не понимая что ты делаешь?
Хотел было ссылку дать на свой учебник по многопоточному программированию для начинающих, но вижу, что до уровня "начинающий" ещё дойти нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 15:15
    #40115280
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
DmSer
 

Как можно что-то программировать, совершенно не понимая что ты делаешь?
Хотел было ссылку дать на свой учебник по многопоточному программированию для начинающих, но вижу, что до уровня "начинающий" ещё дойти нужно.

 

Мне на этом форуме уже объяснили, что это называется известным термином "Судорожное программирование".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 15:26
    #40115282
Bred eFeM
Bred eFeM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd , опытом не делятся, он даётся в процессе. А на нестыковки уже указали )
 
DmSerХотел было ссылку дать на свой учебник по многопоточному программированию ...
Спасибо за труды!
Не читал, но рекомендую )

Но таки да, там у тебя очень много буков, а у ТС очень много таймеров - наверное, не подружатся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 16:42
    #40115321
Barmaley57
Barmaley57
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
А что тут было то? Я всё пропустил?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 16:45
    #40115322
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
Barmaley57
А что тут было то? Я всё пропустил?
суровый бой подушками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 16:51
    #40115323
Barmaley57
Barmaley57
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
Рустам слишком быстро работает)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2021, 02:29
    #40115400
Dmvrt
Dmvrt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd,
Не очень понял логику построения загрузки (без потоков и т.д.) просто логику программы.
1. У тебя есть 2 интерфейса: старый и новый. Их загрузка обеспечена наличием флага в ini-файле.
2. Тогда ты вроде как должен следовать логике и загружать либо старый, либо новый интерфейс, но не 2 сразу.
3. Если человек захотел переключиться в другой интерфейс (для чего это?), то ты выгружаешь текущий и загружаешь другой.
4. Действительно загрузка конфигурации - это секунды. Ты должен загрузить меню, но не данные. Данные нужно грузить потом, когда пользователь выберет, что он хочет.
5. Если ты грузишь, например, какие-то состояния, статистику, то сделай выставку данных с обновлением на сервере через N-минут и в зависимости от готовности данных перегружай ее на клиент в сжатом виде (диаграммы, групповая инфо), в онлине свести большие объемы данных проблематично и долго.
6. Я просто желаю тебе задуматься над построением логики, а потом уже прибегнуть к потокам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2021, 03:45
    #40115402
softwarer
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
svd
Фреймы грузятся в зависимости от конфигурации, потому и исследовать даже проблематично

У Вас какое-то нелепое представление об исследовании. Судя по всему, оно заключается в сидении с умным видом и плевании в потолок в ожидании озарения.

Для исследования торможений используется несколько стандартных инструментов:

а) Профайлер. Показывает кучу полезной информации о том, какой код сколько раз выполнялся и сколько времени это заняло
б) Монитор/трассировщик. Показывает обмен между клиентом и БД и опять-таки - сколько времени какой из запросов занимал
в) Лог-файл. Для наколеночного исследования можно руками записывать начало-конец операций и видеть, сколько времени они занимали.

"Фреймы грузятся в зависимости от конфигурации" не вносит в применение этих инструментов никакой существенной специфики. Дело житейское.

rgreat
Не использовать Data-Aware компоненты.

Какие ещё нелепые советы будут? Чтобы сразу оптом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2021, 04:04
    #40115404
Dmvrt
Dmvrt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi ускорение запуска приложения.
softwarer

rgreat
Не использовать Data-Aware компоненты.

Какие ещё нелепые советы будут? Чтобы сразу оптом.


Data-Aware хороши, если их норм использовать, а иногда пользователи войдя в такой компонент, блокируют надолго запись, если напрямую редактировать таблицу, и блокировки..., разве не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi ускорение запуска приложения. / 25 сообщений из 39, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 3237ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2036826]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 2851ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 278ms
total:  3237ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]