複数のWebBrowserをDELPHIから操作 (ID:46553)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

take様  IHTMLWindow2というものが「型である」というアドバイスをいただき試したところ見事に動きました。
未熟な質問にご回答いただき感謝いたします。ありがとうございました。

他にはこんな問題を抱えている方も少ないとは思いますが動いたコードを書かせていただきます。

private
    HTMLWindow2: IHTMLWindow2;
    HTMLWindow3: IHTMLWindow2;  // IHTMLWindow3 から2に変更
 （中間省略）

procedure TForm1.FormCreate(Sender: TObject);
  begin
  form1.webbrowser1.Navigate('d:\map\kanagawa.html');
  form1.webbrowser2.Navigate('d:\map\kanagawa_L.html');  // 広域図

HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;
  HTMLWindow3 := (WebBrowser2.Document as IHTMLDocument2).parentWindow;

end;

procedure TForm1.Button1Click(Sender: TObject);   
  var
  dlat,dlon:string;
  begin 
      dlat:='35.3';  dlon:='139.3';
      form1.HTMLWindow2.execScript('GotoLatLng(' + dlat + ',' + dlon + ')', 'JavaScript');
      form1.HTMLWindow2.execScript('PutMarker(' + dlat + ',' + dlon + ')', 'JavaScript');

form1.HTMLWindow3.execScript('GotoLatLng(' + dlat + ',' + dlon + ')', 'JavaScript');
      form1.HTMLWindow3.execScript('PutMarker(' + dlat + ',' + dlon + ')', 'JavaScript');
  end;

←解決時は質問者本人がここをチェックしてください。

戻る