delphi webbrowser Невозможно отобразить страницу

[mr_xxx]

привет уважаемые
у меня вот такой вопрос
у меня есть browser
хочу чтобы когда в form1.webbrowser1 выводется Невозможно отобразить страницу то программа автоматичаски перезагружал туже страницу
допустим если webbrowser1.Navigate('http://192.168.0.5/test.php'); и если Невозможно отобразить страницу то автоматически зделал авторефреш до тех пор пока не откроет страницу
заранее всем блогодарен

[Arigato]

Можно как-то так извратиться:

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  if Pos ('res://ieframe.dll/', Text) > 0 then begin
    Sleep (100);
    Application.ProcessMessages;
    TWebBrowser(Sender).Navigate(TWebBrowser(Sender).Hint);
  end; {if}
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  TWebBrowser(Sender).Hint := URL;
end;

[mr_xxx]

не работает

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1StatusTextChange(ASender: TObject;
      const Text: WideString);
    procedure WebBrowser1BeforeNavigate2(ASender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 webbrowser1.Navigate(edit1.text);
end;

procedure TForm1.FormActivate(Sender: TObject);
{$J+} //writeable constants on
const
  rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  ws : TWindowState = wsNormal;
{$J-} //writeable constants off
var
  r : TRect;
begin
WebBrowser1.Silent := True  ;
   if BorderStyle <> bsNone then
  begin
    ws := WindowState;
    rect := BoundsRect;

    BorderStyle := bsNone;
    r := Screen.MonitorFromWindow(Handle).BoundsRect;
    SetBounds(r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ;
  end
  else
  begin
    BorderStyle := bsSizeable;
    if ws = wsMaximized then
      WindowState := wsMaximized
    else
      SetBounds(rect.Left, rect.Top, rect.Right-rect.Left, rect.Bottom-rect.Top) ;
  end;
  webbrowser1.Align:=alclient;

end;


procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
   const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
TWebBrowser(ASender).Hint := URL;
end;

procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject;
  const Text: WideString);
begin
  if Pos ('res://ieframe.dll/', 'невозможно отобразить страницу') > 0 then begin
    Sleep (1);
    Application.ProcessMessages;
    TWebBrowser(ASender).Navigate(TWebBrowser(ASender).Hint);
  end; {if}
end;

end.

[Arigato]

Понятно, что не будет работать. 'невозможно отобразить страницу' - это от куда тут взялось?

[mr_xxx]

а что там должно быть ?

if Pos ('res://ieframe.dll/', Text) > 0 then begin

[DCC Error] Unit1.pas(81): E2251 Ambiguous overloaded call to 'Pos'
System.pas(22998): Related method: function Pos(const string; const string): Integer;
System.pas(23103): Related method: function Pos(const WideString; const WideString): Integer;

прошу если не трудно напишите конкретно что в коде не так

[mr_xxx]

пожалуйста помогите это очен срочно

[Человек_Борща]

Вот почему подмена User-Agent'а не помогает =).

[Arigato]

А что за версия Делфи?
Попробуйте Pos (WideString ('res://ieframe.dll/'), Text)