常連

###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 メソッドが良く理解できません。

###環境
■  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使用)

### 前提・実現したいこと
初めて機器計測を行う者です。
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を用いた機器計測時における実行時エラーの対処

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でシリアル通信（送信と受信）ができない

PythonでPLCとの通信を行いたいです。ちょっと相談させてください。

![イメージ説明](2d4895168e21bfa5d04e13f533bdf655.jpeg)
**背景**
1. ある製品の製造現場で検査装置を立ち上げています。
2. Pythonを利用して、検査結果を判定、保存、製造ラインに指示を出したりします。
3. PythonはPC上で、検査装置はPLCで駆動しています。


**やりたい内容**
1. 現場の要求により、HUBを使わず、PLCのIOラインを直接にPCにつなぎたいと言っています。
2. PLCとPCとの間には、6CHのInput port（PC→PLC), 4CHのOutput port (PLC→PC)が必要です。
3. 例えば、PLCからON信号が来ると、これは装置のセンサーに異常が発生した。と判断します。
　 逆にPCか信号を送って、装置のステージの駆動を支持したりもします。
![イメージ説明](4d9f2ee28fd9326a45cf1a2344cf0104.png)

**知りたい内容**
1. PLCは24Vレベルですが、これをPCとのやり取りするためには、どんな方法がありますでしょうか？
2. PCで使える12CH以上のGPIOボードがありますでしょうか？
3. 上記のタスクに使える、Python ライブラリーがありましたら、教えて頂けますか？

![イメージ説明](afc2a1608db1cfdca79fc14a152f0a8f.png)

よろしくお願い致します。

PythonでPLCと通信を行いたいです。

バーコードリーダーでバーコードを読み込んで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)

---

PowershellまたはBashでCOMポートのシリアル通信を取得するには

前提・実現したいこと
Unityのオブジェクトの座標データなどを，シリアル通信を用いてSimulinkに送りたいと考えています．(最初は，落下するcubeのZ座標をSimulinkでモニタリングすることを考えています)
しかし，Unityで，もしくはSimukinkでのシリアル通信をそれぞれ調べてもよくわかりませんでした．(Simulinkでの受信は，Instrument Control ToolboxのSerial Receiveというブロックを使えばいいという事だけわかっています．)

どの様なスクリプトを書けばUnityから数値を取り出せるのでしょうか．
また，参考になりそうなWebページなどがあれば紹介していただきたいです．



一応，いろいろなサイトを参考に一応作ってみた，COMポートからの送受信をおこなえる？はずのソースコードを添付します．

どんな些細なことでも構いません，ご指導よろしくお願いします．

###発生している問題・エラーメッセージ

```
エラーメッセージ
```

###該当のソースコード
```C#
using UnityEngine;                             //unityのデフォルトの機能を使うためのクラス
using System.Collections;                      //C#のデフォルト機能を使うためのクラス
using System.IO.Ports;                         //シリアル通信を使用するためのクラス
using System.Threading;                        //スレッド機能を利用可能にするためのクラス


public class SerialHandler : MonoBehaviour {

    public delegate void SerialDataReceivedEventHandler(string message);            //???
    public event SerialDataReceivedEventHandler OnDataReceived;                     //???


    public string portName = "COM2";
    public int baudRate = 9600;                          //要変更

    private SerialPort serialPort_;                      //serial portクラスのインスタンス生成
    private Thread thread_;                              //スレッドクラスのインスタンス生成
    private bool isRunning_ = false;                     //シリアルポートが開いているかどうか

    private string message_;
    private bool isNewMessageReceived_ = false;            //シリアルポートから値が送られてきているかどうか





    // Use this for initialization
    void Start () {
        Debug.LogWarning("Start");
        Open();
    }
	




	// Update is called once per frame
	void Update () {
        Debug.LogWarning("Serial-Update");
        if (isNewMessageReceived_)
        {
            OnDataReceived(message_);
        }
    }





    void OnDestroy(){
        Debug.LogWarning("OnDestroy");
        Close();
    }





    private void Open(){                               //シリアルポートを開いて、新しいスレッドを開く

        serialPort_ = new SerialPort(portName, baudRate, Parity.None, 8, StopBits.One);     //シリアルポートインスタンス生成
        serialPort_.Open();                             //シリアルポートを開く

        isRunning_ = true;                         //開いた証としてtrueに変更

        thread_ = new Thread(Read);              //新しいスレッドを作成してread関数を実行させる
        thread_.Start();                          //thread開始
    }





    private void Read(){
        Debug.LogWarning("Read1");
        while (isRunning_ && serialPort_ != null && serialPort_.IsOpen)        //シリアルポートが開いているかつシリアルポートインスタンスが存在する
        {
            Debug.LogWarning("Read2");
            try
            {
                message_ = serialPort_.ReadLine();
                isNewMessageReceived_ = true;                     //メッセージを受け取った証として変更
                Debug.LogWarning(message_);
            }
            catch (System.Exception e)
            {
                Debug.LogWarning(e.Message);
            }
        }
    }





    private void Close(){
        isRunning_ = false;                                      //シリアルポートを閉じた証としてfalseに変更

        if (thread_ != null && thread_.IsAlive)                   //threadが存在しているなら
        {
            thread_.Join();                                      //元のスレッドの統合
        }

        if (serialPort_ != null && serialPort_.IsOpen)             //シリアルポートにインスタンスが格納されていて、シリアルポートが開いていれば
        {
            serialPort_.Close();                                //シリアルポートを閉じる
            serialPort_.Dispose();                                //バッファの解放とか？
        }
    }


    public void Write(string message){
        try
        {
            serialPort_.Write(message);
        }
        catch (System.Exception e)
        {
            Debug.LogWarning(e.Message);
        }
    }








}

```

###試したこと
Unity上でも現在のCubeのY座標がわかるように，以下のscriptを追加しました．

```C#
using System.Collections;
using System.Collections.Generic;
using UnityEngine;
using UnityEngine.UI;


public class CubePosition : MonoBehaviour {


    // Use this for initialization
    void Start () {
	}
	
	// Update is called once per frame
	void Update () {

        Vector3 Cubeposi = GameObject.Find("Cube").transform.position;   //Cubeの座標取り出し

        float CubeY = Cubeposi.y;                                  //CubeのY座標を定義
        
        string strCubeY = CubeY.ToString();

        this.GetComponent<Text>().text = strCubeY;

	}
}

```

###補足情報(言語/FW/ツール等のバージョンなど)
(使用しているもの)
Windows10,Unity 2017.2.0f3(64bit),C# script,Simulink(MATLAB R2015b)

Unity,MATLAB Simulink間でのシリアル通信について

環境：
 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
システムに接続されたデバイスが機能していません。
```

解決方法が見つからず、苦慮しています。

どなたかわかりませんか？