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

[Stilet]

это не весь модуль-потока.

У-у-у... Так, погодь. Схожу за паяльником и утюгом. Или если хочешь, буду пытать тебя бутылкой водки из Карпат?

для них CoInitialize / CoUnInitialize

А для них-то зачем? Они что СОМ объектом идут?

в IDE выскакивает окно отладки с assembler

Ну так посмотри на каком операторе.

[come-on]

что такое вроде?

[vanam]

максимально упрощаю

запуск потоков

var prices:array[1..MaxHread] of THreadPrice;
    currHread:integer;

  for currHread:=1 to Hreadcnt do
   begin
     prices[currHread] := THreadPrice.Create(True);
     with prices[currHread] do
       begin
         FreeOnTerminate:=False;
         Priority:=tpLower;
         Resume;
       end;
   end;

модуль-поток полностью

unit unitHreadPrice;

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,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, Vcl.StdCtrls, RegExpr, Vcl.Imaging.pngimage;


type
  THreadPrice = class(TThread)
    HTTP:TIdHTTP;
  protected
    procedure Execute; override;
  end;

implementation

procedure THreadPrice.Execute;
var cnt:integer;
begin
  HTTP:=TIdHTTP.Create(nil);
  with HTTP do
    begin
      ConnectTimeout:=180*1000;
      ReadTimeout:=180*1000;
      AllowCookies:=True;
      HandleRedirects:=True;
    end;

  with HTTP.Request do
    begin
      Host:='www.heureka.cz';
      Accept:='text/html, */*; q=0.01';
      AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
      AcceptEncoding:='gzip, deflate';
      Connection:='keep-alive';
      Pragma:='no-cache';
      CacheControl:='no-cache';
      UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:21.0) Gecko/20100101 Firefox/21.0';
    end;
    for cnt := 1 to 20 do
      HTTP.Get('http://www.heureka.cz/');
end;

end.

при 20-и потоках:
Access violation at address .... in module. Read of address 00000000

[Аватар]

Утечка как минимум есть в Execute. А как разрушаешь потоки?

[vanam]

Сообщение от Аватар

Утечка как минимум есть в Execute. А как разрушаешь потоки?

не важно. потоки не отрабатывают

[evg_m]

а меня больше интересует как заданы MaxHread Hreadcnt ?
опция RangeCheckError ведь по умолчанию отключена.

var prices:array[1..MaxHread] of THreadPrice;
    currHread:integer;

  for currHread:=1 to Hreadcnt do
  begin
     prices[currHread] := THreadPrice.Create(True);

[Alex11223]

А меня интересует что такое Hread.