как принудительно остановить загрузку странички WebBrowser1

[beegl]

как принудительно остановить загрузку странички WebBrowser1?

      WebBrowser1.Stop;
      WebBrowser1.Quit;
      WebBrowser1.QueryStatusWB(OLECMDID_STOP);

есть что-то такого, как:

Application.Terminate;

[FaTaL]

WebBrowser1.Stop; останавливает загрузку странички. Или что вы хотите вообще?

[beegl]

что-то не останавливает



надо как-то прервать событие OnDocumentComplete, WebBrowser1.Stop; почему-то не останавливает, как прервать выполнение OnDocumentComplete? скомпилированный проект

procedure TIntertelecomForm.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Browser: TWebBrowser;
  List: TStringList;
  I: Integer;
  ErrorText: string;
begin
  Caption := URL;

  Browser := Sender as TWebBrowser;

  if (Pos('/login', URL) > 0) then
  begin

    if (ErrorExists(Browser, ErrorText)) then
      raise Exception.CreateFmt(ERROR_LOGIN, [ErrorText]);
//      ExaptErrorLogPass;

    if (not FillForm(Browser, 'phone', EditUsername.Text)) then
      raise Exception.Create(ERROR_FIELD_PHONE_NOT_FOUND);

    if (not FillForm(Browser, 'pass', EditPassword.Text)) then
      raise Exception.Create(ERROR_FIELD_PASSWORD_NOT_FOUND);

    if (not AcceptForm(Browser)) then
      raise Exception.Create(ERROR_SUBMIT_FAILED);
    Exit;
  end;

  if (Pos('/statistic', URL) > 0) then
  begin
    List := TStringList.Create();
    try
      if (not ExtractInfos(Browser, List)) then
      LSVGauge12.Visible := False;
      RxGIFAnimator1.Visible := True;
      Timer4.Enabled := False;
      Timer3.Enabled := True;
      CoolTrayIcon1.CycleIcons := True;
      GradBtnCancel.Visible := False;
      RollUp;
      WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +645);
      WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+250, 0);
      RxGIFAnimator1.Visible := True;
//        raise Exception.Create(ERROR_ON_EXTRACT_INFOS);

      StringGrid1.RowCount := List.Count + 1;
      for I := 0 to List.Count - 1 do
      begin
        StringGrid1.Cells[0, I+1] := List.Names[I];
        StringGrid1.Cells[1, I+1] := List.ValueFromIndex[I];
      end;
    finally
      List.Free();
    end;
    Exit;
  end;
end;

[Пепел Феникса]

как прервать выполнение OnDocumentComplete?

exit.
ваш КО.

[beegl]

а как направить команду Exit на событие OnDocumentComplete ?

вставил между выполняемым кодом этот кусок:

var
   ExitProcFlag: Boolean;
..................................
 Application.ProcessMessages();
     if ExitProcFlag = True then
     begin
     Caption := 'Intertelecom Balans';
     Exit;
     end;
..................................

на кнопку отмена написал:

ExitProcFlag := True;

все равно не прерывает

procedure TIntertelecomForm.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Browser: TWebBrowser;
  List: TStringList;
  I: Integer;
  ErrorText: string;
begin
  Caption := URL;

  Browser := Sender as TWebBrowser;
 Application.ProcessMessages();
   if ExitProcFlag = True then            все равно не прерывает
   begin
   Caption := 'Intertelecom Balans';
   Exit;
   end;
  if (Pos('/login', URL) > 0) then
  begin

    if (ErrorExists(Browser, ErrorText)) then
      raise Exception.CreateFmt(ERROR_LOGIN, [ErrorText]);
//      ExaptErrorLogPass;

    if (not FillForm(Browser, 'phone', EditUsername.Text)) then
      raise Exception.Create(ERROR_FIELD_PHONE_NOT_FOUND);

    if (not FillForm(Browser, 'pass', EditPassword.Text)) then
      raise Exception.Create(ERROR_FIELD_PASSWORD_NOT_FOUND);

    if (not AcceptForm(Browser)) then
      raise Exception.Create(ERROR_SUBMIT_FAILED);
    Exit;
  end;
   Application.ProcessMessages();
   if ExitProcFlag = True then        все равно не прерывает
   begin
   Caption := 'Intertelecom Balans';
   Exit;
   end;
  if (Pos('/statistic', URL) > 0) then
  begin
    List := TStringList.Create();
    try
      if (not ExtractInfos(Browser, List)) then
      LSVGauge12.Visible := False;
      RxGIFAnimator1.Visible := True;
      Timer4.Enabled := False;
      Timer3.Enabled := True;
      CoolTrayIcon1.CycleIcons := True;
      GradBtnCancel.Visible := False;
      RollUp;
      WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +645);
      WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+250, 0);
      RxGIFAnimator1.Visible := True;
//        raise Exception.Create(ERROR_ON_EXTRACT_INFOS);
     Application.ProcessMessages();
     if ExitProcFlag = True then      все равно не прерывает
     begin
     Caption := 'Intertelecom Balans';
     Exit;
     end;
      StringGrid1.RowCount := List.Count + 1;
      for I := 0 to List.Count - 1 do
      begin
        StringGrid1.Cells[0, I+1] := List.Names[I];
        StringGrid1.Cells[1, I+1] := List.ValueFromIndex[I];
      end;
    finally
      List.Free();
    end;
    Exit;
  end;
end;