|
◆ 发送FSK数据
Dim p As IntPtr
Dim SendFskData(8) As Byte
Dim SendFskDataLen As Byte = 8
SendFskData(0) = 1
SendFskData(1) = 2
SendFskData(2) = 3
SendFskData(3) = 4
SendFskData(4) = 5
SendFskData(5) = 6
SendFskData(6) = 7
SendFskData(7) = 8
p=System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement
(SendFskData，0)
PCICARD1.L1Media(CHTYPE_AGENT， 0， F_MEDIA_Tx_Memory，RESPAR_PFIRSTMSG
OrRESPAR_PLASTMSG， _ RESTYPE_FSK， 0， ““， p.ToInt32，
SendFSKDataLen)
◆ 接收FSK数据，在ocx的MediaEvent事件中收FSK数据可用如下的程序将FSK数据读到
RecvFskData中
Dim myp As IntPtr
Dim RecvFskData(256) As Byte
myp = IntPtr.op_Explicit(e.lData)
System.Runtime.InteropServices.Marshal.Copy(myp，
RecvFskData， 0， e.dataLen)
|