关于用.Net平台开发SPMS_API开发接口里的PChar说明——转载

最新推荐文章于 2016-03-28 08:48:00 发布

sendreams

最新推荐文章于 2016-03-28 08:48:00 发布

阅读量1.2k

点赞数

文章标签： .net api 平台 string byte vb.net

本文链接：https://blog.csdn.net/sendreams/article/details/1800624

版权

SPInterface.dll

上行接收函数: GetCNGPDeliverSM

问题说明: 此开发包为Delphi6开发,其中用了PChar这种Vb和.Net不直接支持的数据类型,需要一定的转换.

下面为VB.Net 2005开发代码示例:

定义部份:

Imports System.Runtime.InteropServices

Private Declare Function GetCNGPDeliverSM Lib "SP_Interface.dll" ( _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sMsgID As String, _
   ByRef byMsgFormat As Byte, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sRecvTime As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sOrgAddr As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sDestAddr As String, _
   ByRef byMsgLen As Byte, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sMsgContent As String, _
   ByRef byProValue As Byte, _
   ByRef byIsReport As Byte, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sSrcMsgID As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sSubmitdate As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sDonedate As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef sStatus As String, _
   ByRef iDeliverAckResult As Int32, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef Link_ID As String, _
   <MarshalAs(UnmanagedType.VBByRefStr)> ByRef BeneficiaryID As String) As Int32

初台化各指针

Public Sub XX()

Dim Result As Int32
Dim sMsgID As New String(Chr(0), 10)
Dim byMsgFormat As Byte = 0
Dim sRecvTime As New String(Chr(0), 14)
Dim sOrgAddr As New String(Chr(0), 20)
Dim sDestAddr As New String(Chr(0), 20)
Dim byMsgLen As Byte = 0
Dim sMsgContent As New String(Chr(0), 254)
Dim byProValue As Byte = 0
Dim byIsReport As Byte = 0
Dim sSrcMsgID As New String(Chr(0), 20)
Dim sSubmitdate As New String(Chr(0), 10)
Dim sDonedate As New String(Chr(0), 10)
Dim sStatus As New String(Chr(0), 7)
Dim iDeliverAckResult As Byte = 0
Dim Link_ID As New String(Chr(0), 20)
Dim BeneficiaryID As New String(Chr(0), 21)