[backgammon]

to Sphinx:
Ну мне это как бы не надо
Проги для себя пишу так как быстрее и удобнее, то есть дельфи.
Ну я по работе, пишу на php и использую SQL больше мне как бы ничего и не надо

to Grey:
Во во, програмка то была совсем маленькая. А с Win API... я ее не знаю
Ушел в веб-программирование

[Grey]

Вернемся к теме. Все же меня этот гондурас беспокоит. Кому не лень -- протестируйте эти две проги (упрощенный вариант первоначальной проблемы). Различаются только наличием/отсутствием кнопки типа TSpeedButton, которая никакой роли не играет. При нажатии кнопки "button" включается таймер на 1 секунду, и генерируются случайные числа от 0 до 51. По отработке таймера выводится количество сгенерированных чисел. У меня стабильная разница в 5%:



У кого есть Дельфи, могут сами состряпать. Вот исходник:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Timer1: TTimer;
BitBtn1: TBitBtn;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
procedure Timer1Timer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
stop: boolean;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := false;
bitbtn1.Enabled := true;
stop := true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: integer;
w: word;
begin
bitbtn1.Enabled := false;
stop := false;
i := 0;
edit1.Text := '...';
timer1.Interval := 1000;
timer1.Enabled := true;
repeat
application.ProcessMessages;
inc( i );
w := random( 52 );
until stop;
edit1.Text := inttostr( i );
end;

end.

[mikx]

Я попробую угадать, что дело в
ProcessMessages
эта фигня останавливает выполнение твоей проги и ждет очистки очереди сообщений, а она(очередь) с разными компанентами может иметь разную длинну. Вот и все.
Сделай все это в отдельном потоке и не будет таких проблем.

[Grey]

Сообщение от mikx писал

Я попробую угадать, что дело в
ProcessMessages

Гадать не надо, надо попробовать. Не влюёт совершенно. И потом, неясно, почему одна группа компонент никак не замедляет выполнение, а другая замедляет. Я не смог найти ничего общего между ними...

[backgammon]

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

[mikx]

Сообщение от Grey писал сб, 13 мая 2006 21:40

Гадать не надо, надо попробовать. Не влюёт совершенно. И потом, неясно, почему одна группа компонент никак не замедляет выполнение, а другая замедляет. Я не смог найти ничего общего между ними...

Напиши мне в личку, у меня делфи нет.
А какой код был без ProcessMessages очень интересно.
или как ты проверил написав - "Не влюёт совершенно."

[Grey]

Сообщение от mikx писал

А какой код был без ProcessMessages очень интересно.
или как ты проверил написав - "Не влюёт совершенно."

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

[Grey]

Сообщение от backgammon писал

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

Для чистоты эксперимента все фоновые задачи лучше убрать.

[Sharky]

Во-во.. mikx скорее всего прав.

лучше сделай так:

var
Tick1, Tick2: DWord;

...

Tick1 := GetTickCount;

// code here..

Tick2 := GetTickCount;
if Abs(Tick2-Tick1) <> 300 then
Application.ProcessMessages;
Tick1 := Tick2;

...

300 -- время в миллисекундах (ставь то какое нужно). Так ОС не будет думать, что твоя прога зависла..

а еще лучше на 250-300 делай HandleMessage а на 400-500 ProcessMessage..

[mikx]

Сообщение от Grey писал сб, 13 мая 2006 21:49

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

Попробуй сделать все тоже самое в отдельном потоке !!!!
погляди что будет.
Вообще если код оторван от интерфейса то скорость его выполнения не
может зависить от компанентов.

[Grey]

Сообщение от Grey писал

Для чистоты эксперимента все фоновые задачи лучше убрать.

Написал, а сам подумал -- может быть, перезапустить Windoze? Ну перезапустил. Эффект тот же, только с точностью до наоборот:



Маст дай, однозначно.

[mikx]

выньДОС это вещ

[Sharky]

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

[Grey]

Кстати, в основной задаче (в отличие от этих демок) даже после перезагрузки все осталось по-прежнему. Тормозит на 25%. Попробую с тредами, но не раньше понедельника :*), потом отпишу, что получится.