常連

Vorzeというメーカーのとある高級家電がシリアル通信ができると知り、先日購入し、試しにUnityから動かしてみようとしたところうんともすんとも言わない状態で困っております。

調べたところ、Arduino等を活用するためUnityでシリアル通信をする場合、よく「受信ができない（遅い）」といった相談があるようで、そちらの解消方法も一通り試してはみたのですが、現状は変わらず送信も受信もできていない状況で、具体的には、ポートのオープンや送信については特にエラーも何らかの動作も起きず、受信についてはいつまで経っても受信ができずフリーズするのでタイムアウト時間を設けて初めて「System.TimeoutException: The operation has timed out.」を吐きます。
Unityではなく、有志の方が開発した別のプログラムではCOM3で接続が確立され送信と動作ができていましたので、家電側の不具合ではないような気がします。

何か考えられる原因はありますでしょうか？
皆様のお知恵を拝借できれば幸いです。よろしくお願いいたします。

Windows10
Visual Studio 2017
次の３つのバージョンで試してみました。
Unity2018.4.36f1
Unity2019.4.21f1
Unity2021.1.0b8
また、
BuildSettingsで「PC,Mac&Linux Standalone」 ⇒ 「Universal Windows Platform」へ
PlayerSettingsで「Api Compatibility Level」 ⇒ 「.NET 4.x」へ
COMポートの番号はデバイスマネージャーで確認済み（COM3）です。
その他、
試しにデバイスマネージャーからCOMポートの番号を変えてみたり、受信・送信バッファーを下げたりしましたが変化はありませんでした。


```
using System.Collections;
using System.Collections.Generic;
using System.IO.Ports;
using UnityEngine;


public class vorze : MonoBehaviour
{

    private string[] ports;
    private SerialPort port;

    private string portName;
    private int baudRate;
    private int dataBits;

    private byte pistonPosition;
    private byte pistonSpeed;
    
    private byte[] data;
    private byte[] data1;


    // Start is called before the first frame update
    void Start()
    {
        //ports = SerialPort.GetPortNames();
        //Debug.Log(ports);

        Open();
    }

    // Update is called once per frame
    void Update()
    {
        
    }

    private void OnDestroy()
    {
        port.Close();
        port.Dispose();
        Debug.Log("end");
    }

    void Open()
    {
        portName = "COM3";
        baudRate = 9600; //19200
        dataBits = 8;

        port = new SerialPort(portName, baudRate, Parity.None, dataBits, StopBits.One);
        port.Open();
        //port.DtrEnable = true;
        //port.RtsEnable = true;
        //port.ReadTimeout = 100;
        //port.WriteTimeout = 100;
        
        pistonPosition = 100;  // 0~200
        pistonSpeed = 10;  // 0~30(60)
   
        data = new byte[]{ 0x03, pistonPosition, pistonSpeed };

        try
        {


            if (port.IsOpen)
            {
                port.Write(data, 0, data.Length);

                /*
                data1 = new byte[] { 0xF0, 0x01, 0x00 };
                port.Write(data1, 0, data1.Length);
                var result = port.ReadByte();           
                Debug.Log(result);
                */
            }
        }
        catch (System.Exception e)
        {
            Debug.Log(e);
        }
        finally
        {
            //port.Close();
            //port.Dispose();
        }


    }
}
```

Unityでシリアル通信（送信と受信）ができない

### 前提・実現したいこと
初めて機器計測を行う者です。
VISA-COMを用いて、VBAでADCMT社の直流電源装置を動かそうとしています。
測定器との通信を確認する段階で、エラーが発生してしまいます。



### 発生している問題・エラーメッセージ
RM.OPENの部分でエラーが出て、測定器との通信が取れません。

エラーメッセージ
HRESULT=80040011

### 該当のソースコード


Sub ボタン1_Click()

 Dim RM As New VisaComLib.ResourceManager
 Dim DMM As New VisaComLib.FormattedIO488
 Set DMM.IO = RM.Open("GPIB0::1::INSTR")
 DMM.WriteString "*IDN?"
 Cells(1, 1) = DMM.ReadString()
 DMM.IO.Close
 Set DMM = Nothing
 Set RM = Nothing

End Sub


### 試したこと
Keysight Connection Expartでは*IDN?が返ってくるため、計測機器との通信は取れています。
また、別のPCでは問題なくVBAでプログラムを走らせることができます。
そのため、私のPCの環境が原因だと思っているのですが未だに不明です。
![イメージ説明](86989a0720a9f4d8ed64be2028c322f2.jpeg)

### 補足情報（FW/ツールのバージョンなど）
Excelは32bit環境です。
VISA-COMはKeysight社からダウンロードしたのものを参照しています。
Program Files (x86)\IVI Foundation\VISA\VisaCom\GlobMgr.dll
![イメージ説明](3b90d6583f8b4746b645c47eca0ff633.jpeg)

また、GPIBではなくUSBで直流電源装置を動かすことはできます。
ドライバ(ausb.bas)を使用して、VBA上のプログラムを走らせることは可能です。

VISA-COMを用いた機器計測時における実行時エラーの対処

###環境
■  Windows7Pro 32bit
■ Visualstudio 2010　professional
■ Excel2016

### 経緯


私は普段.net環境からExcelを呼び出す場合にはClosedXMLを使用しています。
実務でCOMを使用したエクセルプロセス解放に悩まされたため、ライブラリを使用することに決めていました。


ただ、「突き詰めよう」との気持ちが突然芽生え、こちらのサイトにある方法を試してみる事にしました。

以下のサイトにCOMの正しい解放の仕方がアップされていました。
[Excelファイルを C# と VB.NET で読み込む "正しい" 方法](https://qiita.com/midori44/items/acab9106e6dad9653e73)

リンク先のソースを参考に以下のソースを作成しました。
プロセスの確認はタスクマネージャーから行います。

■非define時
0. 100回ブックをオープンする
0. ブックを保存する

■define時
0. 100回ブックをオープンする。
0. 一番左端のセルにABCDEFを入力する
0. ブックを保存する





```c#
//#define __VALUE_SET__

using System;
using System.IO;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;

namespace ConsoleApplication1
{
    class Program
    {


        
        static void Main(string[] args)
        {
            
            for (int i = 1; i<=100; i++)
            {
                int no = i % 6 + 1;

                string fileName = Path.Combine(@"c:\sample", no.ToString() + ".xlsx");
                Console.WriteLine(fileName);

                // ｴｸｾﾙｵｰﾌﾟﾝ
                OpenExcel(fileName);
            }
        }



        
        private static void OpenExcel(string fileName)
        {
            var excelApplication = new Microsoft.Office.Interop.Excel.Application();

            try
            {
                Workbooks workbooks = excelApplication.Workbooks;

                try
                {
                    Workbook workbook = workbooks.Open(fileName);

                    try
                    {
                        Sheets worksheets = workbook.Sheets;

                        try
                        {
                            Worksheet worksheet = worksheets[1];

                            try
                            {
#if __VALUE_SET__
// Rangeを使用して値をセットするとプロセスが解放されない

                                Range range1 = worksheet.Cells[1, 1];
                                
                                try 
                                { 
                                    range1.Value = "ABCDEFG";
                                }
                                finally { Marshal.ReleaseComObject(range1); }
#endif

                                workbook.Save();

                            }
                            finally { Marshal.ReleaseComObject(worksheet); }
                        
                        }
                        finally { Marshal.ReleaseComObject(worksheets); }
                    
                    }
                    finally
                    {
                        if (workbook != null)
                        {
                            workbook.Close(false);
                        }
                        Marshal.ReleaseComObject(workbook);
                    }
                }
                finally { Marshal.ReleaseComObject(workbooks); }
            }
            finally
            {
                if (excelApplication != null)
                {
                    excelApplication.Quit();
                }

                Marshal.ReleaseComObject(excelApplication);
            }
        }
    }
}
```

### 問題　Rangeを使用して値をセットするとプロセスが解放されない
defineしている「____VALUE_SET____」の部分ですが、この部分を通るとプロセスが解放されずに残り続けます。
単純に開いて保存するだけであれば、プロセスは全て解放されています。

値設定時、何か私の方法が間違っているでしょうか？

詳しい方がいれば、ご教示お願い致します。

c#でExcelをOpenするとプロセスが残る(Microsoft.Office.Interop.Excel使用)

### 前提

設備付属の専用PC（PC-A）と、一般PC（PC-B）があります。
PC-A：
　Windows10Pro 
　スタンドアロン運用でLAN接続が不可能。
　ソフトウェアのインストールが不可。
PC-B：
　Windows10Enterprise。
　グループポリシーによりUSBメモリ等の外部ストレージがブロックされ認識できない。

PC-AとPC-B間のCOM通信は可能。RS232Cや、BluetoothのSPPが使えそう。

### 実現したいこと

PC-Aで生成されるテキストファイルを、PC-Bへ転送したい。
手段は以下のどちらでも良い。
　１．ファイルそのものを転送する。
　２．ファイル内の文字列を転送する。
ここで言うテキストファイルは、タブ区切りtxtやカンマ区切りcsvを意味する。

今回は、２．ファイル内の文字列を転送する。をやってみた。

### 発生している問題・エラーメッセージ
エラーはない。
改行が無くなり1行で転送されてしまう事が問題。


### 該当のソースコード
Windows PowerShell

ソースコード　PC-A(送信側)
```
    $serialPorts = [System.IO.Ports.SerialPort]::GetPortNames();
	$str = Get-content "C:\temp\test.csv"
#echo($str)
	$com = New-Object System.IO.Ports.SerialPort "COM8", 4800, ([System.IO.Ports.Parity]::Odd),7,([System.IO.Ports.StopBits]::One)
	$com.WriteBufferSize = 4800
	$com.DtrEnable = $true
	$com.RtsEnable = $true
	$com.Handshake=[System.IO.Ports.Handshake]::RequestToSend
	$com.NewLine = [Char]0x0D + [Char]0x0A
	$com.Encoding=[System.Text.Encoding]::GetEncoding("Shift_JIS")
	$com.Open()

Start-Sleep -m 500

	$com.WriteLine($str)

Start-Sleep -m 500

	$com.Close()
	$com.Dispose()
```
#ソースコード　PC-B（受信側）
```
$com = New-Object System.IO.Ports.SerialPort "COM7" 
$com.Encoding=[System.Text.Encoding]::GetEncoding("Shift_JIS")
$com.Open()
Start-Sleep -m 500

$str = $com.ReadLine()
#$str = $com.Read
echo ($str)

$com.Close()
$com.Dispose()

pause

```
### 試したこと

PC-B（受信側）は、他の言語（LabVEIW,VBA）で受信させてみても同様、改行が無くなってしまう。
PC-A（送信側）で、echo($str)によりテキストファイルから読み取った内容の表示させたところ、改行されていた。
よって改行が消えるのは送信時か受信時だと思う。


### 補足事項
PC-Aにソフトウェアのインストールが不可のため、Windows10標準のPowerShellを使ってみました。言語にこだわりはありません。
初歩的な質問でお恥ずかしい限りです。アドバイスいただけたら幸いです。


PC間のテキストファイル転送をCOM通信でしたい

### 実現したいこと

C#でASP.NETからA.I.VOICEのAPIのCOMコンポーネントに接続したい


### 前提

C#でA.I.VOICEのAPIを使用してwebapi化しようとしています
ホストプログラムとの接続をする際にエラーが発生しました

### 発生している問題・エラーメッセージ

```
System.IO.FileNotFoundException: 'Could not load file or assembly 'System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'. 指定されたファイルが見つかりません。'
```

### 該当のソースコード

```C#
//Controllers\hoge.cs
using Microsoft.AspNetCore.Mvc;
using AI.Talk.Editor.Api;

namespace test.Controllers
{

    public class Rqdata
    {
        public int Pitch { get; set; }

        public string? Text { get; set; }
    }


    [ApiController]
    [Route("[controller]")]
    public class KuronekoController : ControllerBase
    {
        private TtsControl? _ttsControl;
        private string Startup()
        {
            _ttsControl = new TtsControl();
            _ttsControl.Initialize("A.I.VOICE Editor");
            if (_ttsControl.Status == HostStatus.NotRunning)
            {
                // ホストプログラムを起動する
                _ttsControl.StartHost();
            }
            _ttsControl.Connect();//ここでエラー
            return "test";

        }
        [HttpGet]
        public Rqdata Get(int Pitch)
        {
            Rqdata pd = new()
            {
                Pitch = Pitch,
                Text = this.Startup()
            };
            return pd;
        }
    }
}
```

### 試したこと

System.ServiceModel.PrimitivesとSystem.ServiceModel.HttpをNugetでいれた
[stackoverflowより](https://stackoverflow.com/questions/50730878/could-not-load-file-or-assembly-system-servicemodel-version-4-0-0-0-exceptio)

### 補足情報
このプロジェクトのgithubはこちらです
[github](https://github.com/TanakaTakeshikun/apimata)
使用APIはこちらです※無料の栗田まろんを使用しています
[aivoce 本体フリーのもの](https://aivoice.jp/member/downloads/all-in-one/kurita-maron)
[aivoice api docs](https://aivoice.jp/manual/editor/api.html)
visualstudioでASP.NET Core Web APIのテンプレートを使用しました
ホストプログラムは起動します
OSはwindows11を使用しています。
WPFでは動きました
C#を2日前に始めたばかりなので丁寧に教えてくれると幸いです


C#でASP.NETからA.I.VOICEのAPIのCOMコンポーネントに接続したい

環境：
 Visual Studio 2008 VB.NET
  Windows 10

VB.NETで、COM通信を行いたいと思います。

```
Public Class Form1
    Delegate Sub DataDelegate(ByVal sdata As String)

    Public SerialPort1 As System.IO.Ports.SerialPort = New System.IO.Ports.SerialPort()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try                     '例外処理のはじまり 
            SerialPort1.Close()
            If SerialPort1.IsOpen = True Then          'ポートはオープン済み
                MessageBox.Show("", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            SerialPort1.PortName = TextBox_Com.Text    'オープンするポート名を格納
            ' シリアルポートの通信速度指定
            SerialPort1.BaudRate = 9600
            ' シリアルポートのパリティ指定
            SerialPort1.Parity = System.IO.Ports.Parity.None
            ' シリアルポートのビット数指定
            SerialPort1.DataBits = 8
            ' シリアルポートのストップビット指定
            SerialPort1.StopBits = System.IO.Ports.StopBits.One

            SerialPort1.Open()          'ポートオープン        
        Catch ex As Exception           '例外処理     
            TextBox_Line.Text = TextBox_Line.Text & ex.ToString & vbCrLf & ex.Message & vbCrLf
        End Try

        SerialPort1.RtsEnable = True                    'RTSをON
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
        Dim ReceivedData As String = " "        '受信データ用変数を宣言します
        Try
            ReceivedData = SerialPort1.ReadLine     'データを受信します
        Catch ex As Exception
            ReceivedData = ex.Message       '例外処理を行います
        End Try
        'Invokeメソッドにより実行されるメソッドへのデリゲートの宣言を行い、受信データを表示します
        Dim adre As New DataDelegate(AddressOf PrintData)
        Me.Invoke(adre, ReceivedData)
    End Sub

    Private Sub PrintData(ByVal sdata As String)
        TextBox_Line.Text = TextBox_Line.Text & sdata & vbCrLf
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If SerialPort1.IsOpen = True Then   'ポートオープン済み
            SerialPort1.Close()              'ポートクローズ
        End If
    End Sub
End Class
```

送信側からSend()して見ると、
送信には成功しているようなのですが、
受信側の

```
SerialPort1.Open()          'ポートオープン 
```

の処理で例外が発生します。
通信はUSB接続で行っています。
COMポート番号はあっていることを確認しています。
TeratermでCOMポート受信もできることも確認済みです。

```
System.IO.IOException: システムに接続されたデバイスが機能していません。

   場所 System.IO.Ports.InternalResources.WinIOError(Int32 errorCode, String str)
   場所 System.IO.Ports.SerialStream.InitializeDCB(Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Boolean discardNull)
   場所 System.IO.Ports.SerialStream..ctor(String portName, Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Int32 readTimeout, Int32 writeTimeout, Handshake handshake, Boolean dtrEnable, Boolean rtsEnable, Boolean discardNull, Byte parityReplace)
   場所 System.IO.Ports.SerialPort.Open()
   場所 Travel_Car_Register_Recv.Form1.Button1_Click(Object sender, EventArgs e) 場所 c:\Form1.vb:行 23
システムに接続されたデバイスが機能していません。
```

解決方法が見つからず、苦慮しています。

どなたかわかりませんか？

VB.NET でのCOM通信の受信について

###IUnknown::QueryInterface メソッド

Microsoftの「CまたはC++によるDirectXプログラミング＞COM の使い方＞IUnknown」
によると以下の様に書かれています。



> オブジェクトが特定のコンポーネント オブジェクト モデル (COM) インターフェイスをサポートしているかどうかを判別する。インターフェイスがサポートされている場合、システムはオブジェクトの参照カウントを増やし、アプリケーションは、そのインターフェイスをすぐに使える。

```C++
HRESULT QueryInterface(REFIID riid,LPVOID *ppvObj);
```
>
パラメータ
riid: 要求するインターフェイスの参照識別子
ppvObj: 目的のインターフェイスがサポートされている場合に、インターフェイスへのポインタが格納されるポインタ変数のアドレス。

>
戻り値
成功した場合は、S_OK を返す。
失敗した場合は、E_NOINTERFACE または E_POINTER を返す。コンポーネントには、これらのエラー値に対する独自の定義をヘッダー ファイルに格納しているものもある。たとえば、Microsoft® DirectInput® では DIERR_NOINTERFACE は E_NOINTERFACE に等しい。

>
注意
このメソッドの呼び出しにより取得したインターフェイスを使う必要がない場合は、そのインターフェイスの IUnknown::Release メソッドを呼び出してインターフェイスを解放しなければならない。IUnknown::QueryInterface メソッドにより、Microsoft およびサード パーティ各社は、機能を妨害することなくオブジェクトを拡張できる。



###該当のソースコード
```
#include <stdio.h>

#include <dshow.h>

#define	FILENAME L"mpeg2_mpeg2_ac3.mpg"

int main()
{
	IGraphBuilder *pGraphBuilder = NULL;
	IMediaControl *pMediaControl = NULL;

	// COMを初期化
	CoInitialize(NULL);

	// FilterGraphManagerを生成
	CoCreateInstance(CLSID_FilterGraph,
		NULL,
		CLSCTX_INPROC,
		IID_IGraphBuilder,
		(LPVOID *)&pGraphBuilder);

	// MediaControlインターフェース取得
	pGraphBuilder->QueryInterface(IID_IMediaControl,(LPVOID *)&pMediaControl);

	// Graphを生成
	pMediaControl->RenderFile(FILENAME);

	// 再生開始
	pMediaControl->Run();

	// 再生中にプログラムが終わってしまわないように
	MessageBox(NULL,
		"Block Execution",
		"Block",
		MB_OK);

	// 資源を解放
	pMediaControl->Release();
	pGraphBuilder->Release();

	// COM終了
	CoUninitialize();

	return 0;
}
```

###分からないこと
- リストIUnknown::QueryInterface メソッドの説明で言うところのオブジェクトとは、該当のソースコードの中で言うと生成したFilterGraphManagerのことで良いのでしょうか？
- 「特定のコンポーネント オブジェクト モデル (COM) インターフェイスをサポートしているかどうかを判別する」とありますが、該当のソースコードの中で言うと特定のとはどのようなインターフェイスのことを指しているのでしょうか？
- 「インターフェイスがサポートされている場合、システムはオブジェクトの参照カウントを増やし、アプリケーションは、そのインターフェイスをすぐに使える。」とありますが、該当のソースコードの中で言うとアプリケーションとは何に該当するのでしょうか？

以上の通り、全く見当がついていなくて申し訳ありませんが、ここを読んだ方が良い等のご指摘いただけるとありがたいです。
初心者ですがよろしくお願いします。

IUnknown::QueryInterface メソッドが良く理解できません。

バーコードリーダーでバーコードを読み込んでWindowsにシリアル通信で送信された番号に、それぞれ処理をしたい、と考えています。

teratermなどのソフトウェアを使う方法などが思い浮かんだのですが、それだと閲覧だけならできると思われますが、取得した番号を他の処理にパイプするようなことは出来ないのではないか、と思い、Powershellでやろうとしました。

バーコードリーダーをPCにBluetooth接続し、Bluetooth設定 > COMポート タブ を確認してみると、com4で受信していることがわかります。なので以下、コマンドでcom4を使用します。

![https://yuis.xsrv.jp/images/ss/ShareX_ScreenShot_1f666319-1d85-45ca-a0f9-d8f368a9cfae.png](https://yuis.xsrv.jp/images/ss/ShareX_ScreenShot_1f666319-1d85-45ca-a0f9-d8f368a9cfae.png)


実行したコードは以下です。

1.
```
$port= new-Object System.IO.Ports.SerialPort COM4,9600,None,8,one
$port.Open()
$port.ReadLine()

```

2.
```
function read-com {
    $port= new-Object System.IO.Ports.SerialPort COM4,9600,None,8,one
    $port.Open()
    do {
        $line = $port.ReadLine()
        Write-Host $line # Do stuff here
    }
    while ($port.IsOpen)
}
```


(参考URL)
[Writing and Reading info from Serial Ports | PowerShell Team Blog](https://blogs.msdn.microsoft.com/powershell/2006/08/31/writing-and-reading-info-from-serial-ports/)
[How to continuously read Serial COM port in Powershell and occasionally write to COM port - Stack Overflow](https://stackoverflow.com/questions/31297365/how-to-continuously-read-serial-com-port-in-powershell-and-occasionally-write-to)

しかし、2つとも、数分待機してもバーコードリーダーにて適当なものを読み込んだりしてみても出力がされませんでした。

何かが間違っているでしょうか？

また、Ubuntu 18.04でも同様のことを試行したのですが、やはりできませんでした。

1. バーコードリーダーをubuntuにBluetooth設定する
2. `dmesg | grep ttyS`で、実行中のシリアル通信を取得
```
[    2.139452] serial8250: ttyS0 at I/O 0x3f8 (irq = 4, base_baud = 115200) is a 16550A
```
3. 以下のコマンドを実行して結果を得られると思ったが、数分待機してもバーコードリーダーにて適当なものを読み込んだりしてみても出力がない。
```
cat /dev/ttyS0
cat < /dev/ttyS0
od -x < /dev/ttyS0
```

(参考URL)
[reading from serial from linux command line - Unix & Linux Stack Exchange](https://unix.stackexchange.com/questions/42376/reading-from-serial-from-linux-command-line)

---