カテゴリー : .NETプログラミング
GPS情報を取得している動画からGPS情報を取得する方法。
.m2ts(.mts)ファイルはAVCHDの規格で記録されている。
AVCHDでは、映像には高効率符号化が可能なH.264/MPEG-4 AVC方式を採用、音声にはドルビーデジタル (AC-3) 方式（LPCM：オプション）を採用、多重化にMPEG2-TSを採用。
GPSの情報は動画部分に埋め込まれており、H.264のtagを解析することで取得可能。
TAGの情報は以下のサイトを参考
MDPMタグ(16進で 4D 44 50 4D）を検索して、そこから順番に、日時（DateTimeOriginal）や緯度（GPSLatitude）経度（GPSLongitude）などを取得可能。
複数のソフトを順番にインストールしたりアンインストールする方法を調査しており、まずはインストール済みのアプリケーションとアンインストーラ実行ファイルを取得するのに挑戦。
【VB.NET】インストール済みアプリケーションの一覧を作成する
を参考にさせていただきました。
Private Sub getInstallList()
Dim wkRegKey As Microsoft.Win32.RegistryKey
Dim wkKeyName As String
Dim strKeyNames() As String
Dim strKeyName As String
Dim rKey As Microsoft.Win32.RegistryKey
Dim displayName As String
Dim unInstaller As String
Dim wkSoftwareInfo As SoftwareInfo
wkKeyName = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
wkRegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(wkKeyName, False)
strKeyNames = wkRegKey.GetSubKeyNames()
For Each strKeyName In strKeyNames
rKey=wkRegKey.OpenSubKey(strKeyName)
‘インストールソフトウェア名取得
If Not rKey.GetVakue(“DisplayName”) is Nothing Then
displayName = rKey.GetValue(“DisplayName”).Tostring()
‘アンインストール実行ファイル取得
If Not rKey.GetVakue(“UninstallString”) is Nothing Then
unInstaller = rKey.GetVakue(“UninstallString”)
End If
End If
Next
End Sub
指定ソフトウェアがインストール済みかどうかの判断は、
DisplayNameと指定ソフトウェアの名称が一致するかで判断しました。