| [9134] エスパーは登場するのか | 返信 削除 |
| 2015/8/26 (水) 20:21:28 Mr.XRAY |
|
あいかわらず，エスパーの登場を期待する質問がありますね． そして，いつものように [典型的なパターン] です． [chroniumのボタンをクリックするには？] 質問者が提示した具体的なものは，下のコードだけです． これだけの HTML コードでもウェブブラウザで表示できますけどね (^^; <Button class="submit" >送信</Button> 上の HTML では，ボタンをクリックしても何も起きません． 何も起きなければ，クリックの確認が面倒です． そこで，以下のようにして，ボタンをタグ名を検索してクリックするテストをしてみました． 質問されている方の言う，class 名からでも，もちろん処理すれば可能です． でも，ほとんど意味ないですけど， もちろん，この下のテストも，実際にはほとんど意味はないです． タグ名やクラス名からボタンを検出しなければならないなんて考えられませんから． <Button class="submit" onClick="location.href='http://mrxray.on.coocan.jp/index.htm'">SEND</Button> //============================================================================= // ブラウザコンポーネントに指定のHTMLを表示 //============================================================================= procedure TForm1.FormCreate(Sender: TObject); var URL : String; begin URL := ExtractFilePath(Application.ExeName) + 'this_is_a_button.htm'; Chromium1.Load(URL); end; //============================================================================= // HTMLコード内のbuttonタグの最初のタグ(0が1番目)のボタンをクリック // このコードは，JavaScriptを実行しているだけなので // JavaScriptを実行する部分を変更すれば，他のブラウザコンポでも使用可能 //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LTagName : String; LJsText : String; begin if not Chromium1.Browser.HasDocument then exit; if Assigned(Chromium1.Browser.Mainframe) then begin LTagName := '''button'''; LJsText := 'document.getElementsByTagName(' + LTagName + ')[0].click();'; Chromium1.Browser.MainFrame.ExecuteJavaScript(LJsText, 'about:blank', 0); end; end; 興味ある方用に，プロジェクトをダウンロード可能にしています．EXE 付きです． 動作確認環境は，ソースコード内に書いてあります． 下図が実行結果です． 下の図が [Button1] をクリックして，コードで [SEND] ボタンをクリックした結果です．  |