08 Fev 2013 14:46
<DllImport("sat.dll")>
Public Shared Function ConsultarSAT(ByVal nSessionRandom As Integer) As String
End Function
Public Shared Function fConsultarSAT(ByVal nSessionRandom As Integer) As Array
Dim cString As String = ""
Try
cString = sat.ConsultarSAT(nSessionRandom).ToString
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return Split(cString, "|")
End Function
t_retorno = bibliotecasat.fConsultarSAT(t_sessao)
08 Fev 2013 15:22
08 Fev 2013 23:18
<DllImport("sat.dll")>
[DllImport("sat.dll")]
[DllImport("sat.dll", CallingConvention=CallingConvention.Cdecl)]
[DllImport("sat.dll", CallingConvention=CallingConvention.Cdecl)]
Public Shared Function LPTStr ConsultarSAT( uint nSessionRandom)
End Function