Re: passing array fcreated in c++ dll to vb


MrAsm <invalid@xxxxxxxxxxx> a écrit dans le message :
6vd0m2hn1e9i8e3v8q980vhekmop4d5p08@xxxxxxxxxx
On Sat, 18 Nov 2006 13:18:29 +0100, "Sizeof()" <no_spams@xxxxxx>
wrote:

long __stdcall BuildArray( VARIANT FAR * pvArray )


But in this case the function gets name-mangling, right?
Something like BuildArray@NN ...?

Why the __stdcall and not __cdecl ?

Mr Asm



Private Declare Function BuildArray Lib "prog.dll" (ByRef vArray As Variant)
As Long

Private Sub Command1_Click()

Dim dati

Dim res
Dim x1
Dim x2


Dim d(1)

res = BuildArray(dati)

If res = 0 Then
'MsgBox "OK"
d(0) = dati
x1 = d(0)
x2 = d(1)

'MsgBox "Dati: " & CStr(x1) & ", " & CStr(x2)
Else
MsgBox "Errore : " & CStr(res)
End If



Dim i

For i = LBound(x1) To UBound(x1)
Print x1(i)
Next i

End Sub





.

Relevant Pages

  • Re: Alpha search to load a list box
    ... Dim strTemp As String ... Private Sub LblAlpha_MouseDown(Button As Integer, Shift As Integer, X ... Dim StartX As Long, WidthX As Long ... Private Declare Function apiSelectObject Lib "gdi32" Alias ...
    (microsoft.public.access.formscoding)
  • Re: master volume control in winmm using namespaces
    ... Private Declare Function mixerOpen Lib "WINMM.DLL" (phmx As Long, ... Private Declare Function waveOutSetVolume Lib "WINMM.DLL" (ByVal wDeviceID ... Dim uMixerLine As MIXERLINE ... Private Sub SetWaveVol ...
    (microsoft.public.dotnet.languages.vb)
  • Re: master volume control in winmm using namespaces
    ... Private Declare Function mixerOpen Lib "WINMM.DLL" (phmx As Long, ... Private Declare Function waveOutSetVolume Lib "WINMM.DLL" (ByVal wDeviceID ... Dim uMixerLine As MIXERLINE ... Private Sub SetWaveVol ...
    (microsoft.public.dotnet.languages.vb)
  • ListView.SelectedItem cannot be modified
    ... Dim objFind As LV_FINDINFO ... Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd ... lpClassName As String, ByVal lpWindowName As String) As Long ... 'CompareDates: This is the sorting routine that gets passed to the ...
    (microsoft.public.vb.controls)
  • Code Swap Request - Master Volume Class for Remote Application Control
    ... Private Declare Function mixerClose Lib "winmm.dll" As Integer ... Private Declare Function mixerGetControlDetailsA Lib "winmm.dll" As Integer ... ByVal ctrlType As Integer, ByRef mxc As MIXERCONTROL, ByRef vCurrentVol As Integer) As Boolean ... Dim mxlc As New MIXERLINECONTROLS ...
    (microsoft.public.dotnet.languages.vb)