InetSendSizeWinRsp Example for Visual Basic
Private Sub LEADNet1_InetReceiveCmd(ByVal
iComputer As Integer, ByVal InetCommand As Integer, ByVal nCommandID As
Long, ByVal nError As Integer, ByVal Params As LEADRasterInetLib.ILEADRasterInetPacket,
ByVal nExtraDataSize As Long, ByVal ExtraData As LEADRasterVariant)
Dim nRet As Integer
Dim nStatus As Integer
If (nError <> 0) Then
nStatus = ERROR_TRANSFER_ABORTED
Else
Select Case InetCommand
Case INETCMD_SIZE_WIN
'
check the validity of the parameters
If
((Params.ParamCount = 5) And (Params.ParamType(0) = PARAM_TYPE_UINT32)
_
And (Params.ParamType(1) = PARAM_TYPE_INT32) And (Params.ParamType(2) =
PARAM_TYPE_INT32) _
And (Params.ParamType(3) = PARAM_TYPE_INT32) And (Params.ParamType(4) =
PARAM_TYPE_INT32)) Then
'Note
this is a function you must create
nStatus
= ProcessSizeWinCommand(Params.ParamValue(0).DoubleValue, Params.ParamValue(1).LongValue,
Params.ParamValue(2).LongValue, Params.ParamValue(3).LongValue, Params.ParamValue(4).LongValue)
nRet
= LEADNet1.InetSendSizeWinRsp(nCommandID,
0, Null, nStatus)
Exit
Sub
End
If
End Select
End If
'return an error response
LEADNet1.InetSendRsp
InetCommand, nCommandID, Nothing, 0, Null, nStatus
End Sub