常連

###環境
■  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を用いた機器計測時における実行時エラーの対処

### 実現したいこと
あるアプリケーションをVB6ベースからC#ベースへ移行しています。
その中で、COMコンポーネントとして登録したC++ベースのDLLのメソッドを呼び出しているのですが、そのメソッドのVARIANT型の出力引数を取得したいです。

### 発生している問題・分からないこと
VARIANT型の出力引数を取得できていません。
VARIANT型を模倣した構造体を引数として与えていますが、出力が代入されることを期待しているプロパティがメソッドの呼び出し前後で変化していません。

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

```C++ベースのメソッドの定義
bool SDBServiceClass::GetField(
	_bstr_t			bstrKey,					// In    : key
	_bstr_t			bstrDestinationNetworkName,	// In    : 要求先ネットワーク名
	_bstr_t			bstrFieldName,				// In    : フィールド名
	short			shFieldNo,					// In    : フィールド番号
	VARIANT			*pvarData					// Out   : データ
)
```

```C++ベースのVARIANT型の定義
typedef /* [wire_marshal] */ struct tagVARIANT VARIANT;

struct tagVARIANT
    {
    union 
        {
        struct __tagVARIANT
            {
            VARTYPE vt;
            WORD wReserved1;
            WORD wReserved2;
            WORD wReserved3;
            union 
                {
                LONGLONG llVal;
                LONG lVal;
                BYTE bVal;
                SHORT iVal;
                FLOAT fltVal;
                DOUBLE dblVal;
                VARIANT_BOOL boolVal;
                _VARIANT_BOOL bool;
                SCODE scode;
                CY cyVal;
                DATE date;
                BSTR bstrVal;
                IUnknown *punkVal;
                IDispatch *pdispVal;
                SAFEARRAY *parray;
                BYTE *pbVal;
                SHORT *piVal;
                LONG *plVal;
                LONGLONG *pllVal;
                FLOAT *pfltVal;
                DOUBLE *pdblVal;
                VARIANT_BOOL *pboolVal;
                _VARIANT_BOOL *pbool;
                SCODE *pscode;
                CY *pcyVal;
                DATE *pdate;
                BSTR *pbstrVal;
                IUnknown **ppunkVal;
                IDispatch **ppdispVal;
                SAFEARRAY **pparray;
                VARIANT *pvarVal;
                PVOID byref;
                CHAR cVal;
                USHORT uiVal;
                ULONG ulVal;
                ULONGLONG ullVal;
                INT intVal;
                UINT uintVal;
                DECIMAL *pdecVal;
                CHAR *pcVal;
                USHORT *puiVal;
                ULONG *pulVal;
                ULONGLONG *pullVal;
                INT *pintVal;
                UINT *puintVal;
                struct __tagBRECORD
                    {
                    PVOID pvRecord;
                    IRecordInfo *pRecInfo;
                    } 	__VARIANT_NAME_4;
                } 	__VARIANT_NAME_3;
            } 	__VARIANT_NAME_2;
        DECIMAL decVal;
        } 	__VARIANT_NAME_1;
    } ;
```

```C++ベースのメソッドの抜粋
		case 5:			// char型	//
			// -----------  ■　文字列(char)型の場合
			if ( ( pvarData->vt & VT_BSTR ) &&
				 ( pvarData->vt & VT_BYREF ) ) {
				*(pvarData->pbstrVal) = bstrData.copy();
			}
			break;

		default:
			m_cscSDBService.Unlock();			// ロック解除(SDBMSデータサービスクラス用)
			return false;	// 異常終了

※VT_BSTR=8、VT_BYREF=16384
```

```C#、VisualStudio上でカーソルを当てたときに表示されるポップアップから飛んだC++ベースのDLLのメソッドの定義
bool GetField([In][MarshalAs(UnmanagedType.BStr)] string Key, [In][MarshalAs(UnmanagedType.BStr)] string NetworkName = "", [In][MarshalAs(UnmanagedType.BStr)] string FieldName = "", [In] int FieldNo = 0, [In][Out][MarshalAs(UnmanagedType.Struct)] ref object pData);
```

```C#、現在のコードの抜粋
var data1 = new VARIANT { vt = (ushort)(VarEnum.VT_BSTR | VarEnum.VT_BYREF) };
var pData1 = Marshal.AllocCoTaskMem(Marshal.SizeOf(data1));
Marshal.StructureToPtr(data1, pData1, true);
var result1 = _netMSDBService.GetField(key, networkName, "TAG", 0, pData1);

        [StructLayout(LayoutKind.Sequential, Pack = 8)]
        private struct VARIANT
        {
            public ushort vt;
            public IntPtr pVal;
        }
```

### 試したこと・調べたこと
①当該メソッドを通っているかを確認しました。
別の引数によりswitch文のルートが決まります（C++メソッドの抜粋を参照）。期待している値の場合は戻り値としてtrue、期待していない値の場合は戻り値としてfalseが返るようになっており、true/falseが切り替わることは確認済みです。
現在のC#コードの場合は、case 5を通ることも問題ありません。
②デバッガでメソッドの呼び出し前後の構造体の中身を確認しました。
初期化後：pVal=0x00000000、vt=16392
メソッドの呼び出し後：pVal=0x00000000、vt=16392
pData1にも逐次適当な値が設定されています（例えば、0x0b1fd248）。

### 補足
VisualStudio2022、.Net8.0、C#12.0を使用しています。
C++内部の状態を確認するための仕込みをし再コンパイルしようと思いましたが、optional parameters must come after required parameters等、多くのエラーが発生している状態です。
そもそも、代入する値（bstrData（C++メソッドの抜粋を参照））が正しく設定されていない可能性も否めないのですが、現在のC#コードには問題はないのか、何か勘違いをしていないか等を知り、少しでも原因を絞りたい次第です。
何か気づいたことがあれば、ご教授いただけると助かります。些細なことでも構いません。
よろしくお願いいたします。

C# C++DLLメソッド呼出（COMコンポーネント） VARIANT型出力引数の取得

VC++?COM?のコードを読んでいて、[out, retval]について疑問を感じたのですが、
調べても良い情報源にたどりつけなかったため、こちらで質問させていただきます。

[in]が通常の引数、outやretvalが出力引数を意味すると思っているのですが、
[out, retval]と記述されると、なんだか気持ち悪く感じてしまいます。
どちらも同じことを意味するのではないのでしょうか？

[retval]はなさそうですが、[out]はあるようですね。
そうとなると、[out]と[out, retval]は何が異なるのでしょうか。
copilotによると、出力と戻り値とのことですが、私はどちらも同じものと認識しています。

ご存じであれば、ご教授よろしくお願いいたします。

追記

https://learn.microsoft.com/ja-jp/cpp/windows/attributes/retval?view=msvc-170
retval は、関数の宣言の最後の引数に指定する必要があります。
とありました。

出力引数を2つ以上設定するときは、一つ目は[out]、二つ目は[out, retval]ということですかね。

[out, retval]について

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と通信を行いたいです。

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

バーコードリーダーでバーコードを読み込んで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ポートのシリアル通信を取得するには

### 前提・実現したいこと
Visual Studio 2019 をインストールして、昔に作ったプロジェクトを読込んでテストしています。
ほとんどのプログラムは問題なく実行できていますが、特定のプログラムでデバッグ中に例外が発生します。
プログラムはタイプライブラリを使用して Excel を操作するもので、64Bit でビルドしたときのみデバッグ中に例外が発生します。
CoInitialize 関数を呼んだだけで例外が発生しているようです。（タイプライブラリーもエクセルも関係ないかもしれません。）

### 発生している問題・エラーメッセージ

```
0x00007FF8A811C09B (ntdll.dll) で例外がスローされました (Test.exe 内): 0xC0000005: 場所 0x0000000000000000 への書き込み中にアクセス違反が発生しました
```

### 該当のソースコード

```C++
#include <windows.h>
#include <iostream>

//Excelを操作するためのタイプライブラリを読みこむ(Excel2010(x64)用)
#import "C:\Program Files\Common Files\Microsoft Shared\Office14\MSO.DLL" no_auto_exclude auto_rename
#import "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb"
#import "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" no_auto_exclude auto_search auto_rename dual_interfaces
int main()
{
	char buff[256];

	CoInitialize(NULL);									//COMを初期化

	Excel::_ApplicationPtr pXL;

	//Excelの起動
	pXL.CreateInstance(L"Excel.Application");

	if (pXL) {
		pXL->Visible[0] = VARIANT_TRUE;					//エクセルを表示

		std::cout << "エクセルの起動を確認:";
		std::cin.getline(buff, sizeof buff);

		//Excelを終了する
		pXL->Quit();
		pXL.Release();									//COMオブジェクトを解放
	} else {
		std::cerr << "エクセルを起動できません\n";
		return 1;
	}

	std::cout << "テストプログラムを終了:";
	std::cin.getline(buff, sizeof buff);

	CoUninitialize();									//COMを終了
}
```

### 試したこと
32bit プログラムでは発生しません。
デバッグをしなければ特に問題なく実行できます。
VS2019 でビルドしたプロジェクトを VS2017 でデバッグしても例外は発生しません。

### 補足情報（FW/ツールのバージョンなど）
Visual Studio 2019
Windows 8.1 pro (64bit)
Excel 2010 (64bit)

---
以下追加します。
以下のソースのように、CoInitialize のみでも例外が発生しました。
タイプライブラリーもエクセルも関係なかったようです。

```C++
#include <windows.h>

int main()
{
	HRESULT hr = CoInitialize(NULL);					//COMを初期化
	if (hr == S_OK)
		CoUninitialize();								//COMを終了
}
```

別のマシン (Windows 10 Home 64bit) では shlwapi.dll で例外が発生しました。