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

名前

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

本文

Harry様  早速のご回答をありがとうございます。

DelphiからHTMLを操作することに関する基本的な理屈もわからずに質問させていただき失礼しますが教えてください。
WebBrowser1での成功例を真似て下記のコメント行のようにWebBrowser2、HTMLWindow3などを追加してみましたがどうしても動きません。
ParenrWindowのところで引っかかっているのですがその対処が分からず質問させていただきました。

private
    HTMLWindow2: IHTMLWindow2;
    HTMLWindow3: IHTMLWindow3;  // 追加

（中間省略）

procedure TForm1.FormCreate(Sender: TObject);
 begin
 form1.webbrowser1.Navigate('d:\map\kanagawa.html');
 HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;

form1.webbrowser2.Navigate('d:\map\kanagawa_L.html');  // 広域図追加  これは表示OK
 //HTMLWindow3 := (WebBrowser2.Document as IHTMLDocument3).parentWindow;
      //ここで「未定義の識別子  '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');
 end;

//procedure TForm1.Button2Click(Sender: TObject);   
// var
//   dlat,dlon:string;
// begin 
//     dlat:='35.4';  dlon:='139.4';
//     form1.HTMLWindow3.execScript('GotoLatLng(' + dlat + ',' + dlon + ')', 'JavaScript');
//     form1.HTMLWindow3.execScript('PutMarker(' + dlat + ',' + dlon + ')', 'JavaScript');
// end;

Personalのスペルミス、失礼しました。
以前HTMLで得られた緯度、経度をDELPHI側で取得する方法をお伺いしました時に教えていただいたか、それに関連して知った方法です。

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

戻る