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

[doktor255]

Имеется некий поток, созданный на базе этого компонента. Внутри потока происходит загрузка графики из интернет. По окончании работы этого потока нужно вывести некую графическую информацию на дисплей. Если я из потока обращусь к процедуре вывода графики напрямую, то в ряде исключительных случаев (я так и не понял, в каких именно), получаю сбои в выводе графики (графика вылазит не там где нужно). Вопрос. Нужна ли синхронизация при работе с IdThreadComponent, и если да, как мне правильно обратится к процедуре синхронизации, и передать туда допустим строковые параметры?
P.S. Просьба не напоминать что:
1 - Инди это плохо.
2 - Что можно обойтись без инди.

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

Как обычно Синхронизация никуда не исчезает...

procedure TForm5.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
  Sender.Synchronize(procedure
  begin
    ShowMessage('YIIIIII IN THE MAIN THREAD....');
  end
  );
end;

P.S. Синтаксис съедобен. Это фича новых дельфей.

[doktor255]

Ну это понятно. А как быть с передачей параметров в процедуру? Через глобальные переменные? И мне не совсем удобно писать процедуру внутри обработчика, так как она сравнительно большая, и к тому же с ней работают и иные процедуры не относящиеся к потоку.

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

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

procedure Run(Sender: ...);
var
  SyncVar_1:string;
 
  procedure Sync_proc;
  begin
  //Что-нибудь с SyncVar_1 здесь происходит...
  end;

begin
  SyncVar_1 := 'Happy coding...';
  Sender.Synchronize(Sync_proc);
end;

[doktor255]

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

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

doktor255, не суть это. Ваша процедура требует только параметры. Вот их и передавайте, а в методе синхронизации дергайте процедуру.

[doktor255]

Вот их и передавайте

Каким образом? Так что-ли?

procedure Run(Sender: ...);
var
  SyncVar_1:string;
 
  procedure Sync_proc;
  begin
    proc123(SyncVar_1);
  end;

begin
  SyncVar_1 := 'Happy coding...';
  Sender.Synchronize(Sync_proc);
end;

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

Да, только так )

TThreadmethod - метод без параметров.

[doktor255]

Да, только так )

Попробовал, не прокатило. Делфи топает ногами, и говорит что я делаю каку.

[dcc32 Error] DisplayLoader.pas(77): E2009 Incompatible types: 'method pointer and regular procedure'

в строке

sender.Synchronize(sync);

[Аватар]

procedure Synchronize(AMethod: TThreadMethod); overload;
procedure Synchronize(AMethod: TMethod); overload;

Parameters

AMethod: TThreadMethod

Thread or procedural method to be executed in the main thread.