ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi ускорение запуска приложения.
25 сообщений из 39, страница 1 из 2
  1  все
Delphi ускорение запуска приложения.
    #40115150
svd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svd
Участник
Всем привет.

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

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

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

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

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

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

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

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

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


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

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

Прикольно. Обе строки мне нравятся. Коротко и ясно.
...
Рейтинг: 0 / 0
26.11.2021, 13:59
| Ответить | Цитировать | Написать  
Delphi ускорение запуска приложения.
    #40115253
svd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:04
| Ответить | Цитировать | Написать  
Delphi ускорение запуска приложения.
    #40115260
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
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:15
| Ответить | Цитировать | Написать  
Delphi ускорение запуска приложения.
    #40115262
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
svdТак тоже в основном потоке?

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

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


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

 

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

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

 

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

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

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

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

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

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

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

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

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

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


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


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