Работа потока останавливается после входа в критическую секцию

[Shouldercannon]

Доброго времени суток!
Используя критические секции частенько сталкиваюсь с проблемой, когда после CS.Enter; происходит остановка работы потока. В данном примере это врятли будет, но когда работаешь с IdHTTP, такое наблюдается, особенно когда происходят ошибки (хост недоступен или что-то подобное) и критическая секция используется только в одном потоке. Из-за чего такое происходит?

...
type
  TTest_Thread = class(TThread)
  private
    { Private declarations }
    s: string;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  Form1: TForm1;
  Test_Thread: TTest_Thread;
  CS: TCriticalSection;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CS := TCriticalSection.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(CS);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test_Thread := TTest_Thread.Create(True);
  Test_Thread.FreeOnTerminate := True;
  Test_Thread.Resume;
end;

procedure TTest_Thread.Execute;
var
  i: Integer;
begin
  CS.Enter; // При отладке после этого места наступает тишина
  for i := 0 to 5 do
  begin
    s := s + IntToStr(i);
  end;

  Synchronize(SyncProc);

  CS.Leave;

  Terminate;
end;

procedure TTest_Thread.SyncProc;
begin
  Form1.Caption := s;
end;

[Slym]

1. потому что исключения не обрабатываешь.
надо

CS.Enter;
try
....
finally
  CS.Leave;
end;

2.

CS.Enter;
Synchronize(SyncProc);
CS.Leave;

двойная синхронизация - словить дедлок недолго

зачем одному потоку CS?

[Shouldercannon]

Работает! Но перестаёт работать если выполняешь код из другого Unit

procedure TFormMain.TBRefreshUsersClick(Sender: TObject);
begin
  GetUsers_Thread := TGetUsers_Thread.Create(True);
  GetUsers_Thread.URL := Format('http://%s/%s/%s', [FormMain.ChatHost, WorkFolder, UsersFile]);
  GetUsers_Thread.FreeOnTerminate := True;
  GetUsers_Thread.Resume;
end;

procedure TGetUsers_Thread.Execute;
begin
  CS.Enter;
  try
    Users := GetUsers(URL);
    Synchronize(SyncProc);
  finally
    CS.Leave;
  end;

  Terminate;
end;
...
Utils
...
function GetUsers(URL: string): TUsersDataArr;
var
  HTTP: TIdHTTP;
  s: string;
  i: Integer;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    try
      s := Utf8ToAnsi(HTTP.Get(URL));
    except
    end;
  finally
    FreeAndNil(HTTP);
  end;

  SetLength(Result, 0); // Î÷èñòèì ìàññèâ

  while Pos(SeparatorName, s) <> 0 do
  begin
    i := High(Result) + 2;
    SetLength(Result, i);
    Result[i - 1].UserID := StrToIntDef(Copy(s, 1, Pos('~', s) - 1), -1);
    Delete(s, 1, Pos('~', s));
    Result[i - 1].Nick := Copy(s, 1, Pos('~', s) - 1);
    Delete(s, 1, Pos(SeparatorName, s) + 8);
  end;
end;

[xxbesoxx]

Работает! Но перестаёт работать если выполняешь код из другого Unit

И что надо для этого , Что процедура или функция мог вызвать из другом Unit тоже

  public

нет ?

[Slym]

что-то подсказывает что у тебя косяк с определением Users, а именно не глобально ли он задан?
и про дедлоки ты не внял:

type
 TGetUsers_Thread=class...
  private
  Users:TUsersDataArr;
... 

procedure TGetUsers_Thread.Execute;
begin
  CS.Enter;
  try
    Users := GetUsers(URL);
  finally
    CS.Leave;
  end;
  Synchronize(SyncProc);
end;

[Shouldercannon]

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

что-то подсказывает что у тебя косяк с определением Users, а именно не глобально ли он задан?

Users был задан в привате, как у вас.
Вот как было

unit frm_Main;

interface

uses
  ..., Utils{Модуль};

type
  TGetUsers_Thread = class(TThread)
  private
    { Private declarations }
    URL: string;
    Users: TUsersDataArr;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  GetUsers_Thread: TGetUsers_Thread;

implementation

{$R *.dfm}

procedure TFormMain.TBRefreshUsersClick(Sender: TObject);
begin
  GetUsers_Thread := TGetUsers_Thread.Create(True);
  GetUsers_Thread.URL := Format('http://%s/%s/%s', [FormMain.ChatHost, WorkFolder, UsersFile]);
  GetUsers_Thread.FreeOnTerminate := True;
  GetUsers_Thread.Resume;
end;

procedure TGetUsers_Thread.Execute;
begin
  Users := GetUsers(URL);
  Synchronize(SyncProc);

  Terminate;
end;

procedure TGetUsers_Thread.SyncProc;
var
  Item: TListItem;
  i: Integer;
begin
  // Очищаем список пользователей
  FormMain.LVUsers.Clear;
  // Добавляем online пользователей
  for i := 0 to Length(Users) - 1 do
  begin
    if Users[i].Status = 1 then
    begin
      Item := FormMain.LVUsers.Items.Add;
      Item.Caption := '';
      Item.SubItems.Add(Users[i].Nick); // Ник пользователя
      Item.SubItems.Add(IntToStr(Users[i].UserID)); // ID пользователя
    end;
  end;
end;

end.

сам модуль

unit Utils;

interface

uses
  Windows, SysUtils, IdHTTP;

type
  TUsersDataRec = record
    UserID: Integer;
    Status: Integer;
    Nick: string;
    Cabinet: Integer;
    AdminStatus: Integer;
  end;

  TUsersDataArr = array of TUsersDataRec;

var
  UsersDataArr: array of TUsersDataArr;

function GetUsers(URL: string): TUsersDataArr;

implementation

uses frm_Main;

function GetUsers(URL: string): TUsersDataArr;
var
  HTTP: TIdHTTP;
  s: string;
  i: Integer;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    try
      s := Utf8ToAnsi(HTTP.Get(URL));
    except
    end;
  finally
    FreeAndNil(HTTP);
  end;

  SetLength(Result, 0); // Очистим массив

  while Pos(SeparatorName, s) <> 0 do
  begin
    i := High(Result) + 2;
    SetLength(Result, i);
    Result[i - 1].UserID := StrToIntDef(Copy(s, 1, Pos('~', s) - 1), -1);
    Delete(s, 1, Pos('~', s));
    Result[i - 1].Nick := Copy(s, 1, Pos('~', s) - 1);
    Delete(s, 1, Pos(SeparatorName, s) + 8);
  end;
end;

end.

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

и про дедлоки ты не внял:

[Slym]

procedure TGetUsers_Thread.SyncProc;
var
  Item: TListItem;
  i: Integer;
begin
  FormMain.LVUsers.BeginUpdate;//рекомендую
  try
    FormMain.LVUsers.Clear;
    for i := 0 to Length(Users) - 1 do
    begin
      if Users[i].Status = 1 then//доступ к не инициализированной переменной 
      begin
        Item := FormMain.LVUsers.Items.Add;
        Item.Caption := '';
        Item.SubItems.Add(Users[i].Nick); // Ник пользователя
        Item.SubItems.Add(IntToStr(Users[i].UserID)); // ID пользователя
      end;
    end;
  finally
    FormMain.LVUsers.EndUpdate;
  end;
end;

а так ничего криминального не вижу... должно работать

[Shouldercannon]

FormMain.LVUsers.Items.BeginUpdate
FormMain.LVUsers.Items.EndUpdate

А вот теперь получил ошибку AccessViolation при

  CS.Enter;
  try
    Users := GetUsers(URL);
  finally
    CS.Leave;
  end;
  Synchronize(SyncProc);

Очевидно мой случай просто не предусматривает использование критических секций.

[Slym]

попробуй совсем без cs..
по мне она тут не нужна... нету у тебя ресурса для синхронизации

[Stilet]

Честно говоря я тоже думаю что критическая секция тут как пятое колесо зайцу со спущенными рукавами.