[vanam]

Здравствуйте

Есть несколько потоков со своими HTTP: TidHTTP

Есть функция в отдельном модуле

Код:

1 2 3 4 5 6 7

function HTTPGet (HTTP: TidHTTP; url: string): string; begin ... try Result: = http.Get (url); except on E: Exception do ... end; ... end;

Безопасно ли выполнять эту функцию из потоков. Если нет, то почему?

[M.A.D.M.A.N.]

Да.
________________

[vanam]

Сообщение от M.A.D.M.A.N.

Да.
________________

модуль-поток

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

unit unitHreadCategory; type   THreadCategory = class(TThread)   private     HTTP:TIdHTTP; … uses lib4parse; … procedure THreadCategory.Execute; begin …   HTTP:=HTTPCreate(); HTTPGet(HTTP,url); … end;

модуль 2

Код:

1 2 3 4 5 6 7 8 9

unit lib4parse; … function HTTPGet (HTTP: TidHTTP; url: string): string; begin ... try Result: = http.Get (url); except on E: Exception do ... end; ... end;

при одном потоке все прекрасно работает
при нескольких потоках - потоки зависают на HTTPGet