WebBrowser.NavigateでURLを表示について

香坂 2009-07-06 19:42:00 No: 35046

WebBrowser.NavigateでURLを表示させていますが、該当のURlが存在しない場合、別にメッセージを出したいのですが、何か良い方法はございませんでしょうか?

moocho 2009-07-08 09:06:43 No: 35047

ちょっとダサイ（死語？）けど、こんなのはどうですか？

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var
  NewUrl:string;
  H3: IHtmlDocument3;     // usesに MSHTML 追加
  wstr: widestring;
begin
  NewUrl := WebBrowser1.LocationURL;
  if (NewUrl <> '') then begin
    H3 := WebBrowser1.Document  as IHtmlDOcument3;
    wstr := H3.documentElement.Get_outerHTML;
    if pos('<TITLE>サーバーが見つかりません',wstr)>0 then begin
       showmessage('URLエラー');
    end;
  end;
end;