Потокобезопасность

[vanam]

Здравствуйте
Есть несколько потоков со своими HTTP: TidHTTP
Есть функция в отдельном модуле

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

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

[Stilet]

Да. Безопасно.

[min@y™]

Функции сетевых кличент-серверных запросов нужно выполнять в отдельных потоках.

[vanam]

Сообщение от Stilet

Да. Безопасно.

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

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

[Stilet]

нужно выполнять в отдельных потоках.

ТС так и делает.

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

Как выглядит полностью код потока и HTTPGet () ?

[vanam]

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

unit unitHreadCategory;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IDHTTP, IdSSLOpenSSL, IdCookieManager,
  Vcl.Samples.Gauges, IdZLibCompressorBase, IdCompressorZLib, ActiveX, regExpr;
type
  THreadCategory = class(TThread)
  public
  private
    HTTP:TIdHTTP;
  protected
    procedure Execute; override;
  end;
implementation
uses unitPasrer, unitHreadCurrCategory, lib4parse;
procedure THreadCategory.Execute;
var page:string;
begin
 CoInitialize(nil);
 HTTP:=HTTPCreate('www.heureka.cz');
 page:=HTTPGet(HTTP, url);  
CoUnInitialize();
end;
end.

даже так при нескольких потоках не работает

[Stilet]

CoInitialize(nil);

А это тут зачем??
Убери и это и CoUnInitialize. Они не для этих действий.

[vanam]

sorry
это не весь модуль-потока. там еще работа с регулярными выражениями...для них CoInitialize / CoUnInitialize

[come-on]

Что значит не работает?

[vanam]

в IDE выскакивает окно отладки с assembler
без IDE - вроде все потоки умирают кроме одного