IdHTTP OnWork/OnWorkBegin/OnWorkEnd ThreadSafe?

[AJ_Oldendorf]

Hallo zusammen,
ich habe einen Thread, der beinhaltet eine Komponente TIdHTTP.
Der Thread bekommt eine Datei mitgeteilt, die runtergeladen werden soll und die TIdHTTP Komponente kümmert sich darum.
Ich würde gerne den Forschritt irgendwo anzeigen (z.B. Progressbar).
Meine Frage ist nur, sind die Events für den Forschritt ThreadSafe?

Delphi-Quellcode:

procedure OnIdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
procedure OnIdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
procedure OnIdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);

Oder soll ich bei den Events über einen Timer entkoppeln bzw. Synchronize nutzen?

Viele Grüße
Alex

Edit:
Vergesst die Frage. Natürlich muss ich es entkoppeltn oder über Synchronize machen wenn ich aus dem Thread auf die VCL zugreifen will. Hat ja nix mit Threadsafe zu tun...
Hat sich also erledigt

[Sir Rufo]

Die Frage lässt sich immer ganz simpel selber beantworten:

Delphi-Quellcode:

if MainThreadID = TThread.CurrentThread.ThreadID then
  // ohne Sync
else
  // mit Sync

PS: Da bei den Indys oft auch noch Threads innerhalb benutzt werden, kann man es da niemals mit Bestimmtheit sagen (ohne den Code auseinanderzunehmen), ob die Events im Kontext des aufrufenden Threads erfolgen oder schon synchronisiert. Darum im Zweifelsfall immer vor dem Synchronize prüfen.

[AJ_Oldendorf]

siehe Edit
Schon klar. Frage hätte ich mir schenken können

[Sir Rufo]

Zitat von AJ_Oldendorf:

siehe Edit
Schon klar. Frage hätte ich mir schenken können

Siehe nochmal mein Edit

[mjustin]

Zitat von AJ_Oldendorf:

Natürlich muss ich es entkoppeltn oder über Synchronize machen wenn ich aus dem Thread auf die VCL zugreifen will

Eine Alternative zu Synchronize wäre noch TThread.Queue(<anonyme Methode die auf UI zugreift>);

Im Unterschied zu Synchronize ist TThread.Queue nicht blockierend, der Thread wird 'sofort' fortgesetzt.

[stoxx]

.. irrelevanter eigener Beitrag