掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowser.NavigateでURLを表示について (ID：35047)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっとダサイ（死語？）けど、こんなのはどうですか？ 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.