narichan

スマートソケットをスマートプラグに改造

Sat, 25 Oct 2025 13:22:52 +0900

はじめにお読みください。→当サイトのリンクと免責事項

P社のスマートソケットを購入して暫くは使っていましたが有料になるらしく
長い間お蔵入りでした。

次に中華のスマートプラグを購入しました。

価格も手ごろで良いのですがコントロールはメーカーのサーバー経由です。
他社のサーバーに情報を載せるのはちょっと抵抗があります。
そこでスマートソケットをWifiで直接コントロールする改造を行います。
このスマートソケットは電力情報を収集できるのが売りですが、いらないので単にオン、オフができれば
よしとします。

まずは開封。
トルクスネジ4本で開けます。
トルクネジはT-10で開けます。

基板は２枚で本体側と蓋側です。本体側は電力監視とオンオフ回路
蓋側はWifiとメモリでした。

本体側基板　回路の電源部とリレー、それに電力測定回路が載っています。

蓋側です。　こちらにはWifiとメモリが載ってました。
本体側基板を取り外すのは大変でした。AC100Vの入力端子がケースに埋め込まれていますので基板の半田を取り除き取り出します。基板を取った後のケースです。

蓋側はビス３本で止まっています。
今回の回路図です。

　　　　　　　　　　　　　　　　　クリックで拡大

本体側の基板は一部修正します。FETに行く線をコネクタから取り出すためです。

蓋側基板は作り直しします。
既存の基板に合わせてカットし、取り付け穴を開けます。
そこにSeeed Studio XIAO ESP32C6を付けスイッチ、LEDを配線します。
スイッチはマニュアルでオンオフするためです。既存のスイッチを取り除きタクトスイッチを付けました。
LEDはオン時点灯します。

回路は単純で
D10　GPIO18　---　LED
D9　　GPIO20　---　リレー駆動
D7　　GPIO17 --- タクトスイッチ

LEDが点灯するとオンです。

ソフトです。
ESP32C6側のソースです。UDP通信です。コマンドは3つです。
P：Wifi死活チェック
N：オン
F：オフ
　　　　　　　　　　　　　　　　　クリックで拡大

PC側のプログラムです。vb.netで作っています。
フォームの画面です。

実際は他にもボタンとテキストボックスがあります。
　　　　　　　　　　　　　　　　　クリックで拡大

アンテナスイッチというのがありますが本記事とは関係ありません。

電源のオンオフの部分のみ参考程度に見てください。

実働させたら返事が返ってきません。
いろいろ調べたところESP32C6のWifiのレベルが低く、うまくいくときもあれば失敗することもあります。
PCからのコマンドは動いています。つまりPCからの電波は強い、ESP32からの電波は弱いということでした。

外部アンテナを付けました。

前述のESP32C6側のソースでは外部アンテナ使用のステートメントになってます。

この項終わり

SDRで作るデジタルトランシーバーその６

Mon, 30 Sep 2019 08:42:16 +0900

はじめにお読みください。→当サイトのリンクと免責事項

送信アンプユニットを説明します。

この中のリニアアンプは中華製の広帯域パワーアンプを使います。

当初購入したアンプです。

2MHZ-700MHZ 3W HF VHF UHF FM Transmitter RF Power Amplifier

このヒートシンクにファンを取付使用していましたが可入力で壊したためアンプを変えました。

1- 930MHZ RF Broadband Power Amplifier 2.5W Amplifier

こちらもヒートシンクにファンを取付ています。

ちなみに先の2-700Mhz　3Wのアンプの回路は次です。

1-930　2.5Wの方は初段がSBB2089Z、終段がRD01MUS2B同等品と思われます。

LimeSDR Miniの出力を考えれば終段のみで良いのですがアッテネータを入れインピーダンス整合を取ります。

500MHzまで15dBmのアッテネータを入れるとソフトのTXレベル100でアンプの最大入力レベルになります。

当初、アンテナ切り替えリレーにCX-220Pを使いました。

これが高い周波数での減衰が大きく使えないので安立の測定器に使われている13GHzまでのMM700022Aに替えました。

このリレーは送信中は受信側をGNDに落とすのでちょうど良いのですが2コイル式で回路を工夫しないといけません。PTTをもらってシーソーのようにコイルの動作を切り替えます。

また、当初はアンプの出力とリレーの間にフイルターを入れていました。144MHz帯の時LPFを挿入するためです。LimeSDR MiniのBand出力をもらってリレーを動作させフイルターを切り替えます。フイルターにはトリプレクサ―CFX431を使いました。

この切り替えリレーに高見沢UM-101-Kという現在ではドキュメントが無いリレーを使いました。

回路にも問題があり、1200MHzがリレー2個通過します。減衰の大きさに呆れかえってしまいました。

ということでこれも不採用となりました。結局144MHz帯の場合手でLPFを繋ぎます。その結果送信系はアンテナ切り替えリレーが入るだけとなりました。

1GHz以上の試験ではリレーのロス、フィルターのロスが馬鹿になりません。またケーブルロスも大きいのでいかにそれらを減らせるかがポイントになります。10D2Vを20m引くと4.2dB（at1200MHz)になります。4.2dBは電力比で0.38倍です。これだけで電力が1/2以下になります。

終り

SDRで作るデジタルトランシーバーその５

Sun, 29 Sep 2019 00:38:22 +0900

はじめにお読みください。→当サイトのリンクと免責事項

受信アンプユニットの説明です。

LNAは中華製を購入しました。一応NFを気にして購入しました。

マイクロ波アンプ NF0.6dB　広帯域4GHz Gain 18dB 出力+22.7dBmW

このLNAは+5V仕様なので3端子レギュレーターで作っています。

受信切替リレーが入っていますが、当初全2重なら送信波を同じSDRでモニターできると思っていたからです。その後それができないことが判明したのでモニター入力にはSMAコネクタでショート回路を入れています。

それならと、もう一つSDRを入れてモニターしようと考え一番安いRTL-SDRをいれました。このSDRは熱に弱いのでケースの中にファンを入れてます。風に当てるため裸にしました。

ではモニター用の信号をどう入れるか検索したところJA6AQOさんのサイトが見つかりました。
そっくりそのままコピーさせてもらいました。一応500MHzまで使っています。

これでも強すぎる時はさらにATTを入れています。

モニターのソフトはSDR#を使っています。

次は送信アンプユニットの説明です。

続く

SDRで作るデジタルトランシーバーその４

Sat, 28 Sep 2019 06:23:03 +0900

はじめにお読みください。→当サイトのリンクと免責事項

送受切り替えコントローラユニットの説明です。

ここでは送受の切り替えのタイミングを発生させています。

PTTと同時にRXの入力を短絡します。LNAの電源を落とし、アンテナを切り替えます。そこから100mS遅れて送信アンプの電源を入れます。またそこから5ms遅れて外部のリニアアンプのPTTを入れます。

外部リニアアンプはキャリアコントロールが付いているのでPTTは必要ありません。キャリアコントロールが効かないくらい小電力の場合はこのPTTが生きてきます。実のところ500MHzまでは十分出力が出るのでこのPTTの出番はありません。

当初の回路ではSDRのTX出力をダミーに繋いでおき送信アンプの電源が入ってから100mS後にアンプに切り替えていました。

受信のRX入力切替とTX出力切り替えにはパナソニックのARE10A12を使っています。規格では Max. 0.2dB (to 900MHz), Max. 0.7dB (to 2.6GHz)のInsertion lossです。但しユニバーサル基板に銅箔を使っていますがどうしても1GHz以上ではLossが大きくなります。

後で出てきますがアンテナ切り替えリレーに安田のCX-220Pを使ったのですが1GHzではLossが大きすぎて使い物になりません。そこでアンテナ切り替えリレーを交換すると同時に送信系のリレーを廃止しました。（後述）

当初のTX出力切り替回路は既出の次の回路でした。

ARE10A12は0.7dBなので基板を起こしてコネクタを付ければアンプの利得でカバーできます。

送受切り替えコントローラの回路です。

次は受信アンプユニットの説明です。

続く

SDRで作るデジタルトランシーバーその３

Fri, 27 Sep 2019 08:34:06 +0900

はじめにお読みください。→当サイトのリンクと免責事項

LimeSDR MiniからPTTとBand出力の説明をします。

LimeSDR MiniのGPIO出力からPTTとBand出力を生成する回路です。

LimeSDR MiniのGPIOは基板上に1.27ピッチのパターンで出ています。（このサイトを参照）

このパターンは1.27ピッチの10Pです。

基板に直接ケーブルを半田付けしても良いのですが1.27ピッチのピンヘッダーがありました。

ついでにこちらも購入したのですが使えませんでした。左右の出っ張りがヒートシンクに当たり刺さりません。

先にヒートシンクを付けていなければこの出っ張りを避けてヒートシンクを付ければこれが使えます。

そこでこちらを購入し1.27ﾋﾟｯﾁのリボンケーブル（ATAケーブル）を半田付けしました。

1.27ピッチは割合簡単に半田付けできます。

回路は単にトランジスタアレイでレベル変換するだけです。

GPIO6とGPIO7はPTT専用ですがOR回路でPTTとして出力しています。後続のタイミング回路へ送る信号です。

Band出力はMiniDIN6Pを使いましたがVccとGNDを入れたため4bitのみになりました。GPIO0とGPIO1は表示のみです。GPIO2~GPIO5がBandとして使います。

GPIO6とGPIO7はPTT専用にしました。

オープンコレクタですが表示用のLEDからの電圧が掛かるため無電圧にならずリニアアンプは動作しません。

またタイミングもこれでは送信に入ると同時にリニアアンプがオンになるため気持ちよくありません。

そこでリニアアンプのキャリア検出を使うこととします。

ちなみにソフトの方ですがサイトによれば下記のよう設定します。

これはよくできたソフトです。送信時、または受信時にバンドごとにどのGPIOをオンにするか設定します。

送信時、受信時ともに同じGPIOをチェックすればそれはそのBandの信号になります。送信時だけチェックすればそのBandの送信状態の信号になりますのでPTT信号です。GPIOは0~7までありますので自由に組み合わせてBandまたはPTT信号にできます。多バンドの場合足りなくなるかも知れません。しかしLimeSDR Miniは100MHz以上なのでこれで十分です。

この機能はV3.0.6から提供されました。当初はキャリア検出で行っていました。一番最初の回路です。

この回路では２SC1815のベースのスレシュールドに達しないと検出できません。8dBmくらいのレベルが必要でした。

そこで改造しました。

これで-4dBmくらいまで検出可能になりました。ところが送受を繰り返していると温度が上がるためかスレシュールド値が上がって行き、送信停止でも受信に戻らなくなりました。この回路でも+5dBmくらいないとだめです。ですのでLimeSDR Miniは最高出力で後段でレベル調整するしかありません。

その後さらに回路を改造し次のようにコンパレータで検出することを考えました。

そうこうしているうちにV3.0.6が提供されこの回路は日の目を見ることはありませんでした。

SDRconsoleが提供するBandとPTTはアマチュア無線のBand内だけです。それ以外はLimeSDR MiniのFPGAを書き換えてGPIOをコントロールします。ヨーロッパではATV（アマチュアテレビ）のチームがFPGAを書き換えています。当然SDRconsoleの出力とは異なります。

Band出力は144MHz帯のLPFを入れたり出したりする回路で使用しました。後述しますがこれも結局不採用となり現在Band出力は使っていません。

PTT出力を使わずキャリア検出の時はLimeSDR Miniのみをケースに入れていました。

中身です。

次は送受切り替えコントローラユニットの説明です。

続く

SDRで作るデジタルトランシーバーその２

Thu, 26 Sep 2019 10:27:45 +0900

はじめにお読みください。→当サイトのリンクと免責事項

総合ブロック図を説明します。

SDRは安く無いので壊れないようにしないといけません。

送受の切り替えにディレーを持たせ安全に送信します。それが送受切り替えコントロールユニットです。

受信アンプユニットは送信中はSDRのRX入力を短絡させるリレーを入れました。併せて4GHｚまでの広帯域アンプで利得を稼ぎます。

また送信電波をモニターするRTL-SDRを入れました。当初LimSDR Miniが全2重なので送信と受信を同時に働かせようと思いましたがLimSDR Miniの制約上できないことが分かり最も安いRTL-SDRを導入しました。

送信アンプは広帯域パワーアンプを入れSDRの出力を15dBmから34.6dBm（最大）まで上げます。

受信のLNAも送信のアンプも中華製を購入しました。

送信のアンプを通った後アンテナ切り替えリレーを通ってメーカー製のリニアアンプに繋がります。

リニアアンプの出力段には当然ながらLPFが入っています。

しかし入力はフィルター無しで入ってきます。今回使用するリニアアンプは144MHz帯と435MHz帯の同時送信が可能です。そのため144MHz帯の出力に3倍高調波の435MHz帯が含まれるとそのまま増幅され144MHz帯と435MHz帯の両方に電波が出ていきます。それを防ぐため144MHz帯の送信時は180MHzのLPFをいれてリニアアンプに入れます。144MHz帯専用のアンプなら必要ないです。

SDRから出力されるPTTとBand出力は3.3V 8bit CMOSで出てきますのでオープンコレクタを入れてレベル変換します。オープンコレクタだけであれば電源は要らないのですがLEDを点灯させるため+12Vを送っています。

システム全体は+12Vで統一しますが受信用のLNAは+5V仕様を購入したためユニット内で+5Vに変換しています。リニアアンプには+13.8Vを供給しますのでここから+12Vにダイオード2個で落としシステムの電源とします。

ユニットは150mm×100mm×40mmのアルミケースで統一しました。タカチのYM150です。LimeSDR Miniのケースだけ140mm×100mm×40mmになりました。

次にLimeSDR MiniからPTTとBand出力の説明をします。

続く

SDRで作るデジタルトランシーバーその１

Tue, 24 Sep 2019 20:51:14 +0900

はじめにお読みください。→当サイトのリンクと免責事項

今から10数年前、私が現役のシステムエンジニアだった頃USRPを初めて知った時は大変驚きました。

私もGNU Radioでソフトウエア無線を実験したいと思い購入しようとしましたが、確か60万円くらいしていたと記憶しています。

とても安給料の身では高嶺の花で諦めざるを得ませんでした。

世は移り、時代はすべてがデジタル化に向かう中でテレビチューナードングルがSDRだったのでマニアの間では一時流行りました。

現役を退いた今、SDRは目を見張る進歩を遂げようやく入手できるまでになりました。

このWikiには相当数の市販SDRの一覧があります。

性能の他、購入が容易か見てLimeSDR Miniにしました。（このサイトを参照）

HackRF Oneは国内で購入できますが30kくらいです。LimeSDR Miniは12Bitでしかも安い。23K円で買えました。当時はアメリカから直接送ってきました。

小さな基板が送られてきました。基板の中には既にトランシーバーは入っています。LimeMicrosystemsのLMS7002Mです。

仕様的には10MHz～3.5GHzですが100MHz以下は実用になりません。

LimeSDR MiniでなくLimeSDRの方ならHFも行けるかもしれません。

ソフトもアマチュア無線用がいくつかあります。またGNU Radioが使えるのでTVの送受信などもソフト次第です。

フォーラムも沢山あり世界中の人が日夜開発を楽しんでいます。すべてがオープンです。

ハードがあり、ソフトがあればパソコンを組立るようなものでパーツをくっ付けていけば完成です。

すごい時代が来たものです。昔、真空管で無線機を作ったときはパーツの一つ一つを手作りしていました。

コイルを巻くのは当たりまえ。抵抗やコンデンサを手作りした人もいました。

近年の自作パソコンのマニアはクロックアップに血なまこになっていますがCPUを自作した人は聞いたことがありません。結局はお釈迦様の手のひらでこちょこちょやっているように見えます。

無線機がデジタル化した今となっては全く同じです。真空管を作りたいと考えていた時が懐かしい。

閑話休題

https://www.sdr-radio.com/からダウンロードできるSDRConsoleを使えばアマチュア無線のトランシーバが出来上がりです。

全バンド、全モードが可能です。100MHz～3.5GHzまでの送受信機が完成です。

このソフトは大半の市販SDRのハードウエアに対応しています。LimeSDRもLimeSDR Miniも入っています。V3.0.6以降はPTT出力、Band出力も可能になりました。

このような凄いソフトをオープンで開発しているG4ELIはどういう人でしょうか。

とは言えLimeSDR、LimeSDR Miniは全2重タイプ（送信しながら受信ができる）であり、出力は+15dBmです。（at 500MHz　今回購入の物）

アンテナは1つですので送受切り替え回路が必要です。また出力をもう少し上げてリニアアンプを駆動できるようにする必要があります。

試行錯誤の結果とりあえず動く物ができました。総合ブロック図です。

このシステムの出力は2.8W(at 145MHz)、1W(at 435MHz)、0.8W(at 1200MHZ)です。後述しますが出力にフィルターが有りませんので一考を要します。また電波法では、ソフトウェアの書き換えによって無線通信方式が変化する場合、ハードウェアを変更する場合と同様の結果が得られることから、無線設備に変更の工事を加えたとみなされることになるため、引き続き使用することはできません。また新スプリアス規格に抵触する恐れがありますのでこのシステムでアマチュア無線の免許は降りません。

それでは、これから回路図とその説明をしていきます。

続く

ASUSTORのNASからKODIが無くなったその３（LibreELECを動かす

Tue, 04 Dec 2018 19:39:39 +0900

はじめにお読みください。→当サイトのリンクと免責事項

爪楊枝を刺しながらACアダプタを刺します。TVBOXは裸にしてスイッチが押されていることを確認しながら行いました。

おお！！やった！！Androidが起動しない。Bios（と言うのか分りませんが）が表示するZ95Z Plusのロゴが表示された後

ブラック画面になります。やっとここまで来たか。dtb.imgが合っていないのでいくつか試せば起動するでしょう。

蓋を閉める前にデバイスの写真を撮っておきます。

eMMCとRAMです。

下のLEDとEMIネットワークトランス

WiFi 11ac + Bluetooth 4.1 Module

Wifiのアンテナです。

上のLEDとEthernet (のつもりです。隠れてしまいました）

撮り直しました。

こちらのギガビットイーサネットトランシーバーはAndroidでは問題ありませんがLibreELECでは

うまく動かず問題を抱えています。（こちらを参照）

基板裏にある唯一の大きなICです。ディスプレーコントロールIC

さてLibreELECですがELECと名の付くプロジェクトは３つありOpenELEC－＞LibreELEC－＞CoreELECと分かれてきました。私の理解はOpenELECはRaspberry Piシリーズ用で現在はLibreELECに引き継がれている。CoreELECはLibreELECの中のAmlogicをコミュニティーを中心に先行している。それぞれOE、LE、CEと略されます。

安定板を求めるならLibreELECの公式アナウンスされたものを使うのが良いと思います。

T95Z Plusで動かしたのは次の組み合わせです。

LibreELEC-S912.arm-8.2.4.1.force.444.10bit.img

gxm-q200-k3-pro.dtb

上がOS本体です。下はdtb.imgに名前をかえてコピーするのですがデバイスドライバーのようなものです。インストールはMicroSDカードに焼きつけTVBOXに刺してこのカードから起動します。その辺のインストールの大まかな流れはこちらのサイトまたはこちらのサイトが参考になります。

SDカードから起動ですのでもともとのTVBOXのAndroidは残っています。この時点でデュアルブートになっています。

OSがSDカードに入っていますのでなるべく高速なカードを選択した方がよいでしょう。TVBOXのAndroidを消してeMMCに入れてしまうのも良いのですがLinuxのスキルがないと文鎮化します。せめてデータだけでもeMMCに入れAndroidから少し場所を貰う程度にしておいた方がいいかも知れません。

最新のSDカードはeMMCより早いらしいです。(ただし、機器側が対応していればです。TVBOXに使用されているコントローラーが公表されていないので実のところ何が早いかわかりません。Samsung 32GB EVO Plus Class10 UHS-I対応またはこれの 64GB 版が適当と考えます）

デュアルブートですが一度LibreELECが起動してしまえばSDカードを抜かない限りLibreELECが自動起動します。

Androidを起動するにはLibreELECから自動起動されたKodiから終了ボタン（電源マーク）をクリックします。次のオプションが出てきます。

　　　　　シャットダウン

　　　　　タイマーシャットダウン

　　　　　再起動

　　　　　内部再起動

この中の一番下の内部再起動を選択すればAndroidが起動します。

Androidが終了後の次回の起動はLibreELECが自動起動します。

つまり爪楊枝は最初の1回のみで良いのです。またGooglPlayからReboot to LibreELECというアプリをインストールすれば爪楊枝はいりません。このアプリはAndroidのrootをとりリブート情報を書き換えます。

ちなみにKodiから終了ボタンでシャットダウンまたはタイマーシャットダウンを選択するとシャットダウン後はインジケータは青になり（動作中は薄緑色）点灯したままです。Androidの場合終了（電源オフ）するとインジケータは消灯します。（動作中は薄緑色）

我が家の山の神は電気代にうるさいので毎回Androidを起動して終了しています。（ものすごく煩わしい）

つづく

ASUSTORのNASからKODIが無くなったその２

Sat, 01 Dec 2018 20:04:26 +0900

はじめにお読みください。→当サイトのリンクと免責事項

TVBOXが届きました。

GearBestの価格より日本アマゾンの方が安かったT95Z Plusを買いました。

11月17日に注文して11月27日に届きました。

早速セットアップし、まずはAndroidを起動しました。

特に大きな問題もなく動きました。

HdmiのCECが想定外でした。テレビがビエラなんですがディーガが付いています。そのため起動がディーガになってしまいTVBOXは起動できません。TVBOXが起動した後はテレビのリモコンで動かせます。

有線で繋いでいましたが、ちょっともたつくストリーミング動画もありました。それでもV11(docooler)より断然早いです。

やはりRAM3Gは効いていますね。

ちょっと心配なのはKodiがKOPLAYERになっています。中華ですから。ここで設定した内容がすべてChinaに流れていないだろうな。

という訳でLibreELECを試します。(OSを入れ替えるということ。ただしSDカードから起動ですのでもとのAndroidは無くなりません。調子良かったら入れ替えるかもしれません。）

用意したMicroSDカードを刺して電源を入れます。LibreELECは全く起動しません。

バージョンの違うSDカードを3枚用意していたのですが3枚ともだめです。

Androidから見るとSDカードの中身が見れます。

公式サイトを見るとそのまま起動するタイプとワンアクション必要な機種があるようです。

このサイトでは8つの方法が書かれています。ロボット翻訳します。

*********************************************************

初めてシステムを起動するには、次のものを使用する必要があります。

Khadas VIM：SDカードを挿入してアップグレードモードに入るとLEが自動的に起動します：Howto起動モードへのアップグレード - Khadas Docs
MINIX U1 / U9： SDカードを挿入し、電源コードを差し込みます。次に、電源ボタンを6秒以上、またはLEロゴが表示されるまで押し続けます。
端末エミュレータ：Androidで起動し、LEでSDカード/ USBドライブを挿入し、端末エミュレータアプリ（Google PlayまたはAPKミラー）をインストールして実行し、入力しreboot updateます。あなたのボックスはLEに再起動する必要があります。
爪楊枝の方法：電源を切断し、カード/ドライブを挿入し、リセットボタンを押し、ボタンを押しながら電源を接続します。LibreELECのロゴが表示され、ボタンを離すまで待ちます。
メニューボタン方式（非常に少ないデバイスで動作）：電源を切断し、カード/ドライブを挿入し、リモコンのメニューボタンを押し、ボタンを押しながら電源を接続します。LibreELECのロゴが表示され、ボタンを離すまで待ちます。
リカバリ方法：Androidで起動し、カード/サムドライブを挿入し、[リカバリに再起動]を選択します。あなたのボックスはLibreELECで起動する必要があります。
復旧方法（第二バリアント）：あなたは「更新」アプリをプリインストールオープンそれを持っている場合は、LEにSDカードを挿入/ USBドライブを接続して、選択した任意の更新のためのアプリでZIPファイルを。あなたのボックスはLEに再起動する必要があります。
回復方法（第3の変形）： ADB（Google it）を有効にしてadb reboot updateコマンドを発行する

*************************************************************

こちらのサイトでは3つの方法が紹介されています。ロボット翻訳します。

*************************************************************

LibreELECを起動するには、いくつかの方法があります。基本的には、TV-Boxの更新ボタンを使用する方法と、Androidを使用して更新モードをソフトウェアで起動する方法があります。

•モード1：リセットボタンが押された状態でTVボックスを起動します。

•モード2：リブートモードでTVボックスを再起動するAndroid用LibreELECアプリを使用する

•モード3：もし私たちがAndroid端末からrootであれば "su"してから "reboot update"

*************************************************************

T95Z Plusがどの方法で起動するのか分らない。ただユーチューブを見ているとだいたい爪楊枝をTVBOXに差し込んでいます。そこで私もAVのジャックの穴に爪楊枝を刺して電源を入れてみますが一向に動きません。起動するのはAndroidばかりです。

公式サイトではではT95Z PLusは頻繁に出てきますので必ず起動するはずです。

そこでAVジャックの中はどうなっているのかと思い蓋を明けて見ることにしました。

ゴム足をとればビスが出てきます。

中身はこんな感じです。

SoCの右側にインジケータのLEDが2つあり太めのファイバーで外周を光らせます。上側のLEDの右側にAVジャックがありました。

ジャックの奥にプッシュボタンが見えます。これがリブートスイッチです。

これを爪楊枝の先端で押してみます。

確かに押されていますが細すぎて斜めになっています。そこで爪楊枝の太い方で押してみます。

おお！！これは良い感じだ。何度もやっていたらスイッチが入るカチッとした感覚も分かるようになりました。

今までは手探り状態で見当違いなことをやっていたと思います。

つづく

ASUSTORのNASからKODIが無くなったその１

Tue, 20 Nov 2018 06:48:01 +0900

はじめにお読みください。→当サイトのリンクと免責事項

いまさらの感もしますが私が気付いたのはつい最近です。

EnbyをKodiから楽しんでいたのですがEmby for Kodiというアドオンが動かなくなりEmbyを視聴できなくなりました。

当初原因はアドオンの自動アップデートをオンにしていたためEmbyがKodi経由で視聴できなくさせたのではないかと考えていました。

試しにWindows10にKodiを入れ手順とおりにセットアップしたら今でも視聴できます。

これはKodiを入れ直せば動くだろうと思い、AsustorのNASからアンインストール後再度インストールしようとしたらAPP CentralにKodiが無い。

誤って消したのかと思いAPKからインストールしようとしましたがうまくいきません。いろいろ調べていたら海外サイトに2018年3月でサポート中止となったと記載されているではないですか。なんでもAC3、DTSとDolbyのライセンス更新しなかったらしい。

という訳でASUSTOR　NASはEmbyサーバー機能だけになりました。

今までテレビの近くにおいてHDMIで見ていたのですが代替えを考えなければなりません。

新しくAndroid TVBOXを購入しようと考えていますが、何を買うかサイトを見ていたらLibreELECなるKodi専用Linuxがあることが分かりました。

私の使用方法ではKodiですべてが賄うのでLibreELECが動くTVBOXにしようと思います。手元にラズベリーパイ３があったので試しにLibreELECを入れてみたらこれが調子いい。WifiではカクつくことがありましたがEthernet接続にしたら全く問題ありません。電源以外のすべての操作がテレビのリモコンで完結するので最高にいいです。

ラズベリーパイ３へのインストールは日本語サイトでもたくさんヒットします。私が最初に見つけたTVBOXを調べていてたどり着いたのはこちらのサイトです。

インストールに当たってはこちらとLibreELECの公式サイトを参考にしました。

とりあえずはこれで一時しのぎができました。

さてTVBOXですが候補は次に機種になりました。

名前	T95pro	S10	H96pro	T95Z
価格円　　　　　2018/11GearBest	8942	9872	9076	9217
Android　　　　OS　Ver	？	7.1	7.1	7.1
SoC	S912	S912	S912	S912
RAM	3G	3GDDR4	3GDDR3	3GDDR4
Ethernet	10/100/1000	10/100/1000	10/100/1000	10/100/1000
Wifi	2.4G+5.6G	2.4G+5.7G	2.4G+5.8G	2.4G+5.9G

TVBOXのSoCはARMアーキテクチャのAllwinner, Amlogic, Rockchipがほとんどです。

これらはLibreELECでもサポートしていますが購入対象はAmlogicです。日本のアマゾンで購入できるTVBOXにはRookCHipのRK3328やRK3368がたくさんありますがRookCHipのSocでは現在サポートされているのはRock64、Rock960、Odroid-N1（2017/9）です。RK3288、RK3328、RK3399も開発されています。シングルボード用のビルドが公開されています。

必然Amlogicを選択するようになります。AmlogicのSocの解説はこちらのサイトにあります。S912が最新らしいので課題もあるようですがLibreELECコミュニティではしっかり開発されています。

注意しなければいけないのはS905にはS905Yという派生SoCがありこれを使ったTVBOXは選択してはいけません。同様にDDR4もLPDDR4はバス幅32ビットがシングルチャネルですので注意です。

また使用しているインターフェース周りのデバイスによっては開発対象でない為LibreELECが動かないTVBOXもあるようです。コミュニティのフォーラムでは盛んに論争されています。

ちなみにここに動く一覧があります。とは言え購入できなければしょうがないのでアマゾンから最新のS912を使ったTVBOXを探し表にしたのが上の表です。

この中からレビューやブログを参考にして選択します。

つづく

Kodi Emby Beta Addonー大きいテレビでEmbyを見る

Sun, 29 Apr 2018 16:30:19 +0900

はじめにお読みください。→当サイトのリンクと免責事項

大きなテレビでEmbyのコンテンツを楽しもうと思うとどうしても有料クライアントに誘導されます。

EMbyサーバーのDLNAサーバーを有効にして無料のDLNAクライアントから視聴するのは全く問題ないのですが遠隔にいてDLNAが使えない状態でEmbyのコンテンツをテレビで見ようとするといろいろ問題が出でてきます。

現在、Embyの公式サイトにはテレビ用のクライアントアプリが16個表示されます。

このどれもが有料です。こちらに一覧があります。次のような特定のデバイスの場合はやむを得ないとします。

Amazon fireTV

SHIELD NVIDIA

Apple TV

Chromecast

Roku

Samsung SMARTTV

PS4

XBOX ONE

XBOX 360

PS3

RaspberryPi

ではこれら以外を見てみると。

Android TV ：：購入しないと1分しかみれません。

Emby Thester for Windows ：：こちらもDownloadの下に「再生にはEmby Premiereが必要です。」とあります。

HTML5 ：：　同様です。

Windows Media Center ：： Windows10では廃止されました。

KODI ：：　EmbyConというアドオンが無料で使えます。

これだと思いました。何せKodi自体が無料であらゆるデバイスで動くメディアプレーヤーですから。何がいいかというとリモコンで操作が完結します。マウスもキーボードも要りません。まさにテレビのためのアプリだからです。ところが

色々やってみましたがEmbyサーバーに撮りためたh265とh264のコンテンツが表示されません。

KODIの公式WikiによればEMbyの映画、テレビ番組、音楽コレクションをブラウズして再生できるようにするアドオンとなっています。

作成者はEmbyの開発チームです。私のやり方が悪いのかHomeVideoを表示できません。

このEmbyConアドオンをインストールしている最中にもう一つEmbyのアドオンがあることが分かりました。

それはEmby for Kodiというアドオンです。こちらはConが付きません。こちらはEmbyサーバーのすべてのコンテンツを管理できます。Kodiの公式Wikiサイトには次のように書かれています。

Emby for Kodiは現在、ムービー、ボックスセット、テレビ番組、音楽（オプション）、ミュージックビデオ、ホームビデオ、ピクチャ、映画/エピソードの削除（オプション）、監視/再開の状態をサポートしています。

しかも無料です。素晴らしい。作者に感謝です。

グーグルさんに翻訳してもらいました。

KodiのサイトでもEmby for Kodi　とEmbyconがあることが分かります。

インストール情報を見てみます。またグーグルさんに出てもらいます。

ここに書かれているように安定板とベータ版があります。ベータ版の方が新しいのでそれをインストールします。 Find out more here!（詳細はこちら！）のhere!をクリックすると詳しく出ています。

こちらのページも参考になります。ベータ版（1.0.5.ZIP）からインストールするとアドオンのEnbyは3.0.22aのバージョンになります。

このページで最新のバージョンが確認できます。

2018年4月20日現在3.0.22aが最新です。

インストールが完了したらKodiのメニューのアドオンからビデオアドオンのEmbyをクリックします。

Embyがサーバーを探します。（同じLANセグメント内）サーバーが見つかるとサイイインの画面になります。

他のセグメントやグローバルなサーバーの場合はサーバーを指定します。

サーバーに接続するとユーザーの指定をします。

サインインが完了するとコンテンツの同期が始まります。

同期が完了すると

画面が再描画されEmbyサーバーに登録さているライブラリーがメニュー画面に表示されます。

ビデオアドオンの設定を行っていますがそのユーザーに許可されているすべてのライブラリーが表示されますがビデオ以外は再生できません。

私は動画と写真のコンテンツタイプをHome Videos & PHotosと音楽はUnst(mixed content)としています。写真と音楽をEmbyで再生したい時はKodiのピクチャーアドオン、ミュージックアドオンにEmbyを設定すれば可能ですが私はやっていません（後述）。

コンテンツライブラリーの下には設定関連の項目が並びます。

下から3番目のPerform local database resetをクリックし、すべて「はい」で応えるとKodiが再起動しEmbyサーバーの指定から始めことができます。

またSettingsをクリックするとサーバー情報、ユーザー情報が表示され変更できます。

これでEmbyサーバーのライブラリーが表示されました。

そのライブラリーを選択すると3択になりますのでライブラリーを選択します。

そのライブラリーを読み込みに行きます。

読み込みが終わるとライブラリーの内容が表示されます。フォルダー名かコンテンツ名がメニューに並びます。

私はすべての動画をフォルダーで管理しています。ライブラリーの中にフォルダーがあり複数のファイルかフォルダーがあるとフォルダー表示になります。フォルダーの中に１つの動画がある場合はファイル表示になりクリックすると再生されます。フォルダーはいくらでも深くできそうですが私は3階層が最高です。

ということで無料で遠隔よりEmbyのコンテンツを大きなテレビでみることができました。スマホとタブレットはアプリを購入しています。ブラウザより操作性がよくレスポンスが良いためです。

Emby for KodiをANDROID TV、NAS、RaspberryPiのKodiにインストールして使っています。

ところがANDROID TVはいままで述べた手順でうまく動いたのですがNASとRaspberryPiはライブラリーを読みに行くときにエラーで終了します。

エラーログを確認してもよく分かりません。すったもんだした挙句に新しいライブラリーを作って動画を一つずつ移動していき元のライブラリーと新しいライブラリーで試しました。ローラー作戦です。その結果すべての動画が問題なく新しいライブラリーで読み出せます。

そこが端緒となって分かりました。ライブラリー名が全角であること。かつフォルダーの階層がある場合はエラーとなります。全角でもフォルダー階層が無い場合はエラーになりません。

全角の名前でもスマホやタブレットではエラーになりません。またDLNAで接続した時もエラーにはなりません。

Emby for Kodiのパスの指定時、全角を処理できない可能性があります。これは仕様なのかもしれません。それかバグです。

よく見るとエラーログにもそのようなことが書かれていました。

対処としてKodiのためのユーザーを作成します。またエラーがでたライブラリーを半角名で同じものを作ります。そしてライブラリのアクセス権をKodiのためのユーザーには半角名のものをそれ以外のユーザーには全角のものを許可します。

-------------------------------------これで終わり--------------------------

当初、ANDROID TVのKodiでオープンな映画を楽しんでいました。EmbyのコンテンツはブラウザのEmbyで視聴していたのですがKodiプレーヤーの操作性が良いのでKodiでサーバーの動画を見始めました。

EmbyサーバーでDLNAサーバーを有効にしてKodiのDLNAクライアントで全く問題なく視聴できます。

ところが実家に行ったときはDLNAでは見れませんのでサーバー側にWebDAVサーバーを追加してKodiからアクセスさせました。

写真や音楽は極めて良好に再生してくれます。動画も短いものは快適でしたが長い動画の場合音声と映像のズレが激しく見るに堪えられなくなりました。

そのためにEmby for Android TVというアプリが用意されています。Emby Premiereは月$4.99です。これはこれで良いのですが諸般の事情により今回の試行錯誤となりました。今後KodiがV18になった時これまで通りに行くかは定かでありません。

-------------------------------Page END----------------------------

Serial Over IPによるSD330コントローラーのLAN化

Fri, 05 May 2017 19:08:00 +0900

はじめにお読みください。→当サイトのリンクと免責事項

現在SDD330コントローラはUSBにてパソコンにつないでいます。

SD330を遠隔で操作しようとするとSD330をコントロールしているPCにリモートアクセスして。そのPCのデスクトップより制御するようになります。

コントロールPCをリモートデスクトップから操作します。

これでも良いのですがコントロールPCを単なるシリアル通信のトンネルにして遠隔のPCから直接操作できるような仕組みを考えました。

コントロールPCにUSBインターフェースでSD330コントローラは繋がっています。

そこでコントロールPCでTCP/IPに変換し送信、遠隔のPCでTCP/IPからシリアル通信に変換しあたかもSD330コントローラが直接つながっているようにします。

コントロールPCのUSBインターフェースはUSB仮想COMポートとしていますが、遠隔のPCではLAN仮想COMポートになります。いわゆる

しかしこの方法には欠点があります。遅延の問題です。SD330コントローラからのデータは一旦コントロールPCのバッファに入ります。次にデータは送られて遠隔PCのバッファに入ります。SD330コントローラからは921.6kbpsで送出されます。PC間はLANですのでそれなりに早いです。遠隔PCの仮想COMポートはSD330コントローラに合わせ921.6kbpsです。

Windows の.NETのプログラムの作り方にも拠りますがどれくらいのレスポンスになるのでしょうか。

この遅延を嫌うならSD330コントローラの出口をUSBでなくシリアル出力にしてそこにメディアサーバー（Serial-TCP/IP）を付けます。そのままLANになります。

921.6kbpsをサポートしている製品で手ごろな価格なのがLantronix製デバイスサーバです。同社のXport-XEは3.3Vのシリアル通信ですので300～920Kbpsをサポートしています。多くのRS232Cタイプはラインドライバーの関係でほとんどが最高115k bpsです。これらの機器はMCUで処理しますのでWindows より格段に速くなります。また１：多が可能なので1台のPCから複数のシリアル機器を制御できます。

とりあえずVB.NETで簡単に作ってみます。

今回のソフトは、コントロールPCはサーバーとして先に起動し遠隔PC（クライアント）からの接続要求を待ちます。接続が確立したらTCP/IPの受信ループに入ります。TCP/IPが受信するとそのままシリアルにデータを送信します。

シリアルの方は受信イベントが発生の都度SD330コントローラから受信しそのままTCP/IPに送信します。

遠隔PCの方はクライアントなのでプログラム起動と同時に接続要求を出します。接続が確立したらTCP/IPの受信ループに入ります。TCP/IPが受信するとそのままシリアルにデータを送信します。

シリアルの方は受信イベントが発生の都度SD330コントローラから受信しそのままTCP/IPに送信します。

つまり全く同じ構成です。これは１：１の通信を想定しているからです。

コントロールPCは接続されているSerial機器と送受信しますが、遠隔PCの方はこのソフトでリモートPCからのデータをCOM4につなぎます。COM4は専有されますので他のソフトから読み書きできません。そこで2つのCOMポートが繋がっているようなドライバｰを用意します。今回はcom0comというドライバーを使いました。

このcom0comドライバは２つの仮想のＣＯＭポートをクロスケーブルで接続したように見せかけ、
片方の仮想ＣＯＭポートからもう一方の仮想ＣＯＭポートへ通信する事ができます。

COM4に送られたデータはCOM3にでます。COM3からのデータはCOM4に出てきます。そこでアナライザなどのコントロールソフトはCOM3を使用すればCOM4を経由してTCP/IP経由でリモートPCに行きSerial機器を制御できます。com0comについてはこちらを参考にしてください。

実際の動作での結果ですがRigExpert社のAA-54で試験したところコントロールPCからデータを受信し描画するまで100データで11秒でした。本プログラムを介し遠隔PCから同条件で行ったところ13秒かかりました。

AA-54は38.4kbpsで元々遅い感じですので全く気にならない遅延でした。

SD330コントローラの場合HF全域を測定しその8000データを受信し描画するまでの時間を計ったところどちらも6秒で遅延はありませんでした。Serialは921.6kBPSです。

バッファ制御など考えずに簡単に作った割には結構実用になると思います。

サーバー側のルーチンです。デザイン画面はForm1にLogboxという名前のListBoxが一つあるだけです。

またSerialPortコントロールを張り付けています。（SerialPort1）

Port番号とCOM番号はコード中に組み込んでいます。

Formは必要ないのですがデバックを兼ねています。

このルーチンはSD330用で１：１通信で尚且つ並列動作は無い、いわゆる半2重通信が前提です。

SerialもTCPもBinaryでRead、Writeしています。データの最大長は8kByteです。

サーバーはクライアントからの接続待ちでブロッキングしていて接続が完了すれば受信待ちになります。クライアントから切断要求がくれば接続待ちに戻ります。終了はありません。フォーム画面の✖で閉じない限り無限ループです。内部にてエラーが発生するとクライアントにシャットダウンを送信してFormを閉じて終了します。

言語はVB.NET （MS Visual Studio Express 2013 for Windows DESKTOP）です。

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

Option Strict On
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading

'-------------------------------------------------------------------------------------------------------------------
Class Form1
    Inherits System.Windows.Forms.Form
    Dim myStream As NetworkStream                 ' myStream は　受信のほか送信でも使うためグローバル
    Dim myS_Socket As Socket                            ' シャットダウンを送信するためグローバル

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim myThreads As Thread
        myThreads = New Thread(AddressOf serverSTART)    '接続待ち受信スレッド
        myThreads.IsBackground = True                   ' バックグランドスレッド MAINスレッド終了と共に終了
        myThreads.Start()                                           ' スレッド　スタート
        ' シリアルポートのオープン
        SerialPort1.PortName = "COM3"
        ' シリアルポートの通信速度指定
        SerialPort1.BaudRate = 921600
        ' シリアルポートのパリティ指定
        SerialPort1.Parity = IO.Ports.Parity.None
        ' シリアルポートのビット数指定
        SerialPort1.DataBits = 8
        ' シリアルポートのストップビット指定
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.ReadBufferSize = 10000
        ' シリアルポートのオープン
        SerialPort1.Open()
        SerialPort1.ReadTimeout = 3000
        LOGOUTPUT("COM3は開かれました")
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        SerialPort1.Close()
        LOGOUTPUT("COM3は閉じられました")
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub serverSTART()             '接続&受信待ちスレッド
        Dim mySocket As Socket
        '        Dim myS_Socket As Socket       ' シャットダウンを送信するためグローバル
        Dim myAddress As IPAddress
        Dim myPort As Integer
        Dim myEndPoint As EndPoint
        '        Dim myStream As NetworkStream        ' myStream は　受信のほか送信でも使うためグローバル
        Dim resBytes As Byte() = New Byte(10000) {}
        Dim resSize As Integer = 0
        Dim i_send As Integer
        Try
            mySocket = New Socket(AddressFamily.InterNetwork, _
                                    SocketType.Stream, ProtocolType.Tcp)
            LOGOUTPUT("ソケット作成")
            myPort = 45678
            myAddress = IPAddress.Any
            myEndPoint = New IPEndPoint(myAddress, myPort)
            mySocket.Bind(myEndPoint)
            LOGOUTPUT("バインド")
            mySocket.Listen(10)
            LOGOUTPUT("リッスン開始")
            LOGOUTPUT("")
            Do                                          '外側のDOループは接続待ちループ
                myS_Socket = mySocket.Accept()                'ブロッキングモードで Accept 接続の試行待ち
                LOGOUTPUT("クライアント接続")
                myStream = New NetworkStream(myS_Socket)
                Try
                    Do                                  '内側のDOループは受信待ちループ
                        '受信
                        resSize = myStream.Read(resBytes, 0, resBytes.Length) 'ブロッキングモードで Read 待ち
                        If resSize = 0 Then 'クライアントが切断
                            LOGOUTPUT("クライアントからシャットダウン要求")
                            Exit Do
                        End If
                        '************************ COM OUTPT **********************
                        '                                               TCPからCOMにデータを送信
                        i_send = 0
                        Do Until i_send = resSize
                            SerialPort1.Write(resBytes, i_send, 1)
                            i_send = i_send + 1
                        Loop
                        If resSize < 11 Then             '10BYTE以下なら電文をLOGに、それ以上はLENGSを
                            Dim i_c As Integer = 0
                            Do Until i_c = resSize
                                LOGOUTPUT("COM------->送信>> " & resBytes(i_c) & "=" & Chr(resBytes(i_c)))
                                i_c = i_c + 1
                            Loop
                        Else
                            LOGOUTPUT("COM------->送信LNG>> " & resSize.ToString)
                        End If
                        '******************************************************************
                        If resSize < 11 Then            '10BYTE以下なら電文をLOGに、それ以上はLENGSを
                            Dim i_c As Integer = 0
                            Do Until i_c = resSize
                                LOGOUTPUT("受信>> " & resBytes(i_c) & "=" & Chr(resBytes(i_c)))
                                i_c = i_c + 1
                            Loop
                        Else
                            LOGOUTPUT("受信LNG>> " & resSize.ToString)
                        End If
                    Loop
                    '終了処理
                    myS_Socket.Shutdown(SocketShutdown.Send)
                    LOGOUTPUT("クライアントへシャットダウン送信")
                    myS_Socket.Close()
                    LOGOUTPUT("Socket_Close　受信終了　次の接続を待つ")
                Catch ex As Exception
                    LOGOUTPUT(ErrorCodeofSocket(ex).ToString & ex.Message)
                    myS_Socket.Shutdown(SocketShutdown.Send)
                    LOGOUTPUT("クライアントへシャットダウン送信")
                    If Not IsNothing(myS_Socket) Then
                        myS_Socket.Close()
                    End If
                    LOGOUTPUT("Socket_Error　受信停止　次の接続を待つ")
                 End Try
            Loop
        Catch ex As Exception
            LOGOUTPUT("* 接続失敗再起動" & ex.Message)
            myS_Socket.Shutdown(SocketShutdown.Send)
            LOGOUTPUT("クライアントへシャットダウン送信")
            If Not IsNothing(myS_Socket) Then
                myS_Socket.Close()
                LOGOUTPUT("Socket.Close")
            End If
            If Not IsNothing(mySocket) Then
                mySocket.Close()
                LOGOUTPUT("Socket.Close")
            End If
            Form_Close()
        End Try
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Form_Close()
        Dim Cancel_Event_Args As New System.ComponentModel.CancelEventArgs()
        Application.Exit(Cancel_Event_Args)              'アプリケーション終了
        If Cancel_Event_Args.Cancel Then                  'アプリケーションの終了がキャンセルされたか調べる
            LOGOUTPUT("アプリケーション終了がキャンセルされました")
        End If
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Function ErrorCodeofSocket(ByVal ex As Exception) As Integer 'ソケットエラーコード解析
        If IsNothing(ex) Then
            Return -1
        ElseIf TypeOf ex Is SocketException Then
            Return CType(ex, SocketException).ErrorCode
        Else
            Return ErrorCodeofSocket(ex.InnerException)
        End If
    End Function
'Windows ソケットのエラーコード、値、および意味はこちら
'-------------------------------------------------------------------------------------------------------------------
    Private Delegate Sub D_Logupdate(ByVal str As String) '別スレッドからLOG書き込み

'-------------------------------------------------------------------------------------------------------------------
    Private Sub LOGOUTPUT(ByVal strr As String)
        If Me.InvokeRequired Then                                   '別スレッドか判定
            Me.Invoke(New D_Logupdate(AddressOf Logupdate), strr)   '別スレッドならデリゲート
        Else
            Logupdate(strr)
        End If
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Logupdate(ByVal str As String)          ' LOG書き出しルーチン
        SyncLock logBox
            logBox.Items.Add(str)
            logBox.TopIndex = logBox.Items.Count - 1
            logBox.Refresh()
        End SyncLock
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub SerialPort1_DataReceived(sender As Object, e As Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        '        LOGOUTPUT("EVENT_DataReceived")
        System.Console.Beep(440, 300)                   'COMデータ受信しTCPに送信
        Dim leng As Integer = 0
        Dim dat(10000) As Byte
        Try
            leng = SerialPort1.Read(dat, 0, dat.GetLength(0))

            TCP_DATA_SEND(dat, leng)            'クライアントにデータを送信する
            If leng < 11 Then                       '10BYTE以下なら電文をLOGに、それ以上はLENGS
                Dim i_c As Integer = 0
                Do Until i_c = leng
                    LOGOUTPUT("COM<-------受信>> " & dat(i_c) & "=" & Chr(dat(i_c)))
                    i_c = i_c + 1
                Loop
            Else
                LOGOUTPUT("COM<-------受信LNG>> " & leng.ToString)
            End If
        Catch ex As TimeoutException
            LOGOUTPUT("COM3ERR* " & ex.Message)
            SerialPort1.Close()
            myS_Socket.Shutdown(SocketShutdown.Send)
            LOGOUTPUT("クライアントへシャットダウン送信")
            Form_Close()
        End Try
        '************************************************************************
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub TCP_DATA_SEND(buffer() As Byte, size As Integer)        'クライアントにデータを送信する
        Try
            myStream.Write(buffer, 0, size)
            If size < 11 Then                       '10BYTE以下なら電文をLOGに、それ以上はLENGSを
                Dim i_c As Integer = 0
                Do Until i_c = size
                    LOGOUTPUT("送信>> " & buffer(i_c) & "=" & Chr(buffer(i_c)))
                    i_c = i_c + 1
                Loop
            Else
                LOGOUTPUT("送信LNG>> " & size.ToString)
            End If
        Catch ex As Exception
            LOGOUTPUT(ErrorCodeofSocket(ex).ToString & ex.Message)
            LOGOUTPUT("TCP送信エラー ")
            myS_Socket.Shutdown(SocketShutdown.Send)
            LOGOUTPUT("クライアントへシャットダウン送信")
            Form_Close()                        '
        End Try
    End Sub
End Class

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

続いてクライアント側のルーティンです。こちらもデザイン画面はForm1にLogboxという名前のListBoxが一つあるだけです。またSerialPortコントロールを張り付けています。（SerialPort1）

IP_ADDRESSとPort番号、COM番号はコード中に組み込んでいます。

クライアントが起動するとサーバーに接続要求をします。接続後は交信します。終了はFormの✖によってサーバーに切断要求を送り、返事のシャットダウンが来るとプログラムを終了します。サーバーの電文中にシャットダウンがあればFormを閉じ終了します。

通常は再度プログラムを起動すれば接続から始まります。

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

Option Strict On
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading

'-------------------------------------------------------------------------------------------------------------------
Class Form1
    Inherits System.Windows.Forms.Form
    Dim mySocket As Socket                  'セッションエンドの中でも使用のためグローバル
    Dim myStream As NetworkStream           'データの送信のためグローバル

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        SerialPort1.Close()
        TCP_CLOSE()
        SeesionEND()
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' シリアルポートのオープン
        SerialPort1.PortName = "COM4"
        ' シリアルポートの通信速度指定
        SerialPort1.BaudRate = 921600
        ' シリアルポートのパリティ指定
        SerialPort1.Parity = IO.Ports.Parity.None
        ' シリアルポートのビット数指定
        SerialPort1.DataBits = 8
        ' シリアルポートのストップビット指定
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.ReadBufferSize = 10000
        ' シリアルポートのオープン
        SerialPort1.Open()
        SerialPort1.ReadTimeout = 3000
        LOGOUTPUT("COM4は開かれCOM3と繋がりました")
        TCP_OPEN()                                  ' サーバーと接続受信スレッド起動
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub TCP_OPEN()
        Dim myThread As Thread
        Dim myAddress As IPAddress
        Dim myPort As Integer
        Dim myEndPoint As EndPoint
        Try
            mySocket = New Socket(AddressFamily.InterNetwork, _
                                    SocketType.Stream, ProtocolType.Tcp)
            LOGOUTPUT("ソケット作成")
            myAddress = IPAddress.Parse("192.168.1.249")
            myPort = 45678
            myEndPoint = New IPEndPoint(myAddress, myPort)
            mySocket.Connect(myEndPoint)
            LOGOUTPUT("接続")
            myStream = New NetworkStream(mySocket)
            '別スレッド
            myThread = New Thread(AddressOf ClientSTART)
            myThread.IsBackground = True                ' バックグランドスレッド MAINスレッドの終了と共に終了
            myThread.Start()                                        ' スレッドスタート
            LOGOUTPUT("受信スレッド起動")
        Catch ex As Exception
            If Not IsNothing(mySocket) Then
                mySocket.Close()
            End If
            LOGOUTPUT("* " & ex.Message)
            LOGOUTPUT("* 再起動してください")
            SeesionEND()
        End Try
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub TCP_CLOSE()
        mySocket.Shutdown(SocketShutdown.Send)            '送信の終了
        LOGOUTPUT("サーバーへシャットダウン送信")
        mySocket.Close()
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Sub ClientSTART()                     '受信
        Dim resBytes As Byte() = New Byte(10000) {}
        Dim resSize As Integer = 0
        Try
            Do
                resSize = myStream.Read(resBytes, 0, resBytes.Length)          'ブロッキング 'データ受信
                If resSize = 0 Then         'サーバー切断
                    LOGOUTPUT("サーバーからシャットダウン要求")
                    Exit Do
                End If
                '***************************************** COM DATA SEND
                '                                               TCPからCOMにデータを送信
　　　　　　SerialPort1.Write(resBytes, 0, resSize)
                '**************************************************************
                If resSize < 11 Then                                    '10BYTE以下なら電文をLOGに、それ以上はLENGSを
                    Dim i_c As Integer = 0
                    Do Until i_c = resSize
                        LOGOUTPUT("受信>> " & resBytes(i_c))
                        i_c = i_c + 1
                    Loop
                Else
                    LOGOUTPUT("受信LNG>> " & resSize.ToString)
                End If
            Loop
            LOGOUTPUT("受信スレッド終了")
            SeesionEND()
        Catch ex As Exception
            LOGOUTPUT(ErrorCodeofSocket(ex).ToString & ex.Message)
            SeesionEND()
        End Try
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Function ErrorCodeofSocket(ByVal ex As Exception) As Integer 'ソケットエラーコード解析
        If IsNothing(ex) Then
            Return -1
        ElseIf TypeOf ex Is SocketException Then
            Return CType(ex, SocketException).ErrorCode
        Else
            Return ErrorCodeofSocket(ex.InnerException)
        End If
    End Function
  'Windows ソケットのエラーコード、値、および意味はこちら
'-------------------------------------------------------------------------------------------------------------------
    Sub SeesionEND()                                 'セッション終了
        If Not IsNothing(mySocket) Then
            mySocket.Close()
            LOGOUTPUT("ソケットCLOSE")
        End If
        LOGOUTPUT("")
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Delegate Sub D_Logupdate(ByVal str As String) '別スレッドからLOG書き込み

'-------------------------------------------------------------------------------------------------------------------
    Sub LOGOUTPUT(ByVal strr As String)
        If Me.InvokeRequired Then                                   '別スレッドか判定
            Me.Invoke(New D_Logupdate(AddressOf Logupdate), strr)   '別スレッドならデリゲート
        Else
            Logupdate(strr)
        End If
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub Logupdate(ByVal str As String)          ' LOG書き出しルーチン
        SyncLock logBox
            logBox.Items.Add(str)
            logBox.TopIndex = logBox.Items.Count - 1
            logBox.Refresh()
        End SyncLock
    End Sub

'-------------------------------------------------------------------------------------------------------------------
    Private Sub SerialPort1_DataReceived(sender As Object, e As Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        System.Console.Beep(440, 300)                   'COMデータ受信しTCPに送信
        Dim leng As Integer = 0
        Dim dat(10000) As Byte
        Try
            leng = SerialPort1.Read(dat, 0, dat.GetLength(0))
        Catch ex As TimeoutException
            LOGOUTPUT("COM4ERR* " & ex.Message)
            SeesionEND()
        End Try
        '*********************************************************TCP DATA SEND
        Try
            'クライアントにデータを送信する
            myStream.Write(dat, 0, leng)
            If leng < 11 Then                       '10BYTE以下なら電文をLOGに、それ以上はLENGSを
                Dim i_c As Integer = 0
                Do Until i_c = leng
                    LOGOUTPUT("送信>> " & dat(i_c))
                    i_c = i_c + 1
                Loop
            Else
                LOGOUTPUT("送信LNG>> " & leng.ToString)
            End If
        Catch ex As Exception
            'エラー処理
            LOGOUTPUT("* " & ex.Message)
            SeesionEND()
        End Try
    End Sub
End Class

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

サーバールーチンですが当初TCPで受信しCOMにデータを送る時、クライアントと同じようにしていました。

　　resSize = myStream.Read(resBytes, 0, resBytes.Length) 'データ受信
　　 SerialPort1.Write(resBytes, 0, resSize) 'データ送信

シリアルが低速の場合は何の問題もありませんでしたが921.6KPSにしたら通信できない場合がでてきました。試行錯誤の末、次のように変更して事なきを得ました。サーバーのCOMへの通信はコマンドの送出で最長4BYTEです。1BYTEづつ送ってもレスポンスには影響ありません。

　　　　　　　　　 resSize = myStream.Read(resBytes, 0, resBytes.Length) 'データ受信

　　　　　　　　　i_send = 0
                        Do Until i_send = resSize
                            SerialPort1.Write(resBytes, i_send, 1)　　　　　　 '１BYTEづつ送信
                            i_send = i_send + 1
                        Loop

原因は分かりません。相手（Serial機器）のあることですので誰もがこのようにしてうまくいくか分かりません。

H265対応ＤＬＮＡクライアント

Wed, 19 Apr 2017 22:03:00 +0900

はじめにお読みください。→当サイトのリンクと免責事項

今まで取りためた動画はH264のMP4で保存してきました。画質、容量とも満足でしたがHDDの増設を繰り返すのが頻繁になってきたのでH265に変えました。1080Pから720Pにしても違いは分からないので圧縮率はH264(1080P)の1/3になりました。2時間の動画の容量はH265(720P)で2.6Gくらいになります。

この動画をAV-LS700のDLNAクライアント機能で見ていましたが、H264からH265にしたらサーバーでトランスコードして送ってくれます。一応見れるのですが早送り、巻き戻しができません。AV-LS700の仕様を見るとH265は非対応です。そこで市販のDLNAプレーヤーを調べるとIODATAやバッファローにはH265対応はありません。

結局安さと性能を両立するのはAndroidのTV_BOXになりました。

AmazonのFireTVでも良いのですが中華の安いものを探しました。１G RAM／8G ROMが低価格帯の標準ですがRAMは2Gは欲しいところです。ROMは外付けもできますので関係ありません。

RAM2Gで最安値のものはdocooler V11でした。Amazonで3970円です。

送られて来た物です。ACアダプタは日本仕様でした。

HDMIをテレビにつなぎ電気を入れるとAndroidが起動します。

AndroidのTV_BOXはAndroidのOSをいれたコンピュータです。出力がHDMI対応のモニター（家庭用テレビ）、キーボード・マウスも付けられますが付属のリモコンで操作します。入力はUSBのHDD、メモリカードなど、またLANとWifiがあるのでネットワーク上のデータ（Windows標準のファイル共有、DLNAサーバー上のファイル）が利用可能です。通常のAndroid端末のように好きなアプリを入れられます。

当初この値段で本当に2Gか疑っていましたが2Gありました。さらにAmazonサイトではOSバージョンが5.1でしたが来たのは6.0でした。またroot化もされていました。

TV_BOXがDLNAクライアントになると言っても、それ用のアプリを入れているからです。TV_BOXではたいがい数種のアプリがインストール済みです。DLNAクライアント機能があるネットワークプレーヤーソフトで有名なのはKODIというソフトです。おそらくすべてのTV_BOXにインストールされています。他にはYouTube などもインストールされています。

ホームはMboxランチャーというものでした。

今まで専用機（AV-LS700）でしたので単純操作で済みました。サーバーがEmbyなので、わざわざKodiのDLNA機能を使わなくともAndroidタブレットと同じEnby Androidをインストールしましたが、画面の大きさが変更できません。テレビに合わせてくれないのです。またタブレットが前提なのでタッチパネルかマウスでないと快適に使えません。その為この案はボツとなりました。調べるとEmby for Android TVというアプリがリモコンで操作しテレビにもフィットするらしいアプリであることが分かりました。しかしこちらは月700円くらい掛かります。月額ですよ！。

そこでAndroidのDLNAクライアントをいくつか試しましたが中々適当なものがありません。結局動画と音楽はKODIを使い画像はBubbleUPnP for DLNA/Chromecastを使います。

他にWOLのためにWol Wake on Lan Wanをそしてシャットダウン用にShutdownをそれぞれインストールしました。

出来上がったホーム画面です。ランチャーアプリはADW Launcher 2をインストールしています。

これでほぼリモコンだけで操作できAV-LS700なみに使えます。何と言ってもH265コンテンツで早送り、巻き戻しができます。動作もサクサク動いています。たまにYouTube を見たりブラウザを使っています。これらはさすがにマウスが必要で手持ちのLogicoolのM212のマウスだけ使っています。

このV11がアマゾンで2Gの最低価格と思っていましたがSAMMIX R95Sがキーボードタッチパッド付きで5699円ならこちらの方が安くなります。

リグの遠隔操作

Sun, 16 Apr 2017 14:05:37 +0900

はじめにお読みください。→当サイトのリンクと免責事項

このブログで無線機のリモートコントロールを書いてきましたが次のような構成でした。

このパターンでも良いのですがパソコンの本体のOSが変わるたびにそれまで使っていたソフトの検証を行い移行しなければなりません。WindowsXPから始まってVISTA、7､8､8.1、10ですよ。まったくMSの思うままに振り回されています。

これを防ぐにはRiｇを含めてコントローラを一体のハードにしてしまう。このハードとパソコンのインターフェースを超汎用（例えばHTTPなど）にしておけばクライアントも選ばす将来にわたって持続可能なシステムになります。

その一例がHAM STAR「Remort Rig Control Server」RRS-101/501です。これは更に進化しRRS-Piになりました。

右側のパソコンがRaspberry Pi です。このマイコンは世界で一番売れている教育用LINUXの組み込みタイプのマイコンです。

左側のクライアントはWEBにつながれば何でも構いません。
右側のパソコンはRRS-Piの場合Linuxですが組み込み用としてシステムを構成する部品として使っています。

そこで私もここはWindowsのパソコンを使うとしてシステムを構成する一部品とします。Windowsのアップデートなどは一切行わず単にインターフェースとして使います。テレビもキーボードも要らないので小型で低消費電力のパソコンを探しました。うまい具合にオクにEndeavorNP15が出品されていましたので購入しました。メモリ増設とSSDへの換装を行いました。大きさは20（幅）×173（高さ）×154（奥行）mm（突起部を除く）

出品された方がWindows10にアップしていたためそのまま使用します。ただしWindows10HOMEですので細工が必要になります。（後述）
全体の構成です。下記の内容中のTEAMSPEAK3はNETDUETTOに読み替えてください。

EndeavorNP15ですがコントローラですのですべてのソフトは自動で起動しなければなりません。

自動起動の項目は次の通りです。

      1、EndeavorNP15の遠隔起動
      2、EndeavorNP15の自動ログイン
      3、Riｇの遠隔起動
      4、HAM RADIO DELUXEのServerの自動起動
      5、Voipソフトの自動起動
      6、EndeavorNP15の遠隔シャットダウン
     　　（SSHデーモンの自動起動）
     7、Rigの遠隔OFF
     8、リモートデスクトップサーバー自動起動
   9、Windows　Updateの禁止
   10、Rig、アンテナの状態監視の起動

11、その他の設定

これらを実現するのにWindows10HOMEの標準の設定を変える必要があります。

上記の項目を順に検討します。

1、EndeavorNP15の遠隔起動

　これは常時ONでも構いませんが電気代、部品の消耗などを考えると必要なときにONし終了したらOFFするのが望ましいと考えられます。

PCを遠隔で起動するには2つの方法があります。通常はWOL機能を使う方法です。最近のPCはほとんどが対応しているため可能です。これはLANのインターフェースが常時通電されていて特殊な信号を受信すると本体を起動します。通常Wifiなどのデバイスはこの機能がないので無線LANで直接起動はできません。そこで一旦無線を有線に変換し本体のLANインターフェースにつなぐことで無線から起動できます。

もう一つの方法はBiosの設定で本体に100Vが供給されたらPCを起動するという機能を有効にします。

こうすると100Vが制御できればPCを起動できます。今回はWOLで行います。無線から有線LANへの変換は手持ちのPlanexのMZK-MF-300Nという機器です。コンバーターモードがあります。

2、EndeavorNP15の自動ログイン

　通常のWindows10の設定ではパスワードがあると起動後必ずログイン画面が出て来ます。そこでこれを自動ログインの設定に変更します。自動ログインしなくとも必要なソフトがサービスとして起動すれば全く問題ありません。上記の4、6、7、8はサービスとして自動起動するのでログインは必須ではありません。残りの5がログインしないと起動できません。

3、Riｇの遠隔起動

　当初PCの起動と同時にRigの電源をONにしていました。それはUSBの5Vを受けてリレーを動作させていました。これでも良いのですがのっぴきならない理由で別に制御することとしました。秋月さんから最後の1個と思われるIP POWER 9202が購入できたのでWEBからRigの電源をON/OFFしています。この電源コントローラで非常時の強制電源断も行えるようにしました。

4、HAM RADIO DELUXEのServerの自動起動　

　バージョン5.23.36がWindows10でも問題なく動きましたのでそのまま使っています。このHRDはよくできたソフトでサーバークライアントモデルが構築できます。2台のPCで片方をサーバーとして起動しもう片方をクライアントとしてサーバーにつながっているRigをコントロールできます。サーバーのほうはバックグランドで処理されるので画面には現れません。設定も簡単でいくつかのサイトに出ています。

このサーバークライアント方式のほかにはWindowsのリモートデスクトップ機能でクライアントPCからサーバーPCに接続しサーバーPCの画面、キーボードマウスをクライアントからあたかもその場にいるように制御できます。この機能を使ってサーバーPCのHRDを起動し同じように制御できます。この場合サーバーPCのHRDはサーバー設定をする必要がありません。この方式だとリモートデスクトップが可能なデバイスならRigをコントロールできます。現在マイクロソフトが提供しているソフトはWindowsのほかにAndroidスマホ・タブレット、iPhone・iPad、Macがあります。他にLinux にもソフトがあります。

ところが今回のように非力なサーバーPCですと遅延が気になります。またリモートデスクトップで音声のやり取りも可能ですがそもそもWindows10HOMEにはリモートデスクトップ機能がありません。無理やり入れるのですが、そのため音声は片方向のみOKになりました。遅延の問題と音声の問題からHRDのサーバークライアントのほうが快適です。となりますと遠隔制御する側のデバイスはWindowsPCまたはWindowsタブレットになります。リモートデスクトップならデバイスは色々使えます。どちらを選ぶかは隔制御する側のデバイス次第ということになります。

5、Voipソフトの自動起動

　4でも書きましたがRigのスピーカ出力とRigのMIC入力の音声をどうやってやり取りするか、リモートデスクトップ機能ではRigのスピーカをクライアントで聞けましたがマイクの音声を送れませんでした。そこで無料通話アプリ（ボイスチャット）の登場です。SkypeをMSが吸収したこともあって日本ではLineと双璧となっていますね。この手のソフトは次のよう分類されます。参考サイト

　　　　　P2P方式----------相手と直接接続され通話します。

　　　　　サーバー方式---相手も自分もサーバーに接続しサーバーを介して通話します。

サーバー方式にはさらに自分でサーバーを立ち上げれるもの、指定のサーバーのみのものとあります。

今回は自分でサーバーを立てられ自動起動し遅延が少ないものということでTeamSpeak3を第一候補として検討しました。他にはYAMAHAのNETDUETTOがあります。オンラインで音楽セッションを組んで演奏できるソフトで遅延が少なく使い勝手がよいです、サーバーはYAMAHAのもので1回6時間以内ですが残念なことに自動で相手に接続（ルームに入ること）ができません。

Mumbleも試しましたが設定が多すぎて使いこなせませんでした。自分で立てたサーバーも基本公開されるのでパスワードの設定やチャンネルの設定が欠かせません。ある時、口笛が聞こえてきてビックリしたことがあります。他の人が私のサーバーを使いチャットしようとしていたことに後で気づきました。相手も無線機の音ばかりで驚いたのではないでしょうか。

TEAMSPEAK3のサーバーの設定はいろいろなサイトで書かれています。

その後TEAMSPEAK3を使ってみると遅延はないのですがALC機能が悪さしてAMでも時々音声が途絶えます。レベルをTEAMSPEAK3が勝手に変えていきます。FMなどは元々スケルチが効いているのであまり関係ありませんがAMやSSBでは相当違和感です。SkypeやMumbleなどもALC機能が付きます。

そこでALC機能がないYAMAHAのNETDUETTOになりました。こちらはサーバーはYAMAHA社のものを使いますのでクライアントのみになります。

ただし、自動でYAMAHAのサーバーのルームに接続できません。やむを得ずマウス自動クリックソフトを使います。例えばTinyTaskかTinyTaskPortableです。これはクリック動作を記録し実行ファイルを作成できます。これらのソフトで指定個所をクリックする実行ファイルを作りバッチファイルでNETDUETTOを起動した後タイマーを入れ自動クリックの実行ファイルを実行します。

6、EndeavorNP15の遠隔シャットダウン

　WOLで起動したEndeavorNP15をどうやってシャットダウンするか。ルーターを超えて外部からでもシャットダウンできるようにするためいろいろ試しましたが結局SSHに落ち着きました。PCをリモートデスクトップでつないでそこからシャットダウンさせればそれでも良いのですがシャットダウンのためだけにリモートデスクトップに接続するのはどうかと思います。Windows10にはTelenetのデーモンはあります。今どきは平文対応のTelenetは時代遅れです。幸いにもWindows用のSSHデーモンが公開されていますので導入します。

SSHクライアントはTeraTermが常套なのですがマクロがうまく動きません。Win32 OpenSSHとの相性が悪いと勝手に決めつけています。毎回コンソールからシャットダウンコマンドを打ちこめばいいのですがあまり能がないのでマクロを組んだのですが撃沈しました。気を取り直してPuttyというクライアントソフトを導入しましたらシャットダウンコマンド1個だけならマクロを組まなくとも自動でできました。

もし、8のリモートデスクトップを起動できればそこからPCはシャットダウンできます。また前術のYAMAHAのNETDUETTOをルームに接続するのもリモートデスクトップを起動できればそこから手動で接続できます。しかしHRDをサーバークライアントで起動しているのにわざわざリモートデスクトップを立ち上げるのはどうかと思い5、Voipソフトの自動起動、6、PCの遠隔シャットダウンを試しています。

7、Rigの遠隔OFF

　3、Riｇの遠隔起動と同じでWEBからコントロールします。Rigの電源はWEBからのコントロールだけでなくRigが送信状態で電源をコントロールできなくなった時、遠隔地にいた場合何ともなりません。FT897Dには連続送信のタイムアウト機能もありますが念のため温度プロテクション回路を付けました。これはRigの終段のヒートシンクの温度を検出して強制的にRigの電源を落とします。これは保持されますのでリセットボタンを押さない限り再開できません。

8、リモートデスクトップのサーバー自動起動

　このシステムの泣き所ですがアンテナのSD330をコントロールするにはリモートデスクトップから行う必要があります。VB.NETで作ってありますがサーバークライアント型に作り替えれば良いのですが後々に取っておくとして今は手間でもリモートデスクトップから行います。

Windows10HOMEにはリモートデスクトップ機能はありませんので無理やり入れます。無理やり入れたせいか分かりませんがウインドウズボタン（画面の左下）から電源を選択するとシャットダウン、再起動、切断という項目が現れます。（Windows10PROのリモートデスクトップの場合、ここには切断のみらしい。）これ幸いにこのボタンからでもシャットダウンできます。

9、Windows　Updateの禁止

　このEndeavorNP15はコントローラですので勝手にアップデートされては困ります。ファームウエアーの更新はあくまでも管理者の意思によって行われなければ管理できません。そこでWindows Updateを止めたいのですがWindows10HOMEには止める選択肢が出て来ません。またもや無理やり止めます。

これで安心して操作できます。気が向いたらアップデートをかけますが、現状動いているのでこのままで全く問題ありません。このEndeavorNP15は部品ですから。合わせてマイクロソフトに操作情報を送るのはやめましょう。

10、Rig、アンテナの状態監視の起動

　さて、理論上はこれでシステムとして動作するはずですが何らかのアクシデントが発生した場合、その検出ができないと手が打てません。何を心配しているかと言うとRigが熱源となって火災につながる可能性があるからです。あるいはRigが発する高周波が緊急無線等に影響を与え人命にかかわるような事態がになりかねないからです。

そこで、EndeavorNP15とは関係なくWEBカメラで監視します。手持ちにパナソニックのC11とC111がありましたので使ってみました。C11のActiveXはすでに期限切れで使えません。ところがWindows10になってIEからEdgeになったお陰でMotionJPEG、MPEG4がActiveXなしで見れるようになりました。復活です。（C111の音の取り込みはActiveXが必要です）FirefoxでもMjpegだと見れます。パン・チルトも動きますがズームと音はだめです。

C11でRigとEndeavorNP15のパネルのLEDを、C111でSD330を見ています。そのほかにLiveCapture3というソフトでRigの画面を見ていましたが結局HRDと同じなので止めました。

11、その他の設定

　遠隔で操作するには自宅のPC等がインターネットを使って操作できるようにブロードバンドルーターに設定しなければなりません。特にWOLでPCを起動するにはその機能があるルーターにしなければなりません。当初コレガのAP（Wifiのアクセスポイント）を使っていましたが、うまく動かず調べたら対応していませんでした。ルーターを超えてやって来るマジックパケットをブロードキャストできるか、またはLAN側にコマンドでマジックパケットが出せるかの二通りの方法があります。対応しているルーターはNTT、YAMAHA、バッファロー、Aterm（NEC)です。NTTとYAMAHAはブロードキャストを転送できるタイプです。NECはルーターの設定画面で指定したPCを起動するマジックパケットをLAN側に送出します。バッファローはARPテーブルにあるMACアドレスに対してマジックパケットを送出します。

コレガがダメなのでバッファローの該当ルーターを試験しましたが、ARPテーブルが5分位でクリアされうまく動かない時のほうが多かったです。そこでARPテーブルでなくターゲットを指定できるNECのAtermにしました。今度はうまく動いてくれました。NECの場合、設定画面をWebブラウザで表示し操作します。ちょっと危険な気もしますがYAMAHAは高価で手がでません。それに有線です。NTTのHGWは無線もあり、WebブラウザでなくWOLソフトで操作します。これは魅力なのですがフレッツ光の方、向けですね。

その他ルーターに穴を開ける必要があります。各プロトコルのポートは標準では危ないのですべて変えます。該当のソフトは下記の通りです。ポート番号は初期値です。穴を開けるにはルーターのポートマッピングで行います。NETDUETTOはルータのUPnP機能を使いますのでポート開放は必要ありません。

　　　ソフト　　　　　　　　　　ポート番号　　　　　　　　　　用途

　　　SSH　　　　　　　　　　22/TCP　　　　　　　　　　　　　PCのリモートコントロール（シャットダウン）用

　　　HRDサーバー　　　　7805TCP 　　　　　 Rigのコントロール用

　　　リモートデスクトップ　3389/TCP　 SD330のコントロール用

　　　IP POWER 　　　 80/TCPまたは7070/UDP WEBによるRigの電源コントロール　　　　　　　

WOL　　　　　　　　　　NTTは7779/UDP　Atermの場合8080/TCP　　PCの起動用

WEBカメラC11　　　　80/TCP　 Rigの監視

　　　WEBカメラC111　　　80/TCP アンテナの監視

12、送信も遠隔で行う場合

　送信も遠隔で行えるようになりました。しかしお上の許可を得なければなりません。幸い諸先輩が道を開いてくださったので今は届けるだけです。電子申請なら簡単に申請（JL1JVTさんのページ）できます。

その際必要になるのが「工事設計として要件に適合することを説明した書類」です。

JARLのページ、ICOMのページ、JL1JVTさんのページ,JF1MVFさんのページを参考に作ってみました。（ただし申請してませんのでご使用は自己責任で。）

Wordでほしい方はHRDのサーバークライアント編がこちら　、リモートデスクトップ編がこちら

下記申請内容中のTEAMSPEAK3はNETDUETTOに読み替えてください。

サーバーにアクセスが無くなったら自動でシャットダウン

Thu, 23 Feb 2017 14:18:55 +0900

はじめにお読みください。→当サイトのリンクと免責事項

サーバーは基本常時オンが通常と思いますが、電気代がもったいないので常時オフとします。

サーバーのダウンはクライアントのアクセスが無くなった後サーバー自身がシャットダウンすることとします。

基本はハードディスクのアクセスを管理してアクセスのない時間が10分を超えたらシャットダウンします。

VB.NETで作りますがサービスとして開発するには無償のVS Express2013 for DesktopではWindowsサービステンプレートが出てきません。仕方がないのでコンソールアプリケーションで開発しタスクスケジューラでPC起動時に実行するようにします。

コンソールアプリケーションのソースです。

Imports System
Imports System.IO
Imports System.Text
Module Module1

    Dim stop_code As Integer = 0
    Sub Main()
        'コンピュータ名
        '"."はローカルコンピュータを表す
        'コンピュータ名は省略可能（省略時は"."）
        Dim machineName As String = "."
        'カテゴリ名
        Dim categoryName As String = "PhysicalDisk"
        'カウンタ名
        Dim counterName As String = "Disk Transfers/sec"
        'インスタンス名
        Dim instanceName As String = "2 K: L:"

        'PerformanceCounterオブジェクトの作成
        Dim pc As New System.Diagnostics.PerformanceCounter( _
            categoryName, counterName, instanceName, machineName)
        TextWite()

        Do
            TextRead()
            If pc.NextValue() * 1000 <> 0 Then
                TextWite()
            End If

System.Threading.Thread.Sleep(10)
Loop Until stop_code = 1

        End
    End Sub
    Public Sub TextWite()
        Dim fileName As String = "C:\TEMP\ShutDownCounter.txt"
        'ファイルを開く
        Dim fs As New System.IO.FileStream(fileName, _
            System.IO.FileMode.Open, _
            System.IO.FileAccess.Write, _
            System.IO.FileShare.ReadWrite)
        'FileStreamを基にしたStringReaderのインスタンスを作成
        Dim enc As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding("shift_jis")

'************************************ ここからは単に時刻の固定長テキストを作っている
        Dim dNOW As System.DateTime = System.DateTime.Now
        Dim syesre_ As String
        Dim smanth_ As String
        Dim sday_ As String
        Dim shour_ As String
        Dim sminute_ As String
        Dim ssecnd_ As String
        Dim smanth As String
        Dim sday As String
        Dim shour As String
        Dim sminute As String
        Dim ssecnd As String
        Dim sdatetime As String

        syesre_ = dNOW.Year.ToString
        smanth_ = dNOW.Month.ToString
        sday_ = dNOW.Day.ToString
        shour_ = dNOW.Hour.ToString()
        sminute_ = dNOW.Minute.ToString
        ssecnd_ = dNOW.Second.ToString
        smanth_ = "0" & smanth_
        sday_ = "0" & sday_
        shour_ = "0" & shour_
        sminute_ = "0" & sminute_
        ssecnd_ = "0" & ssecnd_
        smanth = smanth_.Substring(Len(smanth_) - 2, 2)
        sday = sday_.Substring(Len(sday_) - 2, 2)
        shour = shour_.Substring(Len(shour_) - 2, 2)
        sminute = sminute_.Substring(Len(sminute_) - 2, 2)
        ssecnd = ssecnd_.Substring(Len(ssecnd_) - 2, 2)
        sdatetime = syesre_ & "/" & smanth & "/" & sday & " " & shour & ":" & sminute & ":" & ssecnd
'******************************************************************************

        Using sw As New System.IO.StreamWriter(fs, enc)
            sw.Write(sdatetime)
        End Using
    End Sub
    Public Sub TextRead()
        Dim s As String

        Dim diffmin As Integer
        '読み込むファイルの名前
        Dim fileName As String = "C:\TEMP\ShutDownCounter.txt"
        'ファイルを開く
        Dim fs As New System.IO.FileStream(fileName, _
            System.IO.FileMode.Open, _
            System.IO.FileAccess.Read, _
            System.IO.FileShare.ReadWrite)
        'FileStreamを基にしたStringReaderのインスタンスを作成
        Dim enc As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding("shift_jis")
        Using sr As New System.IO.StreamReader(fs, enc)
            s = sr.ReadToEnd()
        End Using
        Dim c1 As Char = s(0)
        If s(0) = "S" Then
            stop_code = 1
        Else
            Dim dt1 As DateTime = DateTime.Parse(s)

            diffmin = DateDiff("n", dt1, Now)
            If diffmin > 9 Then
                stop_code = 1
                Dim psi As New System.Diagnostics.ProcessStartInfo()
                Dim p As Process
                psi.FileName = "shutdown.exe"
                'コマンドラインを指定
                psi.Arguments = "/s"
                'ウィンドウを表示しないようにする
                '               psi.UseShellExecute = True
                psi.CreateNoWindow = True
                p = Process.Start(psi)

            End If
        End If
    End Sub
End Module

ご覧のようにPerformanceCounterを使っています。10mSごとに見に行きDisk Transfers/secがゼロでなければアクセス有と判断してC:\TEMP\ShutDownCounter.txtに時刻を書き込みます。見ているHDDは2 K: L:でこれにはEmbyサーバーのコンテンツがあります。

当初10mSより長かったのですが、写真を閲覧している時など検出できない時がありました。動画の再生なら常にアクセスしていますがMP3の再生ではかなり減り、写真などは1回のアクセスで全写真を読み込んでいると思われるほど少ないです。

########################################################################################

ところでEmbyサーバーですがコンテンツは2 K: L:のハードディスクにありますが、トランスコードが始まると2 K: L:のハードディスクには行きません。該当コンテンツのフォーマットを変更し終えればアプリが使っているキャッシュにフォーマット変更後のコンテンツが蓄えられます。以降そのキャッシュにアクセスしてデータを送り出します。フォーマットの変更中はCPU100%です（Intel　QSVを使用すれば60%くらい)が完了すればCPU使用率は下がってきます。

トランスコードが行われるのは例えばDLNAプレーヤがH264対応でコンテンツがH265の場合とコンテンツの解像度を落として送信する場合です。例えばクライアント側で1080Pから720Pにした場合などです。

########################################################################################

後述しますが別プログラムでもC:\TEMP\ShutDownCounter.txtに読み書きします。そのため競合の問題が出たためSystem.IO.FileShare.ReadWriteとして共有ファイルにしました。

このコンソールアプリをタスクスケジューラでPC起動時実行するように設定します。

さて、このサーバーマシンですが日常使いでもあります。何もしないでいると10分後には勝手にシャットダウンします。これでは困るのでログインしたらシャットダウンする前にC:\TEMP\ShutDownCounter.txtを更新するアプリを作成し、スタートアップにいれてログインと同時に起動します。

こちらは1分ごとにC:\TEMP\ShutDownCounter.txtを見に行きます。サーバーへのアクセスが無くなって4分したら黄色に7分したら赤になります。8分経ったらC:\TEMP\ShutDownCounter.txtの値を下のTextBoxに退避して、新たに現在時刻をC:\TEMP\ShutDownCounter.txtに書き込みます。

これを繰り返すことで10分のシャットダウンを免れています。

もしEmbyのコンテンツにアクセスがあれば警告音で知らせます。この時全ての色は白になります。

PCでの作業が終わってログアウトする時に色がついていれば最低でも4分間はサーバーへのアクセスが無かったと判断されますのでシャットダウンで終了しても構いません。もし全てが白だったらどなたかがサーバーにアクセスしている可能性もあるのでサインアウトします。サーバーへのアクセスが無くなれば10分後にシャットダウンします。

VB.NETのソースです。

Imports System.IO
Imports System.Text
Imports System.Threading

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim diffmin As Integer
        Dim ts1 As New TimeSpan(0, 0, 2, 0)
        Timer1.Interval = 60000
        Timer1.Start()
        Button1.BackColor = Color.White
        Button2.BackColor = Color.White
        Button3.BackColor = Color.White
        Button4.BackColor = Color.White
        '読み込むファイルの名前
        Dim fileName As String = "C:\TEMP\ShutDownCounter.txt"
        Dim s As String
        'ファイルを開く
        Dim fs As New System.IO.FileStream(fileName, _
            System.IO.FileMode.Open, _
            System.IO.FileAccess.Read, _
            System.IO.FileShare.ReadWrite)
        'FileStreamを基にしたStringReaderのインスタンスを作成
        Dim enc As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding("shift_jis")
        Using sr As New System.IO.StreamReader(fs, enc)
            s = sr.ReadToEnd()
        End Using
        Dim dt1 As DateTime = DateTime.Parse(s)
        diffmin = DateDiff("n", dt1, Now)
        If diffmin > 30 Then
            Dim dt2 As DateTime = Now - ts1
            s = dt2.ToString

           TextWite(dt2)
        End If
        TextBox1.Text = s
    End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim s As String

Dim dt1 As DateTime = datetime.Parse(s)

diffmin = DateDiff("n", dt1, Now)
If diffmin < 1 Then

            Button2.BackColor = Color.White '外部アクセスがあり初期状態にする
            Button3.BackColor = Color.White '外部アクセスがあり初期状態にする
            Button4.BackColor = Color.White '外部アクセスがあり初期状態にする
            Button1.BackColor = Color.White   '外部アクセスがありブリンクする
            System.Threading.Thread.Sleep(1000)
            System.Media.SystemSounds.Beep.Play() '外部アクセスがあり警告音鳴動
            System.Threading.Thread.Sleep(1000)
            System.Media.SystemSounds.Beep.Play()
            System.Threading.Thread.Sleep(1000)
            System.Media.SystemSounds.Beep.Play()

        End If
        If diffmin > 3 Then
            Button1.BackColor = Color.Yellow
        End If
        If diffmin > 6 Then
            Button1.BackColor = Color.Red
        End If
        If diffmin > 7 Then

            If Button2.BackColor = Color.White Then
                Button2.BackColor = Color.Blue
            Else
                If Button3.BackColor = Color.White Then
                    Button3.BackColor = Color.Blue
                Else
                    If Button4.BackColor = Color.White Then
                        Button4.BackColor = Color.Blue
                    Else

Button3.BackColor = Color.White
Button4.BackColor = Color.White

                    End If
                End If
            End If

            Button1.BackColor = Color.White
            TextBox2.Text = TextBox1.Text
            TextWite(Now)

        End If
    End Sub
    Public Sub TextWite(datetime_ As Date)
        Dim fileName As String = "C:\TEMP\ShutDownCounter.txt"
        'ファイルを開く
        Dim fs As New System.IO.FileStream(fileName, _
            System.IO.FileMode.Open, _
            System.IO.FileAccess.Write, _
            System.IO.FileShare.ReadWrite)
        'FileStreamを基にしたStringReaderのインスタンスを作成
        Dim enc As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding("shift_jis")

'************************************* ここからは単に時刻の固定長テキストを作っている
        Dim syesre_ As String
        Dim smanth_ As String
        Dim sday_ As String
        Dim shour_ As String
        Dim sminute_ As String
        Dim ssecnd_ As String
        Dim smanth As String
        Dim sday As String
        Dim shour As String
        Dim sminute As String
        Dim ssecnd As String
        Dim sdatetime As String

        syesre_ = datetime_.Year.ToString
        smanth_ = datetime_.Month.ToString
        sday_ = datetime_.Day.ToString
        shour_ = datetime_.Hour.ToString()
        sminute_ = datetime_.Minute.ToString
        ssecnd_ = datetime_.Second.ToString
        smanth_ = "0" & smanth_
        sday_ = "0" & sday_
        shour_ = "0" & shour_
        sminute_ = "0" & sminute_
        ssecnd_ = "0" & ssecnd_
        smanth = smanth_.Substring(Len(smanth_) - 2, 2)
        sday = sday_.Substring(Len(sday_) - 2, 2)
        shour = shour_.Substring(Len(shour_) - 2, 2)
        sminute = sminute_.Substring(Len(sminute_) - 2, 2)
        ssecnd = ssecnd_.Substring(Len(ssecnd_) - 2, 2)
        sdatetime = syesre_ & "/" & smanth & "/" & sday & " " & shour & ":" & sminute & ":" & ssecnd
'*****************************************************************************

        Using sw As New System.IO.StreamWriter(fs, enc)
            sw.Write(sdatetime)
        End Using
    End Sub
End Class

当初はアクセスが無くなり30分後にシャットダウンするように作ったのですがアクセス終了後15分くらいで1回アクセスがあります。おそらく電源オプションでHDD電源を切るを20分に設定しているためではないかと考えています。結局30分に設定しても45分から50分くらい経ったあとでシャットダウンします。

10分に設定すればそれらの合間をぬって落ちてくれます。

PCを使っていてもkまたはLのドライブにアクセスがあれば警告音がでますので一耳瞭然です。

narichan

スマートソケットをスマートプラグに改造

SDRで作るデジタルトランシーバー その６

SDRで作るデジタルトランシーバー その５

SDRで作るデジタルトランシーバー その４

SDRで作るデジタルトランシーバー その３

SDRで作るデジタルトランシーバー その２

SDRで作るデジタルトランシーバー その１

ASUSTORのNASからKODIが無くなった その３（LibreELECを動かす

ASUSTORのNASからKODIが無くなった その２

ASUSTORのNASからKODIが無くなった その１

Kodi Emby Beta Addonー大きいテレビでEmbyを見る

Serial Over IPによるSD330コントローラーのLAN化

H265対応ＤＬＮＡクライアント

リグの遠隔操作

サーバーにアクセスが無くなったら自動でシャットダウン

SDRで作るデジタルトランシーバーその６

SDRで作るデジタルトランシーバーその５

SDRで作るデジタルトランシーバーその４

SDRで作るデジタルトランシーバーその３

SDRで作るデジタルトランシーバーその２

SDRで作るデジタルトランシーバーその１

ASUSTORのNASからKODIが無くなったその３（LibreELECを動かす

ASUSTORのNASからKODIが無くなったその２

ASUSTORのNASからKODIが無くなったその１