Attempted to read or write protected memory. dll vs vb 2005

[XJ]

Hi experts,
i try to use vb.net 2005 call dll, then give me "Attempted to
read or write protected memory.This is often an indication that other
memory is corrupt". i have chk some message others people posted, but
since still cannot, pls give me some commnet.(this dll run smoothly at
vb 6 )

module:
' example
Declare Function TwTsxInitPar Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal asize As Long) As Long
Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal maxtermlid As Long) As Long

public sub run()
dim btsxpar(1024) As Byte
dim lnTerm as long

vtek.lRv = TwTsxInitPar(bt sxpar(0), UBound(btsxpar) + 1)
<== msg popup PIvokeStackbala nce was detected
vtek.lRv = TwTsxParSetMaxT ermLid(btsxpar( 0), lnTerm) <==
give same msg
............
end sub

after run the program ( console ) give
"Attempted to read or write protected memory.This is often an
indication that other memory is corrupt"

pls give advise, bcos i really have no any idea( vb6 can work )
many thanks

[Cor Ligthert [MVP]]

XJ,

Are you sure it should be Long. A VB6 Long is a VBNet Int32.

To be real, I think that it is your problem.

I hope this helps,

Cor

"XJ" <ia*****@gmail. com> schreef in bericht
news:11******** **************@ h76g2000cwa.goo glegroups.com.. .

Hi experts,
i try to use vb.net 2005 call dll, then give me "Attempted to
read or write protected memory.This is often an indication that other
memory is corrupt". i have chk some message others people posted, but
since still cannot, pls give me some commnet.(this dll run smoothly at
vb 6 )

module:
' example
Declare Function TwTsxInitPar Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal asize As Long) As Long
Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal maxtermlid As Long) As Long

public sub run()
dim btsxpar(1024) As Byte
dim lnTerm as long

vtek.lRv = TwTsxInitPar(bt sxpar(0), UBound(btsxpar) + 1)
<== msg popup PIvokeStackbala nce was detected
vtek.lRv = TwTsxParSetMaxT ermLid(btsxpar( 0), lnTerm) <==
give same msg
............
end sub

after run the program ( console ) give
"Attempted to read or write protected memory.This is often an
indication that other memory is corrupt"

pls give advise, bcos i really have no any idea( vb6 can work )
many thanks

[Herfried K. Wagner [MVP]]

"XJ" <ia*****@gmail. com> schrieb:

i try to use vb.net 2005 call dll, then give me "Attempted to
read or write protected memory.This is often an indication that other
memory is corrupt". i have chk some message others people posted, but
since still cannot, pls give me some commnet.(this dll run smoothly at
vb 6 )

module:
' example
Declare Function TwTsxInitPar Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal asize As Long) As Long
Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal maxtermlid As Long) As Long
Try these declarations:

\\\
Private Declare Function TwTsxInitPar Lib "TSDKVC.DLL " ( _
ByRef tsxparptr As Byte, _
ByVal asize As Int32 _
) As Int32

Private Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " ( _
ByRef tsxparptr As Byte, _
ByVal maxtermlid As Int32 _
) As Int32
///
dim btsxpar(1024) As Byte
Note that this will create an array with 1025 elements with indices 0
through 1024.
dim lnTerm as long

=> 'As Int32' or 'As Integer'.

If this doesn't solve the problem, I suggest to post the C/C++ function
prototypes.

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

[XJ]

thanks advise ! appreciate

Herfried K. Wagner [MVP] wrote:

"XJ" <ia*****@gmail. com> schrieb:

i try to use vb.net 2005 call dll, then give me "Attempted to
read or write protected memory.This is often an indication that other
memory is corrupt". i have chk some message others people posted, but
since still cannot, pls give me some commnet.(this dll run smoothly at
vb 6 )

module:
' example
Declare Function TwTsxInitPar Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal asize As Long) As Long
Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " _
(ByRef tsxparptr As Byte, ByVal maxtermlid As Long) As Long

Try these declarations:

\\\
Private Declare Function TwTsxInitPar Lib "TSDKVC.DLL " ( _
ByRef tsxparptr As Byte, _
ByVal asize As Int32 _
) As Int32

Private Declare Function TwTsxParSetMaxT ermLid Lib "TSDKVC.DLL " ( _
ByRef tsxparptr As Byte, _
ByVal maxtermlid As Int32 _
) As Int32
///

dim btsxpar(1024) As Byte

Note that this will create an array with 1025 elements with indices 0
through 1024.

dim lnTerm as long

=> 'As Int32' or 'As Integer'.

If this doesn't solve the problem, I suggest to post the C/C++ function
prototypes.

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