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

[lord24]

Ребята, помогите с потоком. Делаю отдельным потоком первый раз по этому не все понимаю как надо.
Есть вот это

TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

и вот это - запуск потока

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: Tinifile;
MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(True);
  MyThread.FreeOnTerminate :=true;
  MyThread.Priority:=tpLower;
  MyThread.Resume;
End;

Хочу остановить поток (пауза) и завершить его.
Останавливаю так

procedure TMyThread.Execute;
begin                                       //Здесь описывается код, который будет выполняться в потоке
while true do
begin
  If MessageDlg('Поток работает 1. Остановить?',mtConfirmation, [mbYes,mbNo],0)=mrYes
  then
  begin
  MyThread.Suspend;
  end;

end;
end;

Если так, то вылазит ошибка непонятная

Что надо сделать?

[Stilet]

Чет какой-то... эрунда...
MessageDlg нужно вызывать из твоей формы, а не потока.
А поток описывать так:

while not Terminated do
begin
 //Здесь описывается код, который будет выполняться в потоке
end;

Соответственно в главной форме:

 If MessageDlg('Поток работает 1. Остановить?',mtConfirmation, [mbYes,mbNo],0)=mrYes then MyThread.Terminate;

[Serge_Bliznykov]

я с потоками никогда всерьёз не сталкивался,
но я бы вынес определение переменной потока MyThread

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: Tinifile;
MyThread: TMyThread;

из FormCreate (например, в глобальные переменные)

[lord24]

Простите за тупость, но ни чего не понимаю...
Вместо моего цикла

while true do

Надо

while not Terminated do

Внутри тела писать что?
Суть такая.
Есть программа, которая выполняет какую-то работу. В отдельном потоке я хотел закрутить проверку на доступность сайта. Проверяю доступность путем отправки на скрипт данных и получением ответа от него. Куда писать код проверки и если ответ false сообщить пользователю о недоступности, и как прервать поток, если

MessageDlg нужно вызывать из твоей формы, а не потока.

[bilibian]

Вы хотите сделать проверку доступности своего сайта отправляя данные для скрипта в запросе, верно?

Отправляйте с помощью idhttp.post запрос к сайту и с помощью php обрабатывайте отправленные данные, после чего выводите на страницу соответствующую запись, а потом в delphi обрабатывайте ответ.


Примерно так:

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


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

var
  MyThread: TMyThread;


procedure TMyThread.Execute;
  var
    Data : TStringList;
    Html : string;
begin
  IdHTTP1:=TIdHTTP.Create(nil);
  IdHTTP1.HandleRedirects:=True;

  Data := TStringList.Create;
  Data.Clear;
  Data.Add('param=1');
  Data.Add('param=2');

  try
    Html:=IdHTTP1.Post('http://site.ru/', Data);
    if AnsiPos('True', Html)>0 then memo.add('Сайт доступен');
  finally
    Data.Free;
    IdHTTP1.Free;
  end;
end;

[lord24]

да что-то подобное я и сделал, но где вызвать остановку потока если сайт не доступен, что бы он (поток) больше не крутился? и сообщить об этом пользователю

[Stilet]

где вызвать остановку потока

Во-первых: Загружай сайт с установкой таймаута.
Во-вторых: Кикнуть поток можно по клику кнопки.

[bilibian]

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

да что-то подобное я и сделал, но где вызвать остановку потока если сайт не доступен, что бы он (поток) больше не крутился? и сообщить об этом пользователю

procedure TMyThread.Execute;
  var
    Data : TStringList;
    Html : string;
begin
  IdHTTP1:=TIdHTTP.Create(nil);
  IdHTTP1.HandleRedirects:=True;

  Data := TStringList.Create;
  Data.Clear;
  Data.Add('param=1');
  Data.Add('param=2');

  try
    while not Terminated do begin
      Html:=IdHTTP1.Post('http://site.ru/', Data);
      if AnsiPos('True', Html)>0 then begin
        memo.add('Сайт доступен');
      end else MyThread.Terminate;
    end;
  finally
    Data.Free;
    IdHTTP1.Free;
  end;
end;

[lord24]

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

Во-первых: Загружай сайт с установкой таймаута.

Это как? sleep?

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

Во-вторых: Кикнуть поток можно по клику кнопки.

Надо программно

[Stilet]

Это как? sleep?

посмотри среди свойств, у IdHTTP1 где-то должно быть свойство установки таймаута, после которого компонент выдает исключение о том, что не может достучаться до сайта.

Надо программно

Ради бога. В событии клика кнопки можно повесить функцию ExitThread() к примеру, которая будет кикать поток. Ну или посмотреть каким методом TThread это делается принудительно.