Windows – ページ 4 – 水色（仮）

2021年4月14日2023年2月2日

スタートアップ修復に失敗したWindows10 PC を修理 / Repair Windows 10 PC that failed startup repair

※注意して操作しないとせっかく残っていたデーターなど失う場合があります

障害のあるハードディスクを複製

# dd if=/dev/src of=/dev/dst ibs=512 obs=1024k conv=noerror,sync

1	# dd if=/dev/src of=/dev/dst ibs=512 obs=1024k conv=noerror,sync

/dev/src で多くのリードエラーが発生

ここで、可能な限りデーターを別のディスクにバックアップしておく

スタートアップ修復 > 詳細オプション > コマンドプロンプト

インストール DVD から install.wim をハードディスクにコピーする

> copy g:\sources\install.wim c:\
> attrib -h -s -r c:\install.wim

1 2	> copy g:\sources\install.wim c:\ > attrib -h -s -r c:\install.wim

↓この当たりのコマンドは色々試行錯誤したが、実行エラー

> dism /Cleanup-Image /restorehealth /source:g:\sources\install.wim
> dism /Cleanup-Image /restorehealth /source=g:\sources\install.wim
> dism /Cleanup-Image /startcomponenetstore /source:g:\sources\install.wim
> dism /online /Cleanup-Image /startcomponenetstore
エラー: 50 /Online オプションを使用して Windows PE をサービスすることはサポートされていません

> dism /Cleanup-Image /restorehealth /source:g:\sources\install.wim

> dism /Cleanup-Image /restorehealth /source=g:\sources\install.wim

> dism /Cleanup-Image /startcomponenetstore /source:g:\sources\install.wim

> dism /online /Cleanup-Image /startcomponenetstore

エラー: 50 /Online オプションを使用して Windows PE をサービスすることはサポートされていません

上記のエラー:50 について下記に情報がありました：

https://ja.projectunderstood.com/721-error-50-dism-does-not-support-servicing-windows-pe-with-the-online-option

Windows PEには、WindowsPEを識別できる特定のレジストリキーがあります。DISMツールを実行すると、そのレジストリキーがチェックされます。キーはにあります

HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Control \ MiniNT

WindowsPEMININTレジストリキーを削除します

エラーを修正するには、キーがレジストリで使用可能な場合は削除する必要があります。

実行プロンプトでregeditと入力し、Enterキーを押して、レジストリエディタを開きます。
上記のキーパスのいずれかに移動します。
WinPEまたはMiniNTを右クリックして、削除します。

修復

> dism /image:c: /get-packages
> chkdsk c: /f
マウント解除続行
> dism /image:C:\ /cleanup-image /scanhealth
> dism /image:C:\ /cleanup-image /restorehealth

> dism /image:c: /get-packages

> chkdsk c: /f

マウント解除続行

> dism /image:C:\ /cleanup-image /scanhealth

> dism /image:C:\ /cleanup-image /restorehealth

ブートパーティションを修復

> bootrec /fixboot
アクセスが拒否されました

1 2	> bootrec /fixboot アクセスが拒否されました

UEFI パーティションにボリュームラベルを設定

> diskpart
diskpart> list volume
diskpart> select volume <number> # UEFI FAT32 を選択
diskpart> assign letter u:
diskpart> exit

> diskpart

diskpart> list volume

diskpart> select volume <number> # UEFI FAT32 を選択

diskpart> assign letter u:

diskpart> exit

修復

> chkdsk u: /f
> bootrec /fixboot
アクセスが拒否されました

> chkdsk u: /f

> bootrec /fixboot

アクセスが拒否されました

UEFI パーティションをフォーマット及び再構築

> format u: /FS:FAT32
> cd /d u:
> bootrec /Rebuildbcd
> bootrec /scanos
> bootrec /fixboot
アクセスが拒否されました
> bcdboot c:\Windows /l ja-JP /s u: /f ALL
> exit

> format u: /FS:FAT32

> cd /d u:

> bootrec /Rebuildbcd

> bootrec /scanos

> bootrec /fixboot

アクセスが拒否されました

> bcdboot c:\Windows /l ja-JP /s u: /f ALL

> exit

感想

参考サイトに書かれている UEFI パーティションのフォーマット＆再構築は効果的だった

参考

https://freesoft.tvbok.com/win10/recovery/fixboot-access-denied.html
https://jp.minitool.com/backup-tips/dism-error-87.html
https://www.ubackup.com/jp/articles/dism-error-87-the-parameter-is-incorrect.html

2020年1月8日2020年1月8日

Access で作成されたアプリを 2003 以前から令和対応の 2013 以降へ移すか、または、自前で何とかした際のメモ

Access データベースでの参照の問題を解決する方法

https://support.microsoft.com/ja-jp/help/310803/how-to-resolve-reference-issues-in-an-access-database

utility.mda への参照エラーを解消したい

現在のデータベースを表示するのには次のように参照します

データベースを開きます。
Visual Basic エディターを起動するのには alt キーを押しながら f11 キーを押します。
[ツール] メニューの [参照] をクリックします。

Access runtime download

2016 ランタイム

https://www.microsoft.com/ja-jp/download/details.aspx?id=50040

2016 更新プログラムリンク切れ

https://support.microsoft.com/ja-jp/help/4462192/march-5-2019-update-for-access-2016-kb4462192

2013 ランタイム

https://www.microsoft.com/ja-jp/download/details.aspx?id=39358

2013 更新プログラム

https://support.microsoft.com/ja-jp/help/4032252/february-5-2019-update-for-access-2013-kb4032252

2003 ランタイムも用意

accessruntime2003.exe

2003 ランタイムが Windows 10 64bit でインストールされた場所

C:\Program Files (x86)\Microsoft Office\OFFICE11\MSACCESS.EXE

令和対応アップデート

https://support.microsoft.com/ja-jp/help/4478844/office-updates-for-new-japanese-era

Access データベースを開いたときに表示される既定のフォームを設定する

.mdb, .accdb を開く際に Shift キーを押しっぱなしにすると自動実行はキャンセルされる

“AutoExec マクロ” は削除して、フォームの表示設定をした

https://support.office.com/ja-jp/article/access-%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E3%82%92%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%82%8B%E6%97%A2%E5%AE%9A%E3%81%AE%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%82%92%E8%A8%AD%E5%AE%9A%E3%81%99%E3%82%8B-94961011-392f-4c3b-8dbc-e5d5adbff1df

ファイル > オプション > 現在のデータベース
アプリケーションオプション
フォームの表示: フォームを選択

.mdb から .accdb へ変換

ファイル > 名前を付けて保存 > Accessデータベース

初期動作環境 – 2019-12-24

MS Access 2000 (9.0.2812) / 1992-1999
MS Access 2003

テーブル一覧の取得

クエリー > 新規作成 > デザインビュー OK 閉じる
SQL をクリックして以下を入力

SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.Flags
FROM MSysObjects
ORDER BY MSysObjects.Type, MSysObjects.Name;

SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.Flags

FROM MSysObjects

ORDER BY MSysObjects.Type, MSysObjects.Name;

テーブル操作用

' データベーステーブル移行用
' として作成したが使わなくて済んだ
'
' 2020-01-06
'

Option Compare Database
Option Explicit

Const MdbFrom = "C:\var\from.mdb"
Const MdbTo = "C:\var\to.mdb"

' to.mdb の指定テーブルを削除
Sub DeleteTables()
    Dim Tables
    Dim tName As String
    Dim sSQL As String
    Dim i As Integer
    
    On Error GoTo Err

    Tables = Array("T_example_1", "T_example_2")

    'LBound → 配列のもっとも小さいインデックスを返します。
    'UBound → 配列のもっとも大きいインデックスを返します。
    For i = LBound(Tables) To UBound(Tables)
        '配列の要素を１つずつ取り出します。
        tName = Tables(i)

        sSQL = "Drop Table [" & MdbTo & "]." & tName & ";"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sSQL
        DoCmd.SetWarnings True
    Next

    Exit Sub
Err:
    Debug.Print "On Error table name: " & tName
    Resume Next

End Sub


' from.mdb の指定テーブルを to.mdb へコピー
Sub RestoreTables()
    Dim Tables
    Dim tName As String
    Dim sSQL As String
    Dim i As Integer
    
    On Error GoTo Err

    Tables = Array("T_example_1", "T_example_2")

    'LBound → 配列のもっとも小さいインデックスを返します。
    'UBound → 配列のもっとも大きいインデックスを返します。
    For i = LBound(Tables) To UBound(Tables)
        '配列の要素を１つずつ取り出します。
        tName = Tables(i)

        sSQL = "SELECT " & tName & ".* INTO " & tName & " IN '" & MdbTo & "' FROM " & tName & " IN '" & MdbFrom & "';"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sSQL
        DoCmd.SetWarnings True
    Next

    Exit Sub
Err:
    Debug.Print "On Error table name: " & tName
    Resume Next
End Sub

' データベーステーブル移行用

' として作成したが使わなくて済んだ

' 2020-01-06

Option Compare Database

Option Explicit

Const MdbFrom = "C:\var\from.mdb"

Const MdbTo = "C:\var\to.mdb"

' to.mdb の指定テーブルを削除

Sub DeleteTables()

Dim Tables

Dim tName As String

Dim sSQL As String

Dim i As Integer

On Error GoTo Err

Tables = Array("T_example_1", "T_example_2")

'LBound → 配列のもっとも小さいインデックスを返します。

'UBound → 配列のもっとも大きいインデックスを返します。

For i = LBound(Tables) To UBound(Tables)

'配列の要素を１つずつ取り出します。

tName = Tables(i)

sSQL = "Drop Table [" & MdbTo & "]." & tName & ";"

DoCmd.SetWarnings False

DoCmd.RunSQL sSQL

DoCmd.SetWarnings True

Exit Sub

Err:

Debug.Print "On Error table name: " & tName

Resume Next

End Sub

' from.mdb の指定テーブルを to.mdb へコピー

Sub RestoreTables()

Dim Tables

Dim tName As String

Dim sSQL As String

Dim i As Integer

On Error GoTo Err

Tables = Array("T_example_1", "T_example_2")

'LBound → 配列のもっとも小さいインデックスを返します。

'UBound → 配列のもっとも大きいインデックスを返します。

For i = LBound(Tables) To UBound(Tables)

'配列の要素を１つずつ取り出します。

tName = Tables(i)

sSQL = "SELECT " & tName & ".* INTO " & tName & " IN '" & MdbTo & "' FROM " & tName & " IN '" & MdbFrom & "';"

DoCmd.SetWarnings False

DoCmd.RunSQL sSQL

DoCmd.SetWarnings True

Exit Sub

Err:

Debug.Print "On Error table name: " & tName

Resume Next

End Sub

自前で対応

' https://ameblo.jp/memo-randum/entry-10182486918.html
'==================================================================================
'       指定の文字数になるまで先頭を文字で埋めます。(R1)
'
' @Param    stTarget    処理対象となる文字列。
' @Param    iLength     文字の長さ。
' @Param    [chOne]     埋める文字。
' @Return               先頭を指定の文字で iLength の長さまで埋められた文字列。
'==================================================================================
Function PadLeft(stTarget, iLength, chOne)
On Error GoTo Err
   Do While (Len(stTarget) < iLength)
       stTarget = chOne & stTarget
   Loop

   PadLeft = Right(stTarget, iLength)
   Exit Function
Err:
   PadLeft = stTarget
End Function

' 西暦年月日から和暦gggeに変換 (R1)
Function SDateToGgge(ymd, before, after)
    Dim yyyymmdd As String
    Dim f3

    If IsNull(ymd) Or StrComp(ymd, "") = 0 Then
        SDateToGgge = ""
        Exit Function
    End If

On Error GoTo Err
    
    'MsgBox ymd  '1990/11/05
    yyyymmdd = Replace(ymd, "/", "")
    f3 = Split(ymd, "/")
    
    If StrComp(yyyymmdd, "20190430") = 1 Then
        SDateToGgge = before & "令和" & f3(0) - 2018 & after
    Else
        SDateToGgge = before & Format(ymd, "ggge") & after
    End If
    Exit Function
    
Err:
    MsgBox "SDateToGgge: 西暦年月日から和暦(ggge)への変換に失敗しました: " & ymd
    SDateToGgge = ymd
End Function

' 西暦年月日から和暦ggge年m月d日に変換 (R1)
Function SDateToGggeMD(ymd)
    Dim yyyymmdd As String
    Dim f3

    If IsNull(ymd) Or StrComp(ymd, "") = 0 Then
        SDateToGggeMD = ""
        Exit Function
    End If

On Error GoTo Err
    
    'MsgBox ymd  '1990/11/05
    yyyymmdd = Replace(ymd, "/", "")
    f3 = Split(ymd, "/")
    
    If StrComp(yyyymmdd, "20190430") = 1 Then
        SDateToGggeMD = "令和" & f3(0) - 2018 & Format(ymd, "年m月d日")
    Else
        SDateToGggeMD = Format(ymd, "ggge年m月d日")
    End If
    Exit Function
    
Err:
    MsgBox "SDateToGggeMD: 西暦年月日から和暦(ggge年m月d日)への変換に失敗しました: " & ymd
    SDateToGggeMD = ymd
End Function


' 西暦年月日から和暦gggに変換 (R1)
Function SDateToGgg(ymd)
    Dim yyyymmdd As String

    If IsNull(ymd) Or StrComp(ymd, "") = 0 Then
        SDateToGgg = ""
        Exit Function
    End If

On Error GoTo Err
    
    'MsgBox ymd  '1990/11/05
    yyyymmdd = Replace(ymd, "/", "")
    
    If StrComp(yyyymmdd, "20190430") = 1 Then
        SDateToGgg = "令和"
    Else
        SDateToGgg = Format(ymd, "ggg")
    End If
    Exit Function
    
Err:
    MsgBox "SDateToGgg: 西暦年月日から和暦(ggg)への変換に失敗しました: " & ymd
    SDateToGgg = ymd
End Function


' 西暦年月日から和暦eに変換 (R1)
Function SDateToE(ymd)
    Dim yyyymmdd As String
    Dim f3

    If IsNull(ymd) Or StrComp(ymd, "") = 0 Then
        SDateToE = ""
        Exit Function
    End If

On Error GoTo Err
    
    'MsgBox ymd  '1990/11/05
    yyyymmdd = Replace(ymd, "/", "")
    f3 = Split(ymd, "/")
    
    If StrComp(yyyymmdd, "20190430") = 1 Then
        '令和
        SDateToE = f3(0) - 2018
    Else
        SDateToE = Format(ymd, "e") '和暦の年の数値部分のみ先頭の0は無し
    End If
    Exit Function
    
Err:
    MsgBox "SDateToE: 西暦年月日から和暦(e)への変換に失敗しました: " & ymd
    SDateToE = ymd
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

' https://ameblo.jp/memo-randum/entry-10182486918.html

'==================================================================================

' 指定の文字数になるまで先頭を文字で埋めます。(R1)

' @Param stTarget 処理対象となる文字列。

' @Param iLength 文字の長さ。

' @Param [chOne] 埋める文字。

' @Return 先頭を指定の文字で iLength の長さまで埋められた文字列。

'==================================================================================

Function PadLeft(stTarget, iLength, chOne)

On Error GoTo Err

Do While (Len(stTarget) < iLength)

stTarget = chOne & stTarget

Loop

PadLeft = Right(stTarget, iLength)

Exit Function

Err:

PadLeft = stTarget

End Function

' 西暦年月日から和暦gggeに変換 (R1)

Function SDateToGgge(ymd, before, after)

Dim yyyymmdd As String

Dim f3

If IsNull(ymd) Or StrComp(ymd, "") = 0 Then

SDateToGgge = ""

Exit Function

End If

On Error GoTo Err

'MsgBox ymd '1990/11/05

yyyymmdd = Replace(ymd, "/", "")

f3 = Split(ymd, "/")

If StrComp(yyyymmdd, "20190430") = 1 Then

SDateToGgge = before & "令和" & f3(0) - 2018 & after

Else

SDateToGgge = before & Format(ymd, "ggge") & after

End If

Exit Function

Err:

MsgBox "SDateToGgge: 西暦年月日から和暦(ggge)への変換に失敗しました: " & ymd

SDateToGgge = ymd

End Function

' 西暦年月日から和暦ggge年m月d日に変換 (R1)

Function SDateToGggeMD(ymd)

Dim yyyymmdd As String

Dim f3

If IsNull(ymd) Or StrComp(ymd, "") = 0 Then

SDateToGggeMD = ""

Exit Function

End If

On Error GoTo Err

'MsgBox ymd '1990/11/05

yyyymmdd = Replace(ymd, "/", "")

f3 = Split(ymd, "/")

If StrComp(yyyymmdd, "20190430") = 1 Then

SDateToGggeMD = "令和" & f3(0) - 2018 & Format(ymd, "年m月d日")

Else

SDateToGggeMD = Format(ymd, "ggge年m月d日")

End If

Exit Function

Err:

MsgBox "SDateToGggeMD: 西暦年月日から和暦(ggge年m月d日)への変換に失敗しました: " & ymd

SDateToGggeMD = ymd

End Function

' 西暦年月日から和暦gggに変換 (R1)

Function SDateToGgg(ymd)

Dim yyyymmdd As String

If IsNull(ymd) Or StrComp(ymd, "") = 0 Then

SDateToGgg = ""

Exit Function

End If

On Error GoTo Err

'MsgBox ymd '1990/11/05

yyyymmdd = Replace(ymd, "/", "")

If StrComp(yyyymmdd, "20190430") = 1 Then

SDateToGgg = "令和"

Else

SDateToGgg = Format(ymd, "ggg")

End If

Exit Function

Err:

MsgBox "SDateToGgg: 西暦年月日から和暦(ggg)への変換に失敗しました: " & ymd

SDateToGgg = ymd

End Function

' 西暦年月日から和暦eに変換 (R1)

Function SDateToE(ymd)

Dim yyyymmdd As String

Dim f3

If IsNull(ymd) Or StrComp(ymd, "") = 0 Then

SDateToE = ""

Exit Function

End If

On Error GoTo Err

'MsgBox ymd '1990/11/05

yyyymmdd = Replace(ymd, "/", "")

f3 = Split(ymd, "/")

If StrComp(yyyymmdd, "20190430") = 1 Then

'令和

SDateToE = f3(0) - 2018

Else

SDateToE = Format(ymd, "e") '和暦の年の数値部分のみ先頭の0は無し

End If

Exit Function

Err:

MsgBox "SDateToE: 西暦年月日から和暦(e)への変換に失敗しました: " & ymd

SDateToE = ymd

End Function

Office のバージョンとか

Office2003 : 11
Office2007 : 12
Office2010 : 14
Office2013 : 15
Office2016 : 16
Office2019 : 17

Office365

Microsoft Teams (Skype for Business)

See

https://ameblo.jp/memo-randum/entry-10182486918.html
https://bayashita.com/p/entry/show/69
https://qiita.com/YamasakiKenta/items/7bebbce9a87f97dd83a5
http://round.main.jp/core/runtime.htm
https://bytes.com/topic/access/answers/509519-deleting-table-another-mdb
https://q.hatena.ne.jp/1096619717
https://teratail.com/questions/147862
https://hatenachips.blog.fc2.com/blog-entry-373.html
https://dekiru.net/article/15676/

2019年12月20日2019年12月20日

色々やったけれどネットワーク一覧に表示されないデバイスがあるのでそれに対応中のメモ / Tried some but haven’t displayed some devices in the network list … still doing

network-pc-list.bat

rem Shift JIS, CRLF

set cmd=start
rem set cmd=stop

rem Function Discovery Provider Host
sc %cmd% fdPHost

rem Function Discovery Resource Publication
sc %cmd% FDResPub

rem Network Connections
sc %cmd% Netman

rem Peer Name Resolution Protocol
sc %cmd% PNRPsvc

rem Peer Networking Grouping
sc %cmd% p2psvc

rem Peer Networking Identity Manager
sc %cmd% p2pimsvc

rem UPnP Device Host
sc %cmd% upnphost

pause.

rem Shift JIS, CRLF

set cmd=start

rem set cmd=stop

rem Function Discovery Provider Host

sc %cmd% fdPHost

rem Function Discovery Resource Publication

sc %cmd% FDResPub

rem Network Connections

sc %cmd% Netman

rem Peer Name Resolution Protocol

sc %cmd% PNRPsvc

rem Peer Networking Grouping

sc %cmd% p2psvc

rem Peer Networking Identity Manager

sc %cmd% p2pimsvc

rem UPnP Device Host

sc %cmd% upnphost

pause.

「\\device-name」とすればアクセスできるんだし…もういいでしょ？…ゆるしてちょんまげ

2019年10月26日2019年12月3日

ホームビデオ？スマホ撮影ビデオ等をDVDにしてみる with DVD Flick 1.3.1.0

ホームビデオ？スマホ撮影ビデオをDVDにしてみる ←頼まれただけ

1枚のDVDに入れる Title (ビデオの数) は 48個までにする / ディスクの容量制限よりも Title数制限に引っかかる
※Title は 50個まで登録できるがメニューが再生しなくなる
*.mov はエラーを起こす場合があるので *.mp4 に変換しておく (*.m2ts は問題なかった…と思っていましたが、撮影時間が3秒とか短いときは要変換)
日本語ファイル/フォルダ名の使用は不可
DVDのメニュー画面のタイトルには日本語を使用しても良い
*.iso に書き出して再生に問題がないか確認してから DVDに書き込む

DVD Flick は複数起動できるので作業がはかどりますありがたいです

再生

1枚のDVDに多くの Title を入れると
再生した際にメニューが表示されるまでに時間がかかる

設定

Project settings >

General > Title
Burning > Create ISO image

Menu settings >

Simple White (or Simple Black が無難)
Auto-play menu

動画の向き回転

スマホで撮影したビデオは、予め下記のいずれかで回転しておく
今回は、*.mov 全て rotate auto で *.mp4 に変換した

rotate auto
ffmpeg.exe -i “%F” -metadata:s:v:0 rotate=0 “%P\%N”.mp4
rotate-1 90
ffmpeg.exe -i “%F” -vf transpose=1 -metadata:s:v:0 rotate=0 “%P\%N”.mp4
rotate-3 270
ffmpeg.exe -i “%F” -vf transpose=3 -metadata:s:v:0 rotate=0 “%P\%N”.mp4

ついでに、その他の変換もメモ

encode_in_ADTS_1000
ffmpeg.exe -i “%F” -fpre x264_main.ffpreset -pass 1 -flags +loop+global_header+ildct+ilme -weightp 0 -vcodec libx264 -s 720×480 -b:v 1000k -acodec aac -profile:a aac_low -strict experimental “%P\%N”.mp4
encode_in_ADTS x265 medium
ffmpeg.exe -i “%P\%N”.ts -c:v libx265 -preset medium -crf 28 -c:a aac -b:a 128k “%P\%N”.mp4
encode_in_ADTS_6000
ffmpeg.exe -i “%F” -fpre x264_main.ffpreset -pass 1 -flags +loop+global_header+ildct+ilme -weightp 0 -vcodec libx264 -b:v 6000k -acodec aac -profile:a aac_low -strict experimental “%P\%N”.mp4
encode_dein_1000
ffmpeg.exe -i “%F” -fpre x264_main.ffpreset -pass 1 -filter:v yadif -flags +loop+global_header -vcodec libx264 -s 720×480 -b:v 1000k -acodec aac -profile:a aac_low -strict experimental %~dpn1.mp4
to mp3
ffmpeg.exe -i “%F” %.mp4 -acodec libmp3lame -ab 256k “%P\%N.mp3”
wav → mp3 変換 64bit 44.1KHz
tompg “%F” “%P\%N.mp3” -B64 -M1
flv -> mp3
ffmpeg -i “%F” -ab 128 -ar 44100 “%P\%N.mp3”
flv -> mpg
ffmpeg -i “%F” -b 900 -ab 96 “%P\%N.mpg”
mpg -> flv
ffmpeg -i “%F” -ab 128 -ar 44100 “%P\%N.flv”
flv -> wav
ffmpeg -i “%F” -ab 128 -ar 44100 “%P\%N.wav”
flv -> avi
ffmpeg -i “%F” -b 900 -ab 96 “%P\%N.avi”
flv -> avi 高画質
ffmpeg -i “%F” -f avi -vcodec mpeg4 -b 800k -g 300 -bf 2 -acodec libmp3lame -ab 128k “%P\%N__.avi”
to flv for Hompage
ffmpeg -s 320×240 -i “%F” -ab 128 -ar 44100 “%P\%N.flv”
to flv 2 for Hompage
ffmpeg -i “%F” -ab 64 -ar 11025 -s 320×240 -ab 128 -b 64000 “%P\%N__.mp4”
-> flv 高画質
ffmpeg -i “%F” -b 800k -g 300 -ab 128k “%P\%N__.flv”
-> flv 高画質 640×360
ffmpeg -i “%F” -s ega -b 800k -g 300 -ab 128k “%P\%N__.flv”
その他ホームページ用-r
ffmpeg -i “%F” -s 640×360 -ab 128 -b 800k -g 300 “%P\%N__.mp4”
その他ホームページ用-t
ffmpeg -i “%F” -s 320×240 -ab 128 -b 800k -g 300 -acodec libmp3lame -ab 128k “%P\%N__.mpg

2019年9月27日2021年1月25日

Windows 用 GUI module “lxn/walk” を使用したソフトウェアを linux 上 Golang でクロスビルドしてみる / Cross-build to Windows GUI software using module “lxn/walk” with Golang on Linux

環境

$ uname -a ; lsb_release -a
Linux ***** 4.4.0-109-lowlatency #132-Ubuntu SMP PREEMPT Tue Jan 9 20:43:47 UTC 2018 x86_64 x86_64 x86_64 GNU/Linux
LSB Version:	core-9.20160110ubuntu0.2-amd64:core-9.20160110ubuntu0.2-noarch:printing-9.20160110ubuntu0.2-amd64:printing-9.20160110ubuntu0.2-noarch:security-9.20160110ubuntu0.2-amd64:security-9.20160110ubuntu0.2-noarch
Distributor ID:	Ubuntu
Description:	Ubuntu 16.04.6 LTS
Release:	16.04
Codename:	xenial

$ uname -a ; lsb_release -a

Linux ***** 4.4.0-109-lowlatency #132-Ubuntu SMP PREEMPT Tue Jan 9 20:43:47 UTC 2018 x86_64 x86_64 x86_64 GNU/Linux

LSB Version: core-9.20160110ubuntu0.2-amd64:core-9.20160110ubuntu0.2-noarch:printing-9.20160110ubuntu0.2-amd64:printing-9.20160110ubuntu0.2-noarch:security-9.20160110ubuntu0.2-amd64:security-9.20160110ubuntu0.2-noarch

Distributor ID: Ubuntu

Description: Ubuntu 16.04.6 LTS

Release: 16.04

Codename: xenial

Install MinGW

# x86_64-w64-mingw32-gcc
sudo apt install gcc-mingw-w64-x86-64
# x86_64-w64-mingw32-g++
sudo apt install g++-mingw-w64-x86-64
# x86_64-w64-mingw32-gnat
sudo apt install gnat-mingw-w64-x86-64
# i686-w64-mingw32-gfortran
sudo apt install gfortran-mingw-w64-x86-64
# x86_64-w64-mingw32-windres

# i686-w64-mingw32-gcc
sudo apt install gcc-mingw-w64-i686
# i686-w64-mingw32-g++
sudo apt install g++-mingw-w64-i686
# i686-w64-mingw32-gnat
sudo apt install gnat-mingw-w64-i686
# i686-w64-mingw32-gfortran
sudo apt install gfortran-mingw-w64-i686
# i686-w64-mingw32-windres

# x86_64-w64-mingw32-gcc

sudo apt install gcc-mingw-w64-x86-64

# x86_64-w64-mingw32-g++

sudo apt install g++-mingw-w64-x86-64

# x86_64-w64-mingw32-gnat

sudo apt install gnat-mingw-w64-x86-64

# i686-w64-mingw32-gfortran

sudo apt install gfortran-mingw-w64-x86-64

# x86_64-w64-mingw32-windres

# i686-w64-mingw32-gcc

sudo apt install gcc-mingw-w64-i686

# i686-w64-mingw32-g++

sudo apt install g++-mingw-w64-i686

# i686-w64-mingw32-gnat

sudo apt install gnat-mingw-w64-i686

# i686-w64-mingw32-gfortran

sudo apt install gfortran-mingw-w64-i686

# i686-w64-mingw32-windres

Download and Setting

ダウンロードした go は ~/golang/ に展開

開発は ~/go/ で行う

.bashrc:

# golang
export PATH=$PATH:$HOME/golang/bin
export GOPATH=$HOME/go
export PATH=$PATH:$GOPATH/bin

# golang

export PATH=$PATH:$HOME/golang/bin

export GOPATH=$HOME/go

export PATH=$PATH:$GOPATH/bin

$ go version
go version go1.13 linux/amd64

1 2	$ go version go version go1.13 linux/amd64

モジュールのインストール

$ cd go/hello-walk
$ GOOS=windows GOARCH=amd64 go get github.com/lxn/walk
$ GOOS=windows GOARCH=386   go get github.com/lxn/walk
$ go get github.com/akavel/rsrc

$ cd go/hello-walk

$ GOOS=windows GOARCH=amd64 go get github.com/lxn/walk

$ GOOS=windows GOARCH=386 go get github.com/lxn/walk

$ go get github.com/akavel/rsrc

hello-walk.go そのまんま使用:

package main

import (
	"strings"

	"github.com/lxn/walk"
	. "github.com/lxn/walk/declarative" // . ドットをつけるとパッケージ名を省略して呼び出せる
)

func main() {
	var inTE, outTE *walk.TextEdit

	MainWindow{
		Title:   "SCREAMO",
		MinSize: Size{600, 400},
		Layout:  VBox{},
		Children: []Widget{
			HSplitter{
				Children: []Widget{
					TextEdit{AssignTo: &inTE},
					TextEdit{AssignTo: &outTE, ReadOnly: true},
				},
			},
			PushButton{
				Text: "SCREAM",
				OnClicked: func() {
					outTE.SetText(strings.ToUpper(inTE.Text()))
				},
			},
		},
	}.Run()
}

package main

import (

"strings"

"github.com/lxn/walk"

. "github.com/lxn/walk/declarative" // . ドットをつけるとパッケージ名を省略して呼び出せる

)

func main() {

var inTE, outTE *walk.TextEdit

MainWindow{

Title: "SCREAMO",

MinSize: Size{600, 400},

Layout: VBox{},

Children: []Widget{

HSplitter{

Children: []Widget{

TextEdit{AssignTo: &inTE},

TextEdit{AssignTo: &outTE, ReadOnly: true},

PushButton{

Text: "SCREAM",

OnClicked: func() {

outTE.SetText(strings.ToUpper(inTE.Text()))

}.Run()

}

マニフェスト

下記のマニフェストは <trustInfo> セクションを付けてあり
管理者権限での実行用にしてある

Linux では Windows のユーザーアカウント制御 (UAC; User Account Control) 関係ないので通常のユーザーで実行です

hello-walk.manifest:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
        <security>
            <requestedPrivileges>
            <requestedExecutionLevel level="requireAdministrator"/>
            </requestedPrivileges>
        </security>
    </trustInfo>
    <assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="Hogehoge" type="win32"/>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
        </dependentAssembly>
    </dependency>
    <application xmlns="urn:schemas-microsoft-com:asm.v3">
        <windowsSettings>
            <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2, PerMonitor</dpiAwareness>
            <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">True</dpiAware>
        </windowsSettings>
    </application>
</assembly>

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

</requestedPrivileges>

</security>

</trustInfo>

</dependentAssembly>

</dependency>

<dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2, PerMonitor</dpiAwareness>

</windowsSettings>

</application>

</assembly>

ビルド

32bit 用の場合は amd64 を 386 に変える

$ # リソースファイル .syso を生成, 拡張子が合っていればOK
$ GOOS=windows GOARCH=amd64 rsrc -manifest hello-walk.manifest -o rsrc.syso

$ # マニフェストのファイル名を変更するのはやめてシンボリックリンク
$ ln -s hello-walk.manifest hello-walk.exe.manifest

$ # ビルド, ソースファイルを指定しないこと, リソースは結合してくれる
$ GOOS=windows GOARCH=amd64 go build -ldflags="-H windowsgui" -o hello-walk.exe

$ # linux では実行エラーになる wine が古いかも
$ wine --version
wine-3.0.4
$ wine hello-walk.exe
002e:fixme:process:SetProcessPriorityBoost (0xffffffffffffffff,1): stub

$ # リソースファイル .syso を生成, 拡張子が合っていればOK

$ GOOS=windows GOARCH=amd64 rsrc -manifest hello-walk.manifest -o rsrc.syso

$ # マニフェストのファイル名を変更するのはやめてシンボリックリンク

$ ln -s hello-walk.manifest hello-walk.exe.manifest

$ # ビルド, ソースファイルを指定しないこと, リソースは結合してくれる

$ GOOS=windows GOARCH=amd64 go build -ldflags="-H windowsgui" -o hello-walk.exe

$ # linux では実行エラーになる wine が古いかも

$ wine --version

wine-3.0.4

$ wine hello-walk.exe

002e:fixme:process:SetProcessPriorityBoost (0xffffffffffffffff,1): stub

wine のアップデート

して動作した

$ sudo apt-get remove winehq-stable

###  Ubuntu 19.04
$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ disco main'

###  Ubuntu 18.04
$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ bionic main'

###  Ubuntu 16.04
$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ xenial main'

$ sudo apt-get update
$ sudo apt-get install --install-recommends winehq-stable

$ wine --version
wine-4.0.1

$ sudo apt-get remove winehq-stable

### Ubuntu 19.04

$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ disco main'

### Ubuntu 18.04

$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ bionic main'

### Ubuntu 16.04

$ sudo apt-add-repository 'deb https://dl.winehq.org/wine-builds/ubuntu/ xenial main'

$ sudo apt-get update

$ sudo apt-get install --install-recommends winehq-stable

$ wine --version

wine-4.0.1

See

https://golang.org/
https://github.com/lxn/walk
https://pod.hatenablog.com/entry/2018/12/26/074944
https://tecadmin.net/install-wine-on-ubuntu/

障害のあるハードディスクを複製

スタートアップ修復 > 詳細オプション > コマンド プロンプト

インストール DVD から install.wim をハードディスクにコピーする

修復

ブートパーティションを修復

UEFI パーティションにボリュームラベルを設定

修復

UEFI パーティションをフォーマット及び再構築

感想

参考

Access データベースでの参照の問題を解決する方法

Access runtime download

2016 ランタイム

2016 更新プログラム リンク切れ

2013 ランタイム

2013 更新プログラム

2003 ランタイムも用意

2003 ランタイムが Windows 10 64bit で インストールされた場所

令和対応アップデート

Access データベースを開いたときに表示される既定のフォームを設定する

.mdb から .accdb へ変換

初期動作環境 – 2019-12-24

テーブル一覧の取得

テーブル操作用

自前で対応

Office のバージョンとか

See

再生

設定

動画の向き回転

環境

Install MinGW

Download and Setting

モジュールのインストール

マニフェスト

ビルド

wine のアップデート

See

スタートアップ修復 > 詳細オプション > コマンドプロンプト

2016 更新プログラムリンク切れ

2003 ランタイムが Windows 10 64bit でインストールされた場所