IdThreadComponent синхронизация

[doktor255]

Аватар и???

[Человек_Борща]

Ну запишите метод передачи прямо в методе синхронизации...не на Delphi 7 же пишите.(Пример во 2м посте).

[Аватар]

и???

TThreadMethod = procedure of object;

[doktor255]

Человек_Борща Ничего не поменялось. Ошибка та же. Среда XE6

procedure TDisplayLoader.IdThreadComponentRun(Sender: TIdThreadComponent);
var
  AParam: TParam;
begin
...
  Sender.Synchronize(procedure
  begin
     BlendPng(AParam, true);
  end);

Аватар Хватит фигню писать. Я тебя не понимаю.

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

Сообщение от doktor255

Человек_Борща Ничего не поменялось. Ошибка та же. Среда XE6

procedure TDisplayLoader.IdThreadComponentRun(Sender: TIdThreadComponent);
var
  AParam: TParam;
begin
...
  Sender.Synchronize(procedure
  begin
     BlendPng(AParam, true);
  end);

Аватар Хватит фигню писать. Я тебя не понимаю.

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

[doktor255]

Ну а методом я пробовал изначально, ещё до постинга на форуме. Пришлось для этого выносить передаваемые переменные в глобальные. Код компилируется, но работает ровно точно так же. Синхронизации не происходит, код исполняется в дополнительном потоке.

[Аватар]

procedure of object

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

[Человек_Борща]

Он хочет сказать что метод должен быть чьим-то.

Попробуй так:

type
   TThreadCaller = class(TObject)
   Param1:string;
   procedure CallFunc; //Вызов супер-функции спередачей ей Param1
   end;

procedure TDisplayLoader.IdThreadComponentRun(Sender: TIdThreadComponent);
var
  TC:TThreadCaller;
begin
...
  TC:=TThreadCaller.create;
  TC.Param1:='DATA';
  Sender.Synchronize(TC.CallFunc);

Вот почему idThreadComponent - шлак...

Хотя TThread тожене айс, но ничего не поделать

[doktor255]

Проблема в том что проблема осталась. На днях как освобожусь, буду переписывать модуль по чистый THread. Возникнут проблемы, будем разбираться дальше уже с THread.