掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
国土地理院地図をクリックして緯度・経度を取得したい (ID:42488)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「国土地理院地図」というものが↓これのことなら、 http://watchizu.gsi.go.jp/watchizu.html?longitude=139.81&latitude=35.71 クリックした地図の位置の緯度・経度を取得するのはかなり面倒みたいだけど、 地図の中央の十字カーソルの位置の緯度・経度なら次の関数で簡単に取得できる。 procedure TForm1.Get_Longitude_Latitude; var Document: IHTMLDocument3; ND,NM, ED,EM: Integer; NS,ES: Double; begin Document := WebBrowser1.Document as IHTMLDocument3; if Assigned(Document) then begin ND := StrToInt(Document.getElementById('ND').innerText); NM := StrToInt(Document.getElementById('NM').innerText); NS := StrToFloat(Document.getElementById('NS').innerText); ED := StrToInt(Document.getElementById('ED').innerText); EM := StrToInt(Document.getElementById('EM').innerText); ES := StrToFloat(Document.getElementById('ES').innerText); Edit1.Text := Format('北緯%3d度%.2d分%f秒', [ND,NM,NS]); Edit2.Text := Format('東経%3d度%.2d分%f秒', [ED,EM,ES]); end; end; つまり、目標の場所が地図の中心(十字カーソルの位置)になるようにマウスで 地図をドラッグして動かしたあとで、マウスボタンを離した時のイベントで この関数を呼び出すことが出来れば目的達成かな？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.