常連

### 実現したいこと
あるアプリケーションを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]について

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

### 実現したいこと
CoCreateInstanceを使用してファイル読み取りのcomオブジェクトを作成しています。

### 発生している問題・分からないこと
使用する端末によって0x80070002のエラーが発生します。
ビルド構成：.netFramework4.8
エラー発生端末
OS：Windows10Pro
バージョン：1809

エラー未発生端末
OS：Windows10Pro、Windows11
バージョン：最新
アクセス権限、レジストリの登録状況の確認、セキュリティソフトの停止は確認済みです。
端末依存でこのようなエラーが起こるものなのでしょうか。

### エラーメッセージ
```error
0x80070002
```

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

```C++
_CSIniLib* cpie = NULL ;
HRESULT CoInitialize(NULL);
OLECHAR* guidString;

 HRESULT hre = CoCreateInstance(CLSID_CSIniLib,
   NULL,
   CLSCTX_INPROC_SERVER,
   __uuidof(_CSIniLib),
   reinterpret_cast<void**>(&cpie));
if(FAILED(hre)) {
	;
} else {
	  cpie->UserCertDat(&b_tszBuffer) ;
	  cpie->Release();
	  cpie = NULL;
	  m_bstr = b_tszBuffer ;
	  USES_CONVERSION;
	  RetString = OLE2W(b_tszBuffer) ;
}    
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [x] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
[CoCreateInstance 80070002]でgoogle検索かけましたが有用な情報が発見できませんでした。

### 補足
特になし

CoCreateInstanceで0x80070002エラー

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

### 実現したいこと

ビルドしたUnityの実行ファイル上で、SerialPortを開いて、シリアル通信ができるようにする

### 前提

Unityで自作コントローラを使った音楽ゲームを制作している者です。
コントローラ側はRaspberry Pi picoを使ったもので、シリアル通信を用いて入力用デバイスにしようとしています。

下記のコードで、Unityのエディタ上では、上手くシリアル通信が出来ており、全く問題ないのですが、ビルドしてゲームの実行ファイルからシリアル通信しようとすると、反応がなくなります。

Debug.Log()などで詳しく調べたところ、どうやら51行目の「serialPort_ = new SerialPort();」のところで問題が発生している模様です。Unityのエディタ上では全く問題のない点でしたが、ビルドすると別の問題で通信ができないのでしょうか？

以下詳細
・Windows11(メモリ:16G CPU:11th Corei7)
・Unity2022.3.10f1
・RaspberryPiPico(UARTを使用した通信)

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

ビルドしたファイル上で、このように表示されました。(スクリプト60行目)
```
System.IO.Ports.SerialPort::.ctor
```

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

```C#
using UnityEngine;
using UnityEngine.UI;
using TMPro;
using System.IO.Ports;
using System.Threading;
using System;

public class Lab : MonoBehaviour
{
    public TextMeshProUGUI TMP;
    public string portName = "COM3";
    public int baudRate = 115200;

    private SerialPort serialPort_;
    private Thread thread_;
    private bool isRunning_ = false;
    private string lastrcvd = "";
    byte rcv;
    char tmp;

    private string message_;
    private bool isNewMessageReceived_ = false;

    void Start()
    {
        lastrcvd = "";
        Open();
    }

    void Update()
    {
        if (isNewMessageReceived_)
        {
            //OnDataReceived(message_);
            TMP.text = tmp.ToString();
        }
    }

    void OnDestroy()
    {
        Close();
    }

    private void Open()
    {
        TMP.text = portName + "," + baudRate;
        //serialPort_ = new SerialPort(portName, baudRate, Parity.None, 8, StopBits.One);

        try
        {
            serialPort_ = new SerialPort();
            serialPort_.PortName = portName;
            serialPort_.BaudRate = baudRate;
            serialPort_.Parity = Parity.None;
            serialPort_.DataBits = 8;
            serialPort_.StopBits = StopBits.One;
        }
        catch (System.Exception e)
        {
            TMP.text = e.Message;
        }

        try
        {
            serialPort_.Open();
            serialPort_.ReadTimeout = 5000;
            TMP.text = "[2]";
        }
        catch (Exception e)
        {
            serialPort_ = null;
            return;
        }

        TMP.text = "[3]";

        isRunning_ = true;

        thread_ = new Thread(Read);
        thread_.Start();
    }

    private void Read()
    {
        while (isRunning_ && serialPort_ != null && serialPort_.IsOpen)
        {
            try
            {
                rcv = (byte)serialPort_.ReadByte();

                if (rcv == '\r')
                {
                    message_ = lastrcvd;
                    //Debug.LogFormat("textLine:{0}", message_);
                    lastrcvd = "";
                    isNewMessageReceived_ = true;
                }
                else
                {
                    tmp = (char)rcv;
                    //Debug.LogFormat("rcv:{0}", tmp.ToString());
                    lastrcvd = lastrcvd + tmp.ToString();
                }
            }
            catch (System.Exception e)
            {
                Debug.LogWarning(e.Message);
            }
        }
    }

//追記
void OnDestroy()
    {
        Debug.Log("close");
        Close();
    }

private void Close()
    {
        isRunning_ = false;

        if (thread_ != null && thread_.IsAlive)
        {
            thread_.Join();
        }

        if (serialPort_ != null && serialPort_.IsOpen)
        {
            Debug.Log("close2");
            serialPort_.Close();
            serialPort_.Dispose();
        }
    }



```

### 試したこと

・PlayerSettingsで「Api Compatibility Level」 ⇒ 「.NET Flamework」

