VPF::Остановить Get-запрос - Форум программистов

aktuba

Дата 23.2.2007, 02:43 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Делаю так:

Код


unit uThread;

interface

uses
  Classes,
  SysUtils,
  IdHTTP,
  IdCookieManager,
  IdComponent;

type
  THTTPThread = class(TThread)
  private
    { Private declarations }
    ...
    procedure WorkEventProc(Sender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
  protected
    procedure Execute; override;
  public
    ...
    procedure Stop;
  end;

implementation

{ HTTPThread }

procedure THTTPThread.Execute;
begin
  ...
  FHTTP := TIdHTTP.Create(nil);
  FHTTP.OnWork := WorkEventProc;
  try
    Get;
  finally
    FreeAndNil(FHTTP);
  end;
end;

procedure THTTPThread.Get;
begin
  FHTTP.Connect;
  try
    try
      FResult := FHTTP.Get(FUrl);
    finally
      FHTTP.Disconnect;
    end;
  except

  end;
end;

procedure THTTPThread.Stop;
begin
  FTerminated := True;
end;

procedure THTTPThread.WorkEventProc(Sender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
begin
  if FTerminated then
    begin
      ...
      FHTTP.Disconnect;
    end;
end;

end.

В программе вызываю функцию Stop. переменная FTerminate присваивается, но запрос не останавливается. Почему?

--------------------

Snowy

Дата 23.2.2007, 04:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Потому что Get запрос не асинхронный.
Он отдайт управление только по завершению работы.
Останавливать нужно в событии OnWork.

aktuba

Дата 23.2.2007, 06:02 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата

Останавливать нужно в событии OnWork.

Так у меня и должен останавливать в OnWork:

Код


procedure THTTPThread.WorkEventProc(Sender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
begin
  if FTerminated then
    begin
      ...
      FHTTP.Disconnect;
    end;
end;

--------------------

MetalFan

Дата 23.2.2007, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

в OnWork возбуди свое исключение, во внешнем try..except - поймай и обработай.

--------------------

There are always someone smarter than you...

aktuba

Дата 23.2.2007, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата

в OnWork возбуди свое исключение, во внешнем try..except - поймай и обработай.

Ок, попробую, но почему не срабатывает в "штатном" режиме?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »