自動でｗｅｂの更新ボタンを押すには？
解決いつもご指導いただき、ありがとうございます。
あるｈｔｔｐｓのｗｅｂ画面があり、ＵＲＬは見えない様になっています。
ここに更新ボタンがあり、クリックすると更新され別の欄に更新データが表示されます。常に更新ボタンを押すのを改善したいのです。
この更新ボタンを（例えば１分毎に）クリックする動作をＤｅｌｐｈｉで作るとすれば、どのような方法があるでしょうか。
どのように取り掛かれば良いかも入り口もわかりません。
ご指導願います。
当方、Ｄｅｌｐｈｉ７エンタープライズです。
ブラウザのコンポを使用しているのでしたら
WebBrowser.Refresh
．．は、だめですか？
ｍｏｏｋさん、早速のご指導ありがとうございます。
返事が遅れ申し訳ございません。
ｗｅｂの関係は、どの様なコンポーネントを使い、どの様にしたらよいかも解らない初心者です。
こちらはクライアントで、更新したい画面に「現在の状況を更新」というボタン（imageの様です）があります。
これを押す（クリックする）プログラムをクライアントＰＣに設置したいのです。
WebBrowser.Refreshは普通にbeginとendの間に入れれば良いのでしょうか。
教えてください。
>あるｈｔｔｐｓのｗｅｂ画面があり、ＵＲＬは見えない様になっています。
それは自前のアプリなの？それとも他人が作って改変不可能なアプリ？
状況が巧く説明できず申し訳ございません。
改変不可能な他人のシステムです。
その他人のサーバー・システムにアクセスしておりますが、
自分のＰＣに表示されるデータを「現在の状況を更新」という自分のＰＣのボタンをクリックする動作をさせたいのです。
その自分のＰＣで動作をするプログラムをＤｅｌｐｈｉで作りたいのです。
よろしくご指導願います。
おそらく Web上の Button を押したいんでしょ？
https://www.petitmonte.com/bbs/answers?question_id=5273
を参考にして下さい
やり方が分からないとの事ですので。
先に「Internet」のタブの中に「WebBrowser」のコンポーネントがありますので
それをフォームに貼り付けます。
後はボタンを貼り付けて以下のように
procedure TForm1.Button1Click(Sender: TObject);
var
url: String;
v1, v2, v3, v4: OleVariant;
begin
// アドレスの入れ方は勉強してください
url:= 'http://www.google.co.jp';
WebBrowser1.Navigate (url, v1, v2, v3, v4);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
後、Delphi7.0の環境ではどうかわかりませんが、Delphiインストール先に
サンプル等がありますので参考にされたらいいかも。
C:\...\Demos\Coolstuf のような．．
皆さん、ありがとうございます。
殆ど、考えていたストーリーです。
もう一つ教えてください。
そのｗｅｂがｈｔｔｐｓでＵＲＬが見えない場合は、どうすればよいのでしょうか。
ご指導願います。
ｍｏｏｋさん、丁寧なご指導ありがとうございます。お陰様で理解できました。
ＫＨＥ00221さん、ご指導ありがとうございます。重ねて教えてください。
参考のページでTForm3.WebBrowser1DocumentComplete(ASender: TObject;
の部分は、どの様にクリック又は貼り付ければ良いのでしょうか。
教えて下さい。
procedure TForm3.Timer1Timer(Sender: TObject);
var
HTMLDoc2 : iHTMLDocument2;
HTMLInputElement : iHTMLInputElement;
HTMLInputImageEvent : HTMLInputImageEvents;
begin
HTMLdoc2 := Webbrowser1.document as IHTMLDocument2;
HTMLInputElement := HTMLDoc2.All.Item ('btnG',0) as iHTMLInputElement;
HTMLInputElement.Form.Submit;
end;
btnG の名前はソース(HTML)を見て自分で調べて下さい。
> 参考のページでTForm3.WebBrowser1DocumentComplete(ASender: TObject;
> の部分は、どの様にクリック又は貼り付ければ良いのでしょうか。
これは、Delphiの環境でオブジェクトインスペクタの「イベント」の中で
「OnDocumentComplete」を、ダブルクリックすると出てきますよ。
この辺りは、Delphiの一般常識ですから、マスターするようにしましょう。
皆さん、ありがとうございます。
何とか考えが整理できそうです。
そして、何とも恥ずかしい限りです。
もっと勉強しなければなりません。
今後ともご指導よろしくお願いします。
| ツイート |  |