Помогите с потоком

[Stilet]

отвалился интернет, сайт, сервер ... проверка покажет

Ну оберни получение контента в Try Except и показывай МесседжБокс если произойдет исключение. Какие проблемы?

Сам говорил где-то в сообщениях на эту тему

Ты наверное меня не так понял )

Да так, но после сравнения как сказать пользователю о недоступности сайта, если вызывать

Зачем MessageDlg вызывать?? Останавливай поток (делай из него exit) если произошло исключение и все.

[bilibian]

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

Да так, но после сравнения как сказать пользователю о недоступности сайта

Как вариант:

Создать на форме компонент мемо. (он будет служить в качестве лога программы)

При запуске потока передать этот компонент в поток, вот так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyThread := TMyThread.Create(True);
  MyThread.FreeOnTerminate :=true;
  MyThread.memo:=memo1.lines;
  MyThread.Priority:=tpLower;
  MyThread.Resume;
End;

Предварительно создав в потоке переменную memo с типом TStrings, вот так:

type
  TMyThread = class(TThread)
     memo : TStrings;
     IdHTTP1: TIdHTTP;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

После сравнения, чтобы отправить сообщение из потока в мемо, которое расположено на форме, надо сделать так:

memo.add('Ваше сообщение');

[Аватар]

Как вариант

Плохой вариант. А без синхронизации так вообще ни куда не годный

[bilibian]

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

Плохой вариант. А без синхронизации так вообще ни куда не годный

Когда поток всего один, то еще как годный!

[come-on]

MyThread := TMyThread.Create(True);

а вот тут разве не второй?

[bilibian]

Сообщение от come-on

а вот тут разве не второй?

В смысле, второй дополнительный

А для надежности надо сделать синхронизацию, согласен!

[lord24]

Спасибо всем, вроде бы разобрался чуть.
А как притормозить цикл в потоке, что бы он повторялся с определенным интервалом?

[Stilet]

sleep() в него пихнуть. Там и интервал указывается.

[lord24]

Да, но наверно этот слип и притормаживает работу всей программы, иначе как объяснить притормаживания с одинаковым интервалом?

[Stilet]

Смотря куда ты его пихнул )
Код в студию.