掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserで読み込まれるまで待機 (ID:11790)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 簡単に言うと自動で複数のサイトを巡回して、データ収集を行わせる物を作りたいのです。 複数のサイトを目で見て確認しながら巡回して データ収集したいのなら、WebBrowserコントロールの DocumentComplateイベントの発生を待つ必要がありますね。 var bDocComplete: Boolean; ArrayURL: array[0..20]of string; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin WebBrowser1.Silent := True; for i := Low(ArrayURL) to High(ArrayURL) do begin bDocComplete := False; WebBrowser1.Navigate(ArrayURL[i], EmptyParam, EmptyParam, EmptyParam, EmptyParam); while not bDocComplete do Application.ProcessMessages; end; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin bDocComplete := True; // データ収集の処理 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.