Цитата:
|
Сообщение от 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