обработка изображения в потоке

[Dеlphi]

я делаю обработку изображения в отдельном потоке, после этого вывожу изображение на форму в Timage
в поток передаю ссылку на экземпляр Tbitmap:

   medf:= TfiltrMed.Create(true);
   medf.FreeOnTerminate:=true;
   medf.OnTerminate:=OnTerminatepot;
   medf.Priority :=tpNormal;
 medf.resul:=@bmpp; //передача ссылки потоку
   medf.Resume;

в OnTerminatepot вывожу изображение на форму :Image1.Picture.Assign(bmpp);
свойства в потоке:

public
    bmp: pTchizorb;
    resul: ^Tbitmap;

если а потоке использую синхронизацию и все по помещаю в

Synchronize(
    procedure
    begin
//
    end   );

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

[Пепел Феникса]

работа с VCL в потоке должна быть совершена только через Synchronize
соответственно именно туда надо вынести рисование битмапа.

да кстати
^Tbitmap, не надо этого в данном случае, в Делфи объекты хранятся только по указателю, в итоге у вас выходит указатель на указатель.

[Dеlphi]

битмап у меня отдельная переменная, не связана с image1, рисую я на форме без потока, но если я не передаю указалеть в поток а создаю в нем новый битмап и копирую в него битмап другой, то ошибки нет.
в место:

medf.resul:=@bmpp

так:

medf.resul:=Tbitmap.Create;
medf.resul.Width:= Image1.Picture.Bitmap.Width;
medf.resul.Height:=Image1.Picture.Bitmap.Height;
medf.resul.Canvas.Draw(0,0,Image1.Picture.Bitmap);

но я не хочу так делать потому что это работает дольше и памяти больше нужно..

я еще передаю ссылку на динамический массив, он тоже не явный указатель?, но без "^" не работает

[Пепел Феникса]

я имел в виду сделать так:

resul:TBitmap;
//
medf.resul:=bmpp;

в OnTerminatepot вывожу изображение на форму :Image1.Picture.Assign(bmpp);

событие OnTerminate выполняется в контексте потока и потому у вас ошибка без синхронизации.

[Dеlphi]

а как синхронизировать только OnTerminate ?

я сделал обработку изображения в несколько потоков, один поток свою часть изображения обрабатывает, но без синхронизации на форму не что не выводится всё белое

[Пепел Феникса]

может стоит без OnTerminate сделать?
в конце execute написать вызов синхрониз-метода который и нарисует.

[Dеlphi]

Сообщение от Пепел Феникса

может стоит без OnTerminate сделать?
в конце execute написать вызов синхрониз-метода который и нарисует.

пробывал так:

Synchronize(
 procedure begin
    form6.OnTerminatepot(self);
  end );

и событие OnTerminatepot не указывал, все равно не работает, работает только тогда когда синхронизована сама процедура обработки изображения
работает только так:

procedure TfiltrMed.Execute;
begin
y:=resul.Height;
x:=resul.Width ;

Synchronize(exe2);     //exe2-обрабатывает изображнение

end;

у меня delphi XE и delphi 2010

[Dеlphi]

выяснил что без синхронизации битмам.Canvas.Pixels[10,10] и любые координаты пикселя равно -1, даже если перед этим пикселю присваивать какое ни будь знечение
с синхронизацией:

Synchronize(
exe2 // обработка изображения (для примера  сделал там цикл который все  пиксели ставит в красный цвет)
);


 Synchronize(
 procedure begin
 resul2.Canvas.Pixels[10,10]:=clRed;
 showmessage(inttostr(resul2.Canvas.Pixels[10,10]))  ;
 end);

выводит 255
без синхронизации:

exe2;

   Synchronize(
 procedure begin
 resul2.Canvas.Pixels[10,10]:=clRed;
 showmessage(inttostr(resul2.Canvas.Pixels[10,10]))  ;
    form6.OnTerminatepot(self);
     end );

выводит -1

может это из за delphi?

[Dеlphi]

Проблему решил