THTTPSend SynApse остановка загрузки

[GaMeSTeR]

Есть модуль THTTPSend в библиотеке SynApse как остановить загрузку страницы?
Загружаю страницу так

if http.HTTPMethod('GET','http://www.google.ru') then begin
******
Кто нибудь может помочь?

[Mifody]

хм, вообще мне видится два метода
1. вынести загрузку в отдельный поток, и кнопкой рубить его
2. переписать (точнее подправить) модуль компонента. Помниться мне, там получение данных в цикле идет, можно попробовать реализовать остановку загрузки

[GaMeSTeR]

1. У меня и так все в отдельных потоках надо чтоб они работали
2. Можно по подробней за ранее спс

[leonidus]

Тоже интересен этот вопрос, как остановить загрузку большого документа?

[Delphi_ProGer]

UPD
Весьма интересен вопрос. Аналогичная проблема - в потоке идёт скачка файла, пробую сначала

HTTP.Abort

но выдаёт AV. А не разорвав соединение, убить поток безопасно невозможно(нужно, чтобы сам завершился).

Что скажете, форумчани?

_____
Важно: я так делаю при закрывании формы, наверное, сокет наверное не успевает сам закрыться "плавно".
Тогда дополнительный вопрос: как при закрывании проверить, закрыт ли сокет или нет, например, в цыкле проверку крутить(чтобы не дать закрыться окне программы)?

[Lardes]

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

2. переписать (точнее подправить) модуль компонента. Помниться мне, там получение данных в цикле идет, можно попробовать реализовать остановку загрузки

Не обязательно подправлять, достаточно внимательно изучить модуль =)

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

Кто нибудь может помочь?

Как два пальца об ...

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

unit uDownloadThread;

interface

uses
  Windows, Classes, SysUtils, httpsend, blcksock;

type
  TDownloadThread = class(TThread)
  public

  private
    FHTTP: THTTPSend;
    procedure OnStatus(Sender: TObject; Reason: THookSocketReason; const Value: string);
  protected
    procedure Execute; override;
  end;

var
  FDownloadStop: Boolean;  // глобальная переменная для остановки загрузки

implementation

//функция очищения заголовка и тела THTTPSend
procedure ClearHTTPMethod(HTTP: THTTPSend);
begin
  HTTP.Document.Clear;
  HTTP.Headers.Clear;
  //указываем протокол
  HTTP.Protocol := '1.1';
  //указываем UserAgent'a (маскируемся под Firefox)
  HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:19.0) Gecko/20100101 Firefox/19.0';
end;

{ TDownloadThread }

procedure TDownloadThread.OnStatus(Sender: TObject; Reason: THookSocketReason;
  const Value: string);
begin
  // если глобальная переменная равна FDownloadStop равна True,
  // то останавливаем загрузку
  case FDownloadStop of
    True: FHTTP.Abort;
  end;
end;

procedure TDownloadThread.Execute;
begin
  FreeOnTerminate := True;
  // присваиваем значение переменной
  FDownloadStop := False;
  // создание класса
  FHTTP := THTTPSend.Create;
  try
    // очищаем класс THTTPSend
    ClearHTTPMethod(FHTTP);
    // самое главное - присваиваем обработчик событий загрузки документа
    FHTTP.Sock.OnStatus := OnStatus;
    // отправляем запрос
    if FHTTP.HTTPMethod('GET', 'http://www.google.ru') then
    begin
      // сохранение документа
      FHTTP.Document.SaveToFile('index.html');
    end;
  finally
    // очищаем класс
    FreeAndNil(FHTTP);
  end;
end;

end.