LPCSTR marshalling to unmanaged dll

[John Lucas]

I wish to call an unmanaged function from vb delacred as so:

#define DllExport __declspec(dllexport)
DllExport int WINAPI DllAlcWrite(HANDLE, LPCSTR, int);
I have tried:

1.)
Private Declare Ansi Function DllAlcWrite Lib "alcsapi" (ByVal hConn
As Long, ByVal strGWOutgoing As String, ByVal intStringLength As
Integer) As Integer

<VBFixedString(255)> Private strOutgoingBuffer As String
strOutgoingBuffer ="FOO"
intReturn = DllAlcWrite(m_Handle, strOutgoingBuffer, 3)

2.)
<DllImport("alcsapi.dll")> _
Private Shared Function DllAlcWrite(ByVal hConn As Long, ByVal
strGWOutgoing As String, ByVal intStringLength As Integer) As Integer
End Function
<VBFixedString(255)> Private strOutgoingBuffer As String
strOutgoingBuffer ="FOO"
intReturn = DllAlcWrite(m_Handle, strOutgoingBuffer, 3)

3.)
<DllImport("alcsapi.dll", CharSet:=CharSet.Ansi,
CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function DllAlcWrite(ByVal hConn As Long, ByVal
strGWOutgoing As String, ByVal intStringLength As Integer) As Integer
End Function
<VBFixedString(255)> Private strOutgoingBuffer As String
strOutgoingBuffer ="FOO"
intReturn = DllAlcWrite(m_Handle, strOutgoingBuffer, 3)

( i know the handle is long, but it is working for other functions in
this dll)

I have also tried setting the string length (3rd parm)to 255
I am able to call other functions in this dll ok
=================================

All of them generate the NullReference exception. Is there a way to
properly marshal LPCSTR?

Help!

[Mattias Sjögren]

( i know the handle is long, but it is working for other functions in
this dll)

Did you mean to say that it isn't a Long? Because it isn't, and you
should replace it with IntPtr or Integer.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[John Lucas]

Mattias,

It doesn't seem to matter, I still get a nullreference exception with
this:

<DllImport("alcsapi.dll", CharSet:=CharSet.Ansi,
CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function DllAlcWrite(ByVal hConn As Long, ByVal
strGWOutgoing As String, ByVal intStringLength As Integer) As Integer
End Function
<DllImport("alcsapi.dll")> _
Private Shared Function DllInitAlc(ByVal Board As Integer, ByVal
lngLine As Integer, _
ByVal GWName As String, ByVal IA As Integer, ByVal TA As Integer) As
IntPtr
End Function

Dim m_handle as IntPtr
m_Handle=DllInitAlc(CInt(lngBoard), CInt(lngLine), strServer,
lngIAHex, lngTAHex)
'(got a non zero handle)
<VBFixedString(255)> Private strOutgoingBuffer As String
strOutgoingBuffer ="FOO"

intReturn = DllAlcWrite(m_Handle, strOutgoingBuffer, 3)
'(exception)

Mattias Sjögren <ma********************@mvps.org> wrote in message news:<eO**************@TK2MSFTNGP10.phx.gbl>...

( i know the handle is long, but it is working for other functions in
this dll)

Did you mean to say that it isn't a Long? Because it isn't, and you
should replace it with IntPtr or Integer.

Mattias

[Mattias Sjögren]

John,

<DllImport("alcsapi.dll", CharSet:=CharSet.Ansi,
CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function DllAlcWrite(ByVal hConn As Long, ByVal
strGWOutgoing As String, ByVal intStringLength As Integer) As Integer
End Function

Did you change anything? hConn is still declared as Long.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[John Lucas]

I changed it to intPtr and stilll have the same problem.
Mattias Sjögren <ma********************@mvps.org> wrote in message news:<eR*************@tk2msftngp13.phx.gbl>...

John,

<DllImport("alcsapi.dll", CharSet:=CharSet.Ansi,
CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function DllAlcWrite(ByVal hConn As Long, ByVal
strGWOutgoing As String, ByVal intStringLength As Integer) As Integer
End Function

Did you change anything? hConn is still declared as Long.

Mattias

[Tom Shelton]

On 19 May 2004 14:48:51 -0700, John Lucas wrote:

I wish to call an unmanaged function from vb delacred as so:

#define DllExport __declspec(dllexport)
DllExport int WINAPI DllAlcWrite(HANDLE, LPCSTR, int);
I have tried:

1.)
Private Declare Ansi Function DllAlcWrite Lib "alcsapi" (ByVal hConn
As Long, ByVal strGWOutgoing As String, ByVal intStringLength As
Integer) As Integer

Private Declare Ansi Function DllAlcWrite Lib "alcsapi.dll" _
(ByVal hConn As IntPtr, _
ByVal strGWOutgoing As String, _
ByVal intStringLength As Integer) As Integer

' air code :)
Dim buffer As String = new String(vbNullChar, 255)
DllAlcWrite (hConn, buffer, buffer.Length)

HTH
--
Tom Shelton [MVP]

[John Lucas]

Tom,

That was it! Null termination character.

Here's what I ended up with.

Dim buffer As String
buffer = strSendThis
buffer.PadRight(255, vbNullChar)
intReturn = DllAlcWrite(m_SabreHandle, buffer, buffer.Length)
THANK YOU.
-john

Tom Shelton <to*@YOUKNOWTHEDRILLmtogden.com> wrote in message news:<12******************************@40tude.net> ...

On 19 May 2004 14:48:51 -0700, John Lucas wrote:

I wish to call an unmanaged function from vb delacred as so:

#define DllExport __declspec(dllexport)
DllExport int WINAPI DllAlcWrite(HANDLE, LPCSTR, int);
I have tried:

1.)
Private Declare Ansi Function DllAlcWrite Lib "alcsapi" (ByVal hConn
As Long, ByVal strGWOutgoing As String, ByVal intStringLength As
Integer) As Integer

Private Declare Ansi Function DllAlcWrite Lib "alcsapi.dll" _
(ByVal hConn As IntPtr, _
ByVal strGWOutgoing As String, _
ByVal intStringLength As Integer) As Integer

' air code :)
Dim buffer As String = new String(vbNullChar, 255)
DllAlcWrite (hConn, buffer, buffer.Length)

HTH