VB.NET: Implementing RasGetErrorString

19 May 2006 2:31 PM

bhc

i'm trying to wrap a RAS library, and i've found pretty solid examples
for most RAS API calls...except for RasGetErrorString. i've seen a C#
example, but can't seem to get the right declaration and use in VB.NET.
the current attempt is:
---
    Private Declare Auto Function RasGetErrorString Lib "rasapi32.dll"
( _
        ByVal ErrorValue As Integer, _
        ByRef ErrorString As String, _
        ByVal BufferSize As Integer _
        ) As Integer

'And then in a button click somewhere...
        Dim errstr As String
        Dim err As Integer = 639
        Dim lbuff As Integer = 256

        Debug.WriteLine(RasGetErrorString(err, errstr, lbuff))
        Debug.WriteLine(errstr)
---

the call to RasGetErrorString fails with an unhandled
System.ExecutionEngineException - even if i trap it in a Try...Catch
block (?). any help would be appreciated...

19 May 2006 3:29 PM

bhc

nevermind, i got it (sorry, just impatient i guess :).

    Private Declare Auto Function RasGetErrorString Lib "rasapi32.dll"
( _
        ByVal uErrorValue As Integer, _
        ByVal lpszErrorString As IntPtr, _
        ByVal cBufSize As Integer _
        ) As Integer

20 May 2006 6:55 PM

Herfried K. Wagner [MVP]

Show quote Hide quote

"bhc" <bchor***@gmail.com> schrieb:
> i'm trying to wrap a RAS library, and i've found pretty solid examples
> for most RAS API calls...except for RasGetErrorString. i've seen a C#
> example, but can't seem to get the right declaration and use in VB.NET.
> the current attempt is:
> ---
>    Private Declare Auto Function RasGetErrorString Lib "rasapi32.dll"
> ( _
>        ByVal ErrorValue As Integer, _
>        ByRef ErrorString As String, _
>        ByVal BufferSize As Integer _
>        ) As Integer
>
> 'And then in a button click somewhere...
>        Dim errstr As String
>        Dim err As Integer = 639
>        Dim lbuff As Integer = 256
>
>        Debug.WriteLine(RasGetErrorString(err, errstr, lbuff))
>        Debug.WriteLine(errstr)
> ---
>
> the call to RasGetErrorString fails with an unhandled
> System.ExecutionEngineException - even if i trap it in a Try...Catch
> block (?). any help would be appreciated...

\\\
Private Declare Auto Function RasGetErrorString Lib "rasapi32.dll" ( _
    ByVal uErrorValue As Int32, _
    ByVal lpszErrorString As String, _
    ByVal cBufSize As Int32 _
) As Int32
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>