[vanam]

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

Да.
________________

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

Код:

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

модуль 2

Код:

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

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