Приостановка потока с последующем возобновлением работы

[Dozent]

Добрый день, прошу подскажите как правильнее реализовать.

Суть в том что есть два потока один на чтение данных пришедших по сети, второй на отправку. Не хочу гонять постояно поток на отправку если нет данных для отправки. Хочу приостанавливать работу потока до тех пор пока не поступят какието аднные на отправку.

Почитал в инете кто-то говорит что можно использовать Suspend потом Resume. Кто-то наоборот отговаривает от этого!
С потоками мало знаком!
Мб проще будет делать Terminate и потом оп необходимости создавать новый поток?

Что скажите?

[Stilet]

Я бы предпочел не выключать поток. В потоке просто бы проверял на доступность данных для отправки, и если доступны в полной (читай: допустимой для твоей задачи) мере - отправлял бы. Иначе sleep() и на следующую итерации цикла проверки, пока not Terminated.

[Dozent]

Ну то что он будет гонять цикл на not Terminated мне не нравиться, понятно что проверка идёт есть даные на отправку или нет! Хочу чтобы если данных нет он просто засыпал

  TCustomThreadSenderTCP = class(TThread)
  private
    FSendList: TSendList;
    FSocket: TSocket;
    FMutex: Boolean;
    procedure SetSendString(const Value: string);
  protected
    procedure Execute; override;
    procedure Sending(const AValue: string);
  public
    constructor Create; virtual;
    destructor Destroy; override;
    property SendString: string write SetSendString;
  end;
//////////////////////////////////////////////////////
constructor TCustomThreadSenderTCP.Create;
begin
  inherited Create(True);
  FreeOnTerminate := True;
  Priority := tpNormal;
  FSocket := 0;
  FMutex := False;
  FSendList := TSendList.Create;
end;
//////////////////////////////////////////////////////

procedure TCustomThreadSenderTCP.SetSendString(const Value: string);
begin
  FSendList.Add(Value);
  FMutex := True;
end;
/////////////////////////////////////////////////////
procedure TCustomThreadSenderTCP.Execute;
var
  xSend: String;
  Count: integer;
begin
  try
    while not Terminated do
    begin
      Count := FSendList.Count;
      if Count > 0 then
      begin
        xSend := FSendList[0];
        Sending(xSend);
        FSendList.Delete(0);
      end
      else
      begin
        // Вот тут хочу поток приостанавливал свою работу!!
        // есть у потока свойство Mute
      end;
      Sleep(200);
    end;
  except

  end;
end;

[Dozent]

Suspend, Resume - использую их в делфи они кросплатформены

[Аватар]

Suspend извне плохо по причине непредсказуемости. Поток залочил чего-либо и остановлен. Чего будет?

[Dozent]

У меня поток ни чего не лочит

[Аватар]

B Synchronize нет?

[Dozent]

ну я буду использвоать Queue для синхронизации в случае появления ошибки

[Dozent]

Ну ващет компилятор ругается)

[dcc32 Warning] Eidos.Socket_New.pas(417): W1000 Symbol 'Suspend' is deprecated

[Stilet]

Это предупреждение а не ругань. По-моему Suspend заменен ввиду морального устаревания в новых Делфи, но вот на что не помню.
Кажется на sleep()