OLEObject: Failed to retrieve the return value by Ref

[John_W]

Hello, everyone…

I got an issue transfer from VB6 to RB2012 that I tried to declare a dll file, but it wouldn’t work.
So, I was using the following code, and it works:

Dim KQ As OLEOBject
KQ = New OLEObject(“KQCONNECT_v70.Connect_v70”)

If KQ.RepairAddress(1, 99) = True Then
MsgBox (“Done”)
Else
MsgBox (“Failed”)
End If

“RepairAddress” doesn’t need any return message ByRef, so there was no problem.

There is another function called:

GatherRecordSum(ByVal VarAddr As Integer, ByRef VarRecordCount As Long, ByRef VarDescritption As String) As Boolean

Now here is my trouble. I tried hard to get the value from VarRecordCount and VarDescritption, but didn’t work.
No matter how many ways I tried, “RecordCount” was shown as 0 always. (It prompt “Done” without any problem.)
Here is my code:

Dim RecordCount As Integer
Dim Descritption As String
Dim Mreturn As Boolean
Mreturn = KQ.GatherRecordSum(1, RecordCount, Descritption)

If Mreturn = True Then
MsgBox(“Done”)
MsgBox(Str(RecordCount) + Descritption)
Else
MsgBox(“Failed”)
End If

Is there anyway that I can retrieve the return value By Ref from dll??
Thank you very much.

[John_W]

I did a search on internet. I think and I guess realbasic does not support ByRef. Am i right?

[John_Hansen]

You might want to use this:
http://documentation.xojo.com/index.php/OLEObject.Value

If the optional parameter ByValue is True, property assignment is by value.

[DaveS]

Dim RecordCount As Int64

VB6 LONG Integer type equates to XOJO Int64

by default Integer is Int32

and yes XOJO supports ByRef very welll

[John_W]

Thank you both of you. I will have a try on Monday. Thank you again!