COM元件的文件說明如下:
typedef struct DEVICEINFO {
short nPortNumber;
short nCpuNumber;
short nNetWorkNumber;
short nStationNumber;
short nUnitNumber;
BSTR strIPNumber;
long nTimeout;
} DEVICEINFO;
------------------------------------------------------------------------
VB 環境OK
-------------------------------------------------------------------
Private P_objCpRegister As YcsComm.ICpRegister
Private P_DevInfo As YcsComm.P_objCpRegister.SetDeviceInfo P_DevInfo -> 執行此行不會出錯誤
P_objCpRegister.Open
----------------------------------------------------------------------------------------------------
Delphi 下執行會出現異常 => Property 值超過
----------------------------------------------------------------------------------------------------
pData.strIPNumber := WideString('192.168.1.1'); 因為其它欄位都是數值就此欄WideString沒用過,懷疑是此欄位的關係 !
pData.nTimeout := 3000;
try
CpRegister.SetDeviceInfo(pData); -> 執行此行會出錯
finally
memo1.Lines.Add('SetDeviceInfo ... ' inttoHex(CpRegister.LastErrorCode, 8));
CpRegister.LastErrorCode := 0;
end;
end;

pData.strIPNumber := '192.168.1.1';
這樣就好

===================引 用 bill534 文 章===================
pData.strIPNumber := WideString('192.168.1.1'); 因為其它欄位都是數值就此欄WideString沒用過,懷疑是此欄位的關係 !

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

CString strIP = "192.168.1.1"
m_deviceinfo.strIPNumber = strIP.AllocSysString();
m_deviceinfo.nTimeout = 5000;
// 通信デバイス情報を設定する
m_objRegister->SetDeviceInfo(&m_deviceinfo);
}
Catch(_com_error &e)
{
MessageBox(e.Description());
}
…（中略）…
m_objRegister.Release(); // インスタンスの解放
m_objRegister = NULL;
SysFreeString(m_deviceinfo.strIPNumber);

StrIp: WideString;
begin
pData.nPortNumber := 1;
pData.nCpuNumber := 1;
pData.nUnitNumber := 1; // cp-217
pData.nNetWorkNumber := 0;
pData.nStationNumber := 0;
CpRegister.SetDeviceInfo(pData);
CpRegister.ACCESSMODE := YCS_BACKGROUND_SERVICE;
finally
memo1.Lines.Add('SetDeviceInfo ... ' inttoHex(CpRegister.LastErrorCode, 8));
CpRegister.LastErrorCode := 0;
end;

把結構的PACKED拿掉,就正常了 ! ......

DEVICEINFO = packed record
nPortNumber: Smallint;
nCpuNumber: Smallint;
nNetWorkNumber: Smallint;
nStationNumber: Smallint;
nUnitNumber: Smallint;
strIPNumber: WideString;
nTimeout: Integer;
end;