Получение данных в потоке через таймер

[Shouldercannon]

1. Подключиться через IdTCPClient1
2. В потоке через Timer получать данные
3. По событию формы Close остановить работу таймера и потока

...
  TMy_Thread = class(TThread)
  private
    { Private declarations }
    s: string;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
    GoMemo: TMemo;
  end;
...
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled := False;

  if IdTCPClient1.Connected then IdTCPClient1.Disconnect;
end;

procedure TFormMain.BConnectClick(Sender: TObject);
begin
  IdTCPClient1.Host := '77.108.194.247';
  IdTCPClient1.Port := 80;
  IdTCPClient1.Connect(1000);

  Timer1.Enabled := True;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
var
  My_Thread: TMy_Thread;
begin
  My_Thread := TMy_Thread.Create(True);
  My_Thread.FreeOnTerminate := False;
  My_Thread.GoMemo := Memo1;
  My_Thread.Resume;
end;

procedure TMy_Thread.Execute;
begin
  if FormMain.IdTCPClient1.Connected then
  begin
    s := FormMain.IdTCPClient1.ReadLn();
    Synchronize(SyncProc);
  end;
end;

procedure TMy_Thread.SyncProc;
begin
  GoMemo.Lines.Add('[' + TimeToStr(Now) + '] - IdTCPClient1: ' + s);
end;

При закрытии формы появляется ошибка на строке

s := FormMain.IdTCPClient1.ReadLn();

Таймер завершает работу, а поток нет. Помогите, пожалуйста разобраться.

[Aliens_wolfs]

У вас таймер много потоков создает Да и зачем вам таймер когда все можно в потоке сделать примерно так, а можно все сделать чтобы в потоке создовался IdTCPClient1 и прием делать через событие

procedure TFormMain.BConnectClick(Sender: TObject);
var
  My_Thread: TMy_Thread;
begin
  IdTCPClient1.Host := '77.108.194.247';
  IdTCPClient1.Port := 80;
  IdTCPClient1.Connect(1000);

  My_Thread := TMy_Thread.Create(True);
  My_Thread.FreeOnTerminate := true; //Для самоуничтожения когда поток останавливается
  My_Thread.GoMemo := Memo1;
  My_Thread.Resume;
end;

//Затем крутите сам поток

procedure TMy_Thread.Execute;
begin
while not Terminated do
  begin
  if FormMain.IdTCPClient1.Connected then
  begin
    s := FormMain.IdTCPClient1.ReadLn();
    Synchronize(SyncProc);
end
else
begin
//Останавливается поток когда Disconnect
Synchronize(OnDisconnect); // Создайте эту функцию для того чтобы знать когда поток остановлен
Terminate;
end;
  end;

end;

[GunSmoker]

Таймер и потоки - это как вилка и ложка. Вам надо или то или другое, но не оба сразу.

Опишите словами, что хотите получить.

[Aliens_wolfs]

GunSmoker Не поможешь с кодировкой в этой теме http://www.programmersforum.ru/showt...=185948&page=2

[GunSmoker]

Грязными делами не занимаюсь.

[Shouldercannon]

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

Таймер и потоки - это как вилка и ложка. Вам надо или то или другое, но не оба сразу.

Опишите словами, что хотите получить.

Получать данные в потоке от IdTCPClient1, дабы в обычно процедуре сие повесит форму.

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

//Останавливается поток когда Disconnect
Synchronize(OnDisconnect); // Создайте эту функцию для того чтобы знать когда поток остановлен

Не догоню. Что должно быть в этой функции и как она должна быть прописана (procedure/function;в теле потока или в самой форме)

[Aliens_wolfs]

GunSmoker
Да там грязного ничего нет просто ссылка нужна человеку, которая грузит нормальный фильм с чистого сайта в Flash Media там видимо своя кодировка

[GunSmoker]

А таймер зачем сделали? Периодически хотите делать или как?

[Aliens_wolfs]

Shouldercannon
Как функцию в теле потока в ней какое либо событие когда IdTCPClient1.Connected=false например активировать обратно кнопку для следующего запроса, но можно и не делать
можно еще сделать не Synchronize(OnDisconnect) а destroy, тогда поток уничтожется но только после Terminate и тогда My_Thread.FreeOnTerminate := false;

[Shouldercannon]

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

А таймер зачем сделали? Периодически хотите делать или как?

Возможно, я ошибаюсь, но IdTCPClient1 не умеет работать в режиме приёма, как ClientSocket1Read, поэтому и приходится как-то (Timer) проверять, не пришли ли данные.

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if IdTCPClient1.Connected then IdTCPClient1.Disconnect;
end;

procedure TFormMain.BConnectClick(Sender: TObject);
var
  My_Thread: TMy_Thread;
begin
  IdTCPClient1.Host := '77.108.194.247';
  IdTCPClient1.Port := 80;
  IdTCPClient1.Connect(1000);

  My_Thread := TMy_Thread.Create(True);
  My_Thread.FreeOnTerminate := True; // Для самоуничтожения когда поток останавливается
  My_Thread.GoMemo := Memo1;
  My_Thread.Resume;
end;

procedure TMy_Thread.Execute;
begin
  while not Terminated do
  begin
    if FormMain.IdTCPClient1.Connected then
    begin
      s := FormMain.IdTCPClient1.ReadLn();
      Synchronize(SyncProc);
    end
    else
    begin
      // Останавливается поток когда Disconnect
      // Synchronize(OnDisconnect); // Создайте эту функцию для того чтобы знать когда поток остановлен
      Terminate;
    end;
  end;
end;

procedure TMy_Thread.SyncProc;
begin
  GoMemo.Lines.Add('[' + TimeToStr(Now) + '] - IdTCPClient1: ' + s);
end;

Беда, проблема с ошибкой осталась.

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

Shouldercannon
Как функцию в теле потока в ней какое либо событие когда IdTCPClient1.Connected=false например активировать обратно кнопку для следующего запроса, но можно и не делать
можно еще сделать не Synchronize(OnDisconnect) а destroy, тогда поток уничтожется но только после Terminate и тогда My_Thread.FreeOnTerminate := false;

procedure TMy_Thread.Execute;
begin
  while not Terminated do
  begin
    if FormMain.IdTCPClient1.Connected then
    begin
      s := FormMain.IdTCPClient1.ReadLn();
      Synchronize(SyncProc);
    end
    else
    begin
      Destroy;
    end;
  end;
end;

Имеете ввиду DoTerminate?