Canvas в потоках

[demigod82]

Я уже достаточно долго не могу понять, как иcпользовать методы canvas в потоке. Может кто нибудь объяснит это? Заранее благодарю.

[Aliens_wolfs]

canvas в теле потока работать правильно никогда не будет, да и вообще визуальные действия в теле потока нельзя делать, для того чтобы работло нужно из тела потока синхронно вызывать созданное событие
К примеру


В форме задаем событие

    { Private declarations }
  public
    procedure OnLoadTexture(Sender: TObject)
end;

type
  TMoveObject = class(TThread)
  private
 FhEvent: THandle;
FCanvas: TCanvas;
FOnDraw: TNotifyEvent;
  protected
    procedure Execute; override;
    procedure Draw; virtual;
public
    constructor Create; virtual;
  destructor Destroy; override;
property OnDraw: TNotifyEvent read FOnDraw write FOnDraw;
property Canvas: TCanvasread FCanvas write FCanvas;
end;

var
  Form1: TForm1;
   MoveObjects: TMoveObjects;

implementation

{$R *.dfm}

constructor TMoveObject.Create;
begin
  inherited Create(True);
//для самоуничтожения когда Terminate
 FreeOnTerminate := True;
// Создаем хендел прерывания процесса
FhEvent := CreateEvent(nil, True, False, nil);
end;

procedure TMoveObject.Draw;
begin
//Рисуем 
FCanvas.Draw(0,0, и можно Bitmap но его нужно задать в потоке);
// предаем событие для наследника 
 if Assigned(FOnDraw) then
 FOnDraw(Self);
end;

destructor TMoveObject.Destroy;
begin
   CloseHandle(FhEvent);
  inherited;
end;

procedure TMoveObject.Execute;
begin
while not Terminated do
  begin
//Прерывание что бы неюыло зацикливания
     WaitForSingleObject(FhEvent, 100);
//Синхронно выполняем функцию
Synchronize(Draw);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Создаем поток
MoveObjects:= TMoveObjects.Create;
//Передаем событие потока форме
MoveObjects.OnDraw:= OnDrawObject;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//запускаем поток
MoveObjects.Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//останавливаем, об уничтожении нам заботится не нужно так как в потоке объявлено  FreeOnTerminate := True;
MoveObjects.Terminate;
end;


procedure TForm1.OnDrawObject(Sender: TObject) ;
begin
//Передаем канву потока форме
Form1.Canvas.Assign(MoveObjects.Canvas);
end;

[demigod82]

А можно на примере этого кода?

procedure MyTread.Execute;
  { Place thread code here }
var
 symbol: string;
 f: TextFile;
 d, b: integer;
 symb: char;
begin
 AssignFile(f, '1.txt');// открываю файл
 Reset(f);
 for d:= 1 to 10 do begin// запускаю цикл
   for b:= 1 to 10 do begin
    While not(eof(f)) do begin
     Read(f, symb);
     FilesArr[d, b]:= symb;// записываю в массив
     symbol:= symb;
     Synchronize(DrawLevel);// пытаюсь сихронизировать для canvas
   end;
  end;
 end;
 CloseFile(f);
end;

procedure MyTread.DrawLevel(t, y: integer; sym: string);
begin
 u:= 60 * t;
 o:= 25 * y;
 if sym = '1' then begin
  with Form1.Canvas do begin// это не работает хотя мне советовали так
  Canvas.Brush.Color:=RGB(0, 255, 0);// пытаюсь рисовать
  Canvas.Rectangle(u, o, u - 60, o - 25);
 end;
 end;
 if sym = '2' then begin
  Canvas.Brush.Color:=RGB(0, 0, 255);
  Canvas.Rectangle(u, o, u - 60, o - 25);
 end;
end;
end;

В форме я просто запускаю цикл по созданию формы.

[3D Hunter]

Подсказка: класс TBitmap тоже имеет Canvas
Делайте любые действия в потоке с переменной типа TBitmap, а потом просто в потоковой процедуре присваивайте ваш битмап.канвас визуальной канве. Процедура должна вызываться методом Synchronize().

[demigod82]

А как присвоить bitmap канве формы?

[3D Hunter]

Канву присвоить прямо нельзя, но вот рисовать на канве битмап - можно

  //работаем с канвой битмапа в потоке как хотим
  b:=TBitmap.Create;
  b.Width:=200;
  b.Height:=200;
  b.PixelFormat:=pf24bit;
  b.Canvas.Brush.Color:=clRed;
  b.Canvas.FillRect(b.Canvas.ClipRect);
  b.Canvas.Ellipse(0,0,50,50);
  b.Canvas.Rectangle(50,50,200,200);

  Form1.Image1.Canvas.Draw(0,0,b);//вызывать эту строчку в потоке с помощью Synchronize

[demigod82]

Спасибо. Но у меня возникли новые проблемы. Фон image у меня стал белый, а нарисовать получается только один прямоугольник, хотя у меня код находится в цикле.

[demigod82]

Спасибо. Но у меня появились новые проблемы. У меня получается в цикле нарисовать только один прямоугольник( я так понял это потому что не перерисовывается?), а фон image стал белым и другие фигуры заходят за него. Да и если уж так всё с потоками сложно с графикой, как рисовать в canvas много фигур, чтобы это всё не тормозило при движении другой фигуры?

[3D Hunter]

смысл в том, что ты рисуешь в потоке на канве БИТМАПА, а не формы! это разные вещи. Форма - визуальный VCl-компонент, и не ориентирован на многопоточность. С переменной типа TBitmap - другое дело, здесь ты в потоке работаешь с ней как с данными, не привязанными к чему-либо визуальному. Твоя ошибка скорее всего в неверном вызове процедуры синхронизации.
Например, в методе Execute твоего потока написать код работы с битмапом, а потом в нем же сделать такой вызов:

procedure TMyThread.Execute(Sender: TObject);
begin
//вставляешь здесь свой код с циклами по работе с переменной b
  Synchronize(VclDraw);//вызываешь прорисовку канвы переменной b
end;

Процедура VclDraw должна быть методом твоего потока:

procedure TMyThread.VclDraw;
begin
  Form1.Image1.Canvas.Draw(0,0,b);
end;

И не забудь прописать в секции uses модуль с твоей формой.

[Aliens_wolfs]

procedure TMyThread.Execute(Sender: TObject);
begin
//вставляешь здесь свой код с циклами по работе с переменной b
Synchronize(VclDraw);//вызываешь прорисовку канвы переменной b
end;

(Sender: TObject); там ненужен, и вообще смысл потока без цикла для простых действий где нет ожидания выполнения в этом случае он ненужен и еще нужно прерывание делать если будет цикл в потоке типа
while not Terminated do
а то процессор будет грузить даже когда Synchronize либо Sleep(10); либо WaitForSingleObject(FhEvent, 10);

Цикл должен быть в теле потока. Примерно так

procedure TMyThread.Execute;
begin
while not Terminated do
  begin
//Прерывание что бы небыло загруженности процессора
Sleep(10);
либо
WaitForSingleObject(FhEvent, 100);// тогда можно ускорять с помощью SetEvent(FhEvent) из какой нибудь функции если нужно да и так правельнее
//Синхронно выполняем функцию
 Synchronize(VclDraw);
end;
end;