|
Вопрос # 4 557/ вопрос открыт / |
|
Здравствуйте уважаемые эксперты!
Мой вопрос касается создания потоков внутри компонента.
Суть проблемы такова
я создал простенький компонент на основе TPanel, для работы с графикой. При обсчете графики вся программа жутко тормозит, ввиду чего было принято решение создавать новый поток для расчетов, который будет уничтожаться после рассчета всех параметров.
Проблема такова что компилятор ругается на свойства TMyPanel типа Width внутри функции потока и пишет что они не определены, в то же время если закомментировать все строки связанные с созданием потока, то все нормально. Вопрос в том как можно решить эту проблему?
Приложение: Переключить в обычный режим- unit MyPanel;
-
- interface
-
- uses
- SysUtils, Classes, Controls, ExtCtrls, Graphics;
-
- type
- TMyPanel = class(TPanel)
- private
- { Private declarations }
-
- protected
- property Canvas;
- procedure Paint();Override;
- { Protected declarations }
-
- public
- Constructor Create(AOwner: TComponent); Override;
- Property ClientRect;
- Property BoundsRect;
- { Public declarations }
-
- published
- property width default 49;
- property Height default 41;
- { Published declarations}
- end;
-
-
- procedure Register;
-
- function CreateThread(lps:pointer; cbStack:Cardinal; lpStartAddr:pointer;
-
- lpvThreadParam:pointer; fdwCreate:Cardinal; lpIDThread:Cardinal ):THandle;
- STDCall; external 'Kernel32' name 'CreateThread';
-
- function GetExitCodeThread(hThread:THandle; lpExitCode:Cardinal):boolean;
- STDCall; external 'Kernel32' name 'GetExitCodeThread';
-
- procedure ExitThread(dwExitCode:Cardinal);
- STDCall; external 'Kernel32' name 'ExitThread';
-
- Function MyThread(p:pointer):LongInt; STDCall;
-
- var
- ThreadHandl: THandle;
- ThreadID: Cardinal;
-
-
- implementation
-
- Constructor TMyPanel.Create(AOwner: TComponent);
- Begin
- Inherited Create(AOwner);
-
- Width:=49;
- Height:=41;
- Caption:='';
-
- End;
-
- procedure Register;
- begin
- RegisterComponents('Standard', [TMyPanel]);
- end;
-
- Procedure TMyPanel.Paint;
- Begin
-
- ThreadHandl:=CreateThread(nil,0,@MyThread,nil,0,ThreadID);
-
- End;
-
-
- Function MyThread(p:pointer):LongInt; STDCall;
- var
- ExitCode: Integer;
-
- i1,i2: Integer;
- Begin
- GetExitCodeThread(ThreadHandl,ExitCode);
-
- i1:=Width;
- i2:=Height;
-
-
- ExitThread(ExitCode);
- End;
-
-
- end.
 |
Вопрос задал: SOA (статус: Посетитель)
Вопрос отправлен: 3 сентября 2010, 13:29
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, SOA!
сколько хлама в таком маленьком коде!
собственно с проблемы.
MyThread - это функция, а не метод класса TMyPanel, поэтому доступа до его полей и методов не может иметь. Что бы обойти это - нужно передать указатель на объект.
например так
ThreadHandl:=CreateThread(nil,0,@MyThread,self,0,ThreadID);
(может там приведение типов для self понадобиться)
а в самой процедуре делаем так
Function MyThread(p:pointer):LongInt; STDCall;
var
ExitCode: Integer;
i1,i2: Integer;
panel:TMyPanel;
Begin
panel := TMypanel(p);
GetExitCodeThread(ThreadHandl,ExitCode);
i1:=panel.Width;
i2:=panel.Height;
ExitThread(ExitCode);
End;
Вторая ошибка - это создание треда в методе Paint. В этом методе нужно делать строго одно - отрисовать картинку. Вы же создаете тред. Картинка отрисована не будет. Тред сам то может рисовать, но это будет очень неефективно - будут мерцания.
Метод Paint вызывается системой, когда она хочет отрисовать компонент. Поэтому если в нем быстро рисовать все что нужно, то будет очень красиво работать.
Как же сделать более правильно?
1) воспользоваться классом TThread, а не изобретать велосипед с системными функциями. Они как минимум ничего не знают о VCL и в будущем это может быть выражено в виде больших глюков.
2) тред запускать в момент создания компонента.
3) тред делает рассчеты и рисует на TBitmap'е. А вот метод Paint просто берет этот битмап и просто копирует на панель. Конечно, тред может выставить специальный флажок, что данные ещё не готовы или использовать два битмапа (на одном тред рисует, на второй переносит, когда изображение достигает какого то логического этапа и с этого битмапа уже рисует Paint).
4) Не забывать о том, что есть такое понятие как критические секции и мютексы и аккуратно синхронизировать работу.
5) подумать о том, что Panel - не очень хороший компонент в данном случае и наследоваться от TGraphicsControl или чего то подобного.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 3 сентября 2010, 14:16
Оценка за ответ: 5
Комментарий к оценке: Спасибо за подсказку про TThread.
|
Мини-форум вопроса
Всего сообщений: 20; последнее сообщение — 7 сентября 2010, 15:50; участников в обсуждении: 2.
|
|
SOA (статус: Посетитель), 3 сентября 2010, 16:56 [#1]:
Нет так не получается, возникает ошибка обращения к памяти при первой же попытке создать поток. Пытался передавать параметры через глобальные переменные, в этом случае приложение пишет что у той или иной переменной неизвестный тип, хотя минуту назад до изменений тип был известен 
Также пытался передавать параметры в указателях, но там программа ведет себя примерно также, только пишет не про тип а о том что некоторые параметры должны быть переменными.
В общем упирается как только может.
Попробую через TThread.
|
|
|
Вадим К (статус: Академик), 3 сентября 2010, 18:33 [#2]:
ну может покажете результирующий код? например там, где через параметры передаете.
А вот с глобальными параметрами - это можно сразу выкидывать.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 4 сентября 2010, 07:51 [#3]:
Извините то код я уже удалил, там все сводилось к массиву указателей объявленному в глобальных параметрах, после чего перед вызовом функции создания потока в этот массив записывались адреса параметров из TMyPanel.
Собственно проблему удалось решить через TThread, привожу код
unit MyPanel;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics, Types;
type
TMyPanel = class(TPanel)
private
FSrcCanvas: TCanvas;
{ Private declarations }
protected
property Canvas;
procedure Paint();Override;
{ Protected declarations }
public
property SrcCanvas:TCanvas read FSrcCanvas write FSrcCanvas;
Constructor Create(AOwner: TComponent); Override;
Property ClientRect;
Property BoundsRect;
{ Public declarations }
published
property width default 49;
property Height default 41;
{ Published declarations}
end;
type
TMyThread = class(TThread)
procedure Execute; override;
procedure Raschet;
End;
procedure Register;
var
Thread1: TMyThread;
MyWidth, MyHeight: Integer;
MyCanvas, MySrcCanvas: TCanvas;
MyClientRect, MyBoundsRect: TRect;
implementation
Constructor TMyPanel.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner);
Width:=49;
Height:=41;
Caption:='';
End;
Procedure TMyThread.Execute();
Begin
Synchronize(Raschet);
End;
Procedure TMyThread.Raschet();
var
i1,i2: Integer;
Begin
i1:=MyWidth;
i2:=MyHeight;
Thread1.Terminate;
End;
procedure Register;
begin
RegisterComponents('Standard', [TMyPanel]);
end;
Procedure TMyPanel.Paint;
Begin
MyWidth:=Width;
MyHeight:=Height;
Thread1:=TMyThread.Create(false);
End;
end.
Там тоже компилятор вначале ругался на некоторые параметры, но после включения в uses Types.pas все заработало, правда новый поток не помог повысить скорость исполнения кода, ЖУТКИЕ тормоза при отрисовке как были так и есть
 |
|
|
Вадим К (статус: Академик), 4 сентября 2010, 18:00 [#4]:
Тормоза потому, что рисуете не там, где нужно. Но самая большая ошибка - это строка
Synchronize(Raschet);
дело в том, что такая конструкция выполняется в главном потоке. То есть вся выгода от треда в данном случае нивелируется.
Во вторых, я уже писал, что тред нужно создавать в Create TMyPanel.
И на последок. Если в коде треда Вы обращаетесь только к элементам канвы, то можно не синхронизировать дополнительно - они уже синхронизированы и тредобезопасны.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 5 сентября 2010, 14:04 [#5]:
Тормоза будут даже если рисовать в самой процедуре Paint, потому что цикл слишком длинный, собственно поэтому и думал что новый поток поможет решить проблему.
|
|
|
Вадим К (статус: Академик), 5 сентября 2010, 19:21 [#6]:
новый поток решит то проблему. Но нужно правильно решать. Я уже писал выше, как ее нужно решать и как ее решают. Но Вы упорно ищете странный путь решения. Я не знаю, почему.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 09:57 [#7]:
Если создавать поток при создании компонента, то я не вижу возможности передать параметры компонента (width,height) внутрь потока т.к. в том коде что я написал выше эти параметры передаются через глобальные переменные.
При создании потока в событии Create компонента пытался инициализировать эти параметры через систему задержек
поток исполняется каждые 150 мс, Paint перерисовывает Canvas каждые 300 мс по условию
MyWidth:=Width;
MyHeight:=Height;
Sleep(300);
While true do
if ready=true then
Begin
Canvas.CopyRect(Rect(0,0,?,?),MyBitmap.Canvas,Rect(0,0,?,?));
break;
End;
при таком подходе панель даже не перерисовывалась.
|
|
|
Вадим К (статус: Академик), 6 сентября 2010, 10:28 [#8]:
с глобальными переменными в коде компонента Вы проживете не долго. Если использовать TThread, то никто не мешает завести у его наследника поле типа TMyPanel и при создании инициализировать ссылкой на него.
Единственное, что тред придется создавать спящим, а потом, когда все инициализируется, будить.
А код приведенный выше - это в коде треда я так понимаю? Но тогда не понятен смысл фразы Цитата (SOA):
Paint перерисовывает Canvas каждые 300 мс по условию
Ваш код отработает ровно один раз (там ведь есть break).
Странно выглядит код - зачем там задержка в 300 мс я не понимаю. Смысла особого никакого.
Приводите полный код, сложно разбираться в таких отрывках. и если Вы не хотите приводить расчетную часть, просто вставляйте коментарий вида {тут считаем} или что то в этом роде.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 10:36 [#9]:
Нет приведенный код касется функции Paint, Расчеты производятся в Thread где выставляется задержка sleep(150) после каждого цикла расчетов
MyThread.Rascet()
Begin
Ready:=false;
{расчеты}
Ready:=True;
Sleep(150);
End;
TMyPanel.Paint();
Begin
MyWidth:=Width;
MyHeight:=Height;
try
Thread1.Resume;
Except
End;
Sleep(300); // Чтоб поток успел проинициализировать переменные
While true do // Ждем результат
if ready=true then
Begin
Canvas.CopyRect(Rect(0,0,?,?),MyBitmap.Canvas,Rect(0,0,?,?));
break;
End;
End;
P.S. про вставку Thread в TMyPanel как то не подумал спасибо, попробую.
|
|
|
Вадим К (статус: Академик), 6 сентября 2010, 10:45 [#10]:
Sleep(300); - это первая ошибка.
While true do // Ждем результат - а это вторая.
Код Paint'а должен отрабатываться максимально быстро. МАКСИМАЛЬНО. поэтому всякие задержки - это ненужности.
Можно код отрисовки сделать минимальным - например таким
if ready then
Canvas.CopyRect(Rect(0,0,?,?),MyBitmap.Canvas,Rect(0,0,?,?))
else
Canvas.CopyRect(Rect(0,0,?,?),MyEmpty.Canvas,Rect(0,0,?,?));
здесь в коде есть ещё MyEmpty - это спициальная канва, на которую мы загружаем "пустой рисунок".
При таком подходе картинка на канве появиться как только так сразу
Кстати, в этом коде могут быть проблемы из за переменной Ready. Дело в том, что компилятор может оптимизировать ее и ее значение в разных тредах будет не синхронно.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 12:41 [#11]:
>Если использовать TThread, то никто не мешает завести у его наследника поле типа TMyPanel и при создании инициализировать ссылкой на него.
Попытался сделать так, вот что получилось
type TMyPanel = class(TPanel); // Если убрать здесь, пишет в TMyThread о неизвестном типе
type
TMyThread = class(TThread)
procedure Execute; override;
procedure Raschet;
private
FPanel: TMyPanel;
{Private declarations}
public
property Panel: TMyPanel read FPanel write FPanel;
{Public declarations}
End;
type
TMyPanel = class(TPanel) // Пишет об двойном объявлении типа
private
FThread1: TMyThread;
FMyBitmap: TBitmap;
.
.
.
В книге нашел метод упреждающего объявления классов, но с типами похоже это не работает 
|
|
|
Вадим К (статус: Академик), 6 сентября 2010, 12:54 [#12]:
Цитата (SOA):
метод упреждающего объявления классов, но с типами похоже это не работает
прочитайте внимательно текст. классы это тоже типы.
А не работает потому, что сделали не упреждающее объявление, а просто объявление.
Нужно писать так
TMyPanel = class;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 13:28 [#13]:
Вот так
unit MyPanel;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics;
TMyPanel=class; // Ругается Declaration expected but identifer 'TMyPanel' found
type
TMyThread = class(TThread)
procedure Execute; override;
procedure Raschet;
private
FPanel: TMyPanel;
{Private declarations}
public
property Panel: TMyPanel read FPanel write FPanel;
{Public declarations}
End;
type
TMyPanel = class(TPanel)
private
FThread1: TMyThread;
FMyBitmap: TBitmap;
{ Private declarations }
Тоже ругается на то что ожидал увидеть код, видит идентификатор.
|
|
|
Вадим К (статус: Академик), 6 сентября 2010, 15:22 [#14]:
ох - ох. ну он же пишет - хочу декларацию. а они с type!
то есть правильно это должно выглядеть так
unit MyPanel;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics;
type
TMyPanel=class;
//type здесь можно этот type убрать
TMyThread = class(TThread)
procedure Execute; override;
procedure Raschet;
private
FPanel: TMyPanel;
{Private declarations}
public
property Panel: TMyPanel read FPanel write FPanel;
{Public declarations}
End;
// type - и здесь.
TMyPanel = class(TPanel)
private
FThread1: TMyThread;
FMyBitmap: TBitmap;
{ Private declarations }
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 16:19 [#15]:
Действительно так не ругается и свойства можно импортировать.
|
|
|
SOA (статус: Посетитель), 6 сентября 2010, 18:33 [#16]:
Да свойства импортировать можно, но из за этого образуется петля в процедуре TMyPanel.Create, которая съедает память, до тех пор пока система не прихлопнет ее.
unit MyPanel;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics;
type
TMyPanel=class;
//type
TMyThread = class(TThread) // MyThread
procedure Execute; override;
procedure Raschet;
private
FPanel: TMyPanel;
{Private declarations}
public
property Panel: TMyPanel read FPanel write FPanel;
{Public declarations}
End;
//type
TMyPanel = class(TPanel) // MyPanel
private
FThread1: TMyThread;
FMyBitmap: TBitmap;
{ Private declarations }
protected
property Canvas;
procedure Paint();Override;
{ Protected declarations }
public
Constructor Create(AOwner: TComponent); Override;
{ Public declarations }
published
property width default 49;
property Height default 41;
property Thread1: TMyThread read FThread1 write FThread1;
property MyBitmap: TBitmap read FMyBitmap write FMyBitmap;
{ Published declarations}
end;
procedure Register;
implementation
Constructor TMyPanel.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner); //1
Thread1:=TMyThread.Create(true); //2
Thread1.Panel.MyBitmap:=TBitmap.Create; //3 Тут почемуто выдает ошибку обращения к памяти
Thread1.Panel:=TMyPanel.Create(nil); //4 здесь образуется петля и указатель следующей процедуры прыгает на первый
пункт.
Width:=49;
Height:=41;
Caption:='';
End;
Procedure TMyThread.Execute();
Begin
Synchronize(Raschet);
End;
Procedure TMyThread.Raschet();
Begin
{расчеты}
End;
procedure Register;
begin
RegisterComponents('Standard', [TMyPanel]);
end;
Procedure TMyPanel.Paint;
Begin
if Thread1.Suspended=true then // Запускаем поток
Thread1.Resume;
Thread1.Panel.MyBitmap.Width:=Width;
Thread1.Panel.MyBitmap.Height:=Height;
Thread1.Panel.Top:=BoundsRect.Top;
Thread1.Panel.Left:=BoundsRect.Left;
{Thread1.Panel.ClientRect:=ClientRect;}
Thread1.Panel.BoundsRect:=BoundsRect;
Thread1.Panel.SrcCanvas:=SrcCanvas;
Canvas.CopyRect(ClientRect,Thread1.Panel.MyBitmap.Canvas,Rect(0,0,Width,Height));
End;
End.
|
|
|
Вадим К (статус: Академик), 6 сентября 2010, 21:04 [#17]:
Constructor TMyPanel.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner); //1
Thread1:=TMyThread.Create(true); //2
Thread1.Panel.MyBitmap:=TBitmap.Create; //3 Тут почемуто выдает ошибку обращения к памяти
Thread1.Panel:=TMyPanel.Create(nil); //4 здесь образуется петля и указатель следующей процедуры прыгает на первый
пункт.
В точке 3 ссылки на панель ещё нет. Компилятор не может "заглянуть вперед" и посмотреть, что там инициализировали. К тому же, зачем так, через двойной указатель ссылаться на самого же себя? не проще просто написать в этом месте
MyBitmap:=TBitmap.Create;
теперь к точке 4. А тут вообще бардак. Этой строкой Вы создаете ещё одну панель. Эта панель ничего не знает о панели родителе (хотя учитывая иерархию - это уже панель бабушка ).
Правильно строка должна выглядеть где то так
Thread1.Panel := self;
Теперь пройдемся по процедуре Paint.
Procedure TMyPanel.Paint;
Begin
//if Thread1.Suspended=true then // Запускаем поток - здесь писать "= true" не нужно
// вот так будет куда красивее
if Thread1.Suspended then
Thread1.Resume;
// эти две строки ниже - плохой код. Ведь в этот момент у Вас уже работает тред.
//И в общем нужно исходить из того, что теперь работает параллельно два куска кода. ПАРАЛЛЕЛЬНО!
Thread1.Panel.MyBitmap.Width:=Width;
Thread1.Panel.MyBitmap.Height:=Height;
//А вот эти строки ниже для меня вообще загадка. Что они делают...
//то, что они меняют размеры панели и других компонент - я понимаю. Но зачем??? и в процедуре отрисовки...
//не смотря на все вышеуказанное, эту строку можно упросить.
Thread1.Panel.Top:=BoundsRect.Top; // до такого Top:=BoundsRect.Top;
Thread1.Panel.Left:=BoundsRect.Left;
{Thread1.Panel.ClientRect:=ClientRect;}
Thread1.Panel.BoundsRect:=BoundsRect;
Thread1.Panel.SrcCanvas:=SrcCanvas;
Canvas.CopyRect(ClientRect,Thread1.Panel.MyBitmap.Canvas,Rect(0,0,Width,Height));
End;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 7 сентября 2010, 14:29 [#18]:
Действительно так рисует, но тормоза при отрисовке, всеравно присутствуют
Также для отрисовки пришлось добавить Panel.Redraw в Paint.
В целом код практически такой как вы и написали, с учетом комментариев конечно
Constructor TMyPanel.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner);
Thread1:=TMyThread.Create(true);
Thread1.Panel:=Self;
MyBitmap:=TBitmap.Create;
End;
Procedure TMyPanel.Paint;
var
i1,i2: Integer;
c: TColor;
r,g,b:byte;
Begin
if Thread1.Suspended then
Thread1.Resume;
MyBitmap.Width:=Width;
MyBitmap.Height:=Height;
Canvas.CopyRect(ClientRect,MyBitmap.Canvas,Rect(0,0,Width,Height));
Thread1.Panel.Refresh;
end;
Попробую поискать другой путь решения, но в целом всеравно довольно неплохой опыт для меня.
|
|
|
Вадим К (статус: Академик), 7 сентября 2010, 14:45 [#19]:
Замечания к коду.
Первое - если что то рассчитывается двадцать минут, то тред не поможет это ускорить. Просто разгрузит интерфейс. Но если машина двухядерная, и сделать два треда, правильно распараллелить, то можно получить ускорение до двух раз.
MyBitmap.Width:=Width;
MyBitmap.Height:=Height;
если тред орудует объектом MyBitmap (рисует на нем), то эти строки тут только навредят.
а вот в этой строке
Thread1.Panel.Refresh;
два чуда.
1) если ее сократить до Refresh - то ничего не измениться.
2) вызывать ее внутри процедуры отрисовки - плохо - она фактически вызвет ещё раз процедуру отрисовки.
пусть лучше тред, когда закончит рисовать, вызовет refresh. Вот тогда Paint просто скопирует картинку и все будет готово.
вот мое краткое видение кода
Constructor TMyPanel.Create(AOwner: TComponent);
Begin
Inherited Create(AOwner);
Thread1:=TMyThread.Create(true);
Thread1.Panel:=Self;
MyBitmap:=TBitmap.Create;
MyBitmap.Width:=Width;
MyBitmap.Height:=Height;
Thread1.Resume;
End;
Procedure TMyPanel.Paint;
Begin
if not Thread1.ready then
Canvas.CopyRect(ClientRect,MyEmptyBitmap.Canvas,Rect(0,0,Width,Height))
else
Canvas.CopyRect(ClientRect,MyBitmap.Canvas,Rect(0,0,Width,Height));
end;
MyEmptyBitmap - это специальное поле TMyPanel, которое хранит "пустую картинку" - например картинку с текстом "идет рассчет".
код треда где то такой
procedure TThread.Execute();
begin
inherited;
{какие то рассчеты};
ready := true;// ready - свойство класса треда, типа boolean
// добавить самостоятельно:) и в конструкторе выставить равным false.
panel.refresh(); // или repaint
end;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
SOA (статус: Посетитель), 7 сентября 2010, 15:50 [#20]:
> если что то рассчитывается двадцать минут, то тред не поможет это ускорить. Просто разгрузит интерфейс.
Не спорю.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
