TWebBrowser + IE 7.0

[Diogo]

При попытке открыть страницу через TWebBrowser, когда в системе установлен IE 7.0 моментально вылетает ошибка "Не удается найти "http://bla-bla-bla.com". Порверьте правильность пути или адреса в Интернете".

Под шестым ИЕ, все работает четко... Чем лечится?

D7, процедура TWebBrowser.Navigate запускается с потока...

[Veiron]

Очень странно, у меня IE 7 все работает прекрасно... попробуйте поковырять настройки WebBrowser например Silent

[Diogo]

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

Очень странно, у меня IE 7 все работает прекрасно... попробуйте поковырять настройки WebBrowser например Silent

Перепробовал все что можно. Неполучается. Думал может из-за того, что у меня в системе стоит ИЕ 6.0 и после компиляции у меня работает, а у тех у кого стоит 7.0 не работает по каким-либо причинам. Поставил себе на машину 7.0, компилирую, запускаю, тоже самое. Именно при вызове метода Navigate с потока.

Вот привожу яркий пример, может кто и подскажет, где я неправ:

unit Unit1;

interface

uses
  Windows, Forms, Controls, StdCtrls, Classes, OleCtrls, SHDocVw;

type
  TMyThread = class(TThread)
    protected
      procedure Execute; override;
    public
      constructor Create(CreateSuspennded: Boolean);
  end;

  TfrmMain1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Browser: TWebBrowser;
    Browser2: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    UpdateThread: TMyThread;
    procedure LaunchMyThread;
  public
  end;

var
  frmMain1: TfrmMain1;

implementation

{$R *.dfm}
constructor TMyThread.Create(CreateSuspennded: Boolean);
begin
  inherited
  Create(CreateSuspennded);
end;

procedure TMyThread.Execute;
begin
  frmMain1.Browser.Navigate('http://www.ya.ru');
end;

procedure TfrmMain1.LaunchMyThread;
begin
  UpdateThread := TMyThread.Create(True);
  UpdateThread.Resume;
end;

procedure TfrmMain1.Button1Click(Sender: TObject);
begin
  LaunchMyThread;
end;

procedure TfrmMain1.Button2Click(Sender: TObject);
begin
  Browser2.Navigate('http://www.ya.ru');
end;

end.

При нажатии на Button2 - страница загружается нормально, при нажатии на Button1 и вызове метода Navigate из потока вываливается ошибка "Не удается найти "http://www.ya.ru". Проверьте правильность пути или адреса в Интернете".
В режиме отладки после закрытия ошибки Delphi вываливает свою: "Project Project1.exe raised exception class EOleException with message 'Операция была отменена пользователем'. Process stopped. Use Step or Run to continue"...

[BOBAH13]

А разве так просто можно вызывать в другом потоке процедуры внешние ? сделайте типа

procedure DoGoUrl;
begin
frmMain1.Browser.Navigate('http://www.ya.ru');   
end;

procedure Execute;
begin
  Synchronize(DoGoUrl); // если не ошибся с правописанием синхронизации
end;

[Квэнди]

Идея Webbrowser в использовании ActiveX компонента от Internet Explorer 6.0 Если у вас в системе изначально стоял IE7 то, в Delphi <=7 не будет работать.

[Diogo]

1. Стоял ИЕ 6.0. Все работает. Но при запуске приложения на компе с установленным 7.0 не работает.
2. Установил ИЕ 7.0 у себя на компе, перекомпилировал программу - не работает. На машине с 6.0 работает.
3. По совету ВОВАН - вынес вызов Навигейт в отдельную процедуру, заработало и на 7.0.

Да понятно, что не по правилам с потока вызывал этот метод, но с ИЕ 6.0 работает! Нонсенс?