名前
題名
▼ Mr.XRAYさん > このスレッドのサンプルコードを TWebBrowser または TEmbeddedWB でテスト > する方は，IE のレンダリングモードを最新の値に変更してください． > 古いバージョンの IE オブジェクトの DOM では getElementsByClassName > をサポートしていません． > > [07_IE コンポーネントのレンダリングの互換モードを変更] > http://mrxray.on.coocan.jp/Delphi/plSamples/944_plGooleSearch.htm#07 > > プログラム名は，サーバに UP しているプロジェクトの場合は Project1.exe > です． > > > TEmbeddedWB の場合は以下のようなコードで実行可能です． > > procedure TForm1.Button1Click(Sender: TObject); > var > LClassName : String; > LJsText : String; > begin > if EmbeddedWB1.Document = nil then exit; > > LClassName := '"submit"'; > LJsText 　 := 'document.getElementsByClassName(' + LClassName + ')[0].click();'; > EmbeddedWB1.ExecScript(LJsText, 'JavaScript'); > end; > > > TWebBrowser の場合は，例えば以下のようにします． > uses に MSHTML が必要です． > > procedure TForm1.Button1Click(Sender: TObject); > var > LDoc : IHTMLDocument2; > LHTMLWindow : IHTMLWindow2; > LClassName : String; > LJsText : String; > begin > LDoc := WebBrowser1.Document as IHTMLDocument2; > if not Assigned(LDoc) then exit; > > LHTMLWindow := LDoc.parentWindow; > if not Assigned(LHTMLWindow) then exit; > > try > LClassName := '''submit'''; > LJsText := 'document.getElementsByClassName(' + LClassName + ')[0].click();'; > LHTMLWindow.execScript(LJsText, 'JavaScript'); > except > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link