足高神社

近場の神社を見て回りたくなってまずは氏神様から。

神社：足高神社 （倉敷）

祭神：大山津見命,石長比売命,木之花佐久夜比売命

大山津見命は伊邪那岐命と伊邪那美命より生まれ
石長比売命、木之花佐久夜比売命は大山津見命の娘。
木之花佐久夜比売命は神武天皇の曾祖母（邇邇芸命は曾祖父）

高い山の上にありそれほど大きい神社ではないですが、初詣には近所の方々が参拝されます。

胆嚢全摘出しました

 技術ネタではなく生存確認の為に雑談を一つ。

先日、胆嚢を全摘出しました。

たまたま休みで昼食を終えのんびりしていると右背中上に違和感

しばらくすると右わき腹上部に痛み。

一瞬横切る尿管結石（数回経験してカテーテル手術も一回）

ひとまず近所の町医者へ。エコー検査でも石等はなさそう。

胃・十二指腸炎だろうとお薬処方。

痛み止めが効いたのか少し痛みが和らぐ。

が、翌々日早朝に激しい痛み再来。で、急患で総合病院へ

CT検査等でも石はなく痛み止めをもらって帰宅。

昼すぎに少し血尿？が出たので翌日に仕事の引継ぎをして昼から泌尿器科へ

血液検査等で結石ではなく胆嚢炎の可能性が指摘されるが心臓の関係でそこでは手術できないと総合病院へ救急車で転院。

血圧が下がりだしたので優先順位を上げてもらって手術。

もうね。怒涛の数日間でしたw

CDデバイス名からRecorderUniqueID取得、トレーEJECT処理

前回の投稿で使用したCDデバイス名一覧から選択したCDデバイスを特定する処理です

前投稿[CDデバイス一覧取得]のソースがある前提で

引数に選択したCDデバイス名を指定すれば対応するデバイスのIDを取得します

--------------------------------------------------------------------------------

    ''' <summary>
    ''' RecorderUniqueID取得
    ''' </summary>
    Public Function GetCDDevID(sProductId As String) As String
        Dim strRet As String = String.Empty
        Dim objDiscMaster As IMAPI2.MsftDiscMaster2 = Nothing
        Try
            'デバイス検索
            objDiscMaster = New IMAPI2.MsftDiscMaster2
            For Each sDev As String In objDiscMaster
                Dim objDev As New IMAPI2.MsftDiscRecorder2
                Try
                    objDev.InitializeDiscRecorder(sDev)
                    If Trim(objDev.ProductId) = sProductId Then
                        strRet = sDev
                        Exit For
                    End If
                Catch ex As Exception
                    Throw ex
                Finally
                    MarshalObject(objDev)
                End Try
            Next
        Catch ex As Exception
            Throw ex
        Finally
            MarshalObject(objDiscMaster)
        End Try
        Return strRet
    End Function

--------------------------------------------------------------------------------

これだけだと面白くないのでCDトレーのEJECTをさせる処理を

引数に選択したCDデバイス名を指定すれば対応するデバイスのトレーを開きます

--------------------------------------------------------------------------------

    ''' <summary>

    ''' EJECT TRAY

    ''' </summary>

    ''' <param name="sProductId">Device名</param>

    Public Sub TrayEJECT(sProductId As String)

        Dim objRecorder As New IMAPI2.MsftDiscRecorder2

        Dim sRecorderUniqueID As String = GetCDDevID(sProductId)

        Try

            If Not String.IsNullOrWhiteSpace(sRecorderUniqueID) Then

                'デバイス決定

                objRecorder.InitializeDiscRecorder(sRecorderUniqueID)

                'EJECT

                objRecorder.EjectMedia()

            End If

        Catch ex As Exception

            Throw ex

        Finally

            MarshalObject(objRecorder)

        End Try

    End Sub

--------------------------------------------------------------------------------

CDデバイス一覧取得

ネタが無いので小出しで

手が空いて何もすることが無いので以前作成したCD-R/RW のPGをWindows10,VB2019に移植。

とは言っても変えるところはw

IMAPI2はインストールした記憶が無いのでWindows10に初期から入ってる？

コンボボックスにCDドライブを表示させたいので一覧を取得する処理から

まず、必要な参照をImportsしておく

--------------------------------------------------------------------------------

Imports IMAPI2

Imports IMAPI2FS

Imports System.Runtime.InteropServices

--------------------------------------------------------------------------------

定番のCOM開放処理を作成

--------------------------------------------------------------------------------
    ''' <summary>
    ''' COMオブジェクト解放
    ''' </summary>
    ''' <param name="obj">対象オブジェクト</param>
    Private Sub MarshalObject(ByVal obj As Object)
        Try
            If (Not obj Is Nothing) AndAlso (Marshal.IsComObject(obj)) Then
                Marshal.ReleaseComObject(obj)
            End If
        Catch ex As Exception
            Throw ex
        Finally
            obj = Nothing
        End Try

    End Sub

--------------------------------------------------------------------------------

CDデバイス一覧取得

--------------------------------------------------------------------------------

    ''' <summary>

    ''' CDデバイス名一覧取得

    ''' </summary>

    Public Function GetCDDevName() As List(Of String)

        Dim lstRet As New List(Of String)

        Dim objDiscMaster As MsftDiscMaster2 = Nothing

        Dim objDev As MsftDiscRecorder2 = Nothing

        'デバイス一覧取得

        Try

            objDiscMaster = New MsftDiscMaster2

            For Each sDev As String In objDiscMaster

                objDev = New MsftDiscRecorder2

                objDev.InitializeDiscRecorder(sDev)

                lstRet.Add(Trim(objDev.ProductId))

                MarshalObject(objDev)

            Next

        Catch ex As Exception

            Throw ex

        Finally

            MarshalObject(objDev)

            MarshalObject(objDiscMaster)

        End Try

        Return lstRet

    End Function

--------------------------------------------------------------------------------

GetCDDevName() の戻り値を ComboBox の DataSource に設定すれば表示するはず

覚書の為、検証できていないので参考程度でお願いします

ICD交換

 えっと、ネタがそれほど無いので2年ほど前の事を(；´Д｀)汗

ICDを装着して7年ほど経ち、電圧も落ちてきたのでICD交換をすることに。

入院は一週間ほどでした。部分麻酔で何の問題もなくすんなりと。

リード線も断線などなく。

ぇっとまったく問題が無かったので面白くないですねw

そういえば最後に電気ショックを受けてから4年、最近はページング動作も無いようです。

このまま動かないで欲しいなぁ・・・