VB6.0 + COM - Unsupported variant type

har du prøvet med: FilePosition As Currency

Nej ikke endnu... Men vil da teste det øjeblikkeligt...

Virker ikke...

havd med Dim FilePosition As Variant eller ingen ting Dim FilePosition ' As Variant

Virker heller ikke. I debug mode er det i denne linieden fejler:

testUploaded = Clients.Item(i).Uploaded <-- Får fejlen: "Automation Type not supported in VB6.0"

------------
Private Sub Form_Load()
       
        Dim Manager As G6FTPServer.Manager
        Dim Clients As G6FTPServer.IClientList
        Dim sDomain As String
        Dim testUploaded As Variant
        Dim sUsername As String
        Dim i As Integer

        sDomain = "IceMan"

        Set Manager = CreateObject("G6FTPServer.Manager")
        Set Clients = Manager.Domains.Item(sDomain).ClientList

        If Clients.Count > 0 Then
            For i = 0 To Clients.Count - 1
                sUsername = Clients.Item(i).Username
                testUploaded = Clients.Item(i).Uploaded
                MsgBox ("Username: " + sUsername + " Upload:" + DblUploaded)
            Next
        Else
            MsgBox ("Fejl!")
        End If
End Sub
--------------------

og du er sikker på at den ikke bare skal starte med 1 ->  For i = 1 To Clients.Count - 1

ja...
Har lavet det samme script i VBS og C# hvor det virker.
Detsuden burde man få en error det hedder noget med NullReffrence istedet hvis det var det der er galt.

Prøv sådan : MsgBox VarType(Clients.Item(i).Uploaded) så kan du se hvad type det er..


vbEmpty            0 Empty (uninitialized)
vbNull             1 Null (no valid data)
vbInteger         2 Integer
vbLong             3 Long integer
vbSingle         4 Single-precision floating-point number
vbDouble         5 Double-precision floating-point number
vbCurrency         6 Currency value
vbDate             7 Date value
vbString         8 String
vbObject         9 Object
vbError         10 Error value
vbBoolean         11 Boolean value
vbVariant         12 Variant (used only witharrays of variants)
vbDataObject         13 A data access object
vbDecimal         14 Decimal value
vbByte             17 Byte value
vbUserDefinedType     36 Variants that contain user-defined types
vbArray         8192 Array

hvis du ser her : http://www.g6ftpserver.com/forum/index.php?showtopic=480 så skriver de også... Sorry, VB doesn't support !

Ja det ved jeg godt... det er jo derfor jeg spørger om der er en måde at omgå det?

Ja.. så skal du nok lave noget i C# som kan konverter LargeInt (integer on 64bits) til Long eller Double eller Currency

Det kunne være i form af en lille DLL

ja kunne man jo men så hvergang jeg skal bruge noget i Int64 skal jeg lave en frontend af COM objected.

eller måske skulle du bare lave den til en string.. jeg går ikke udfra at du skal retuner den igen.

skal jeg ikke. Men kan slet ikke requeste den.

måske kunne du gøre sådan..

Private Declare Function VbToInt64 Lib "vbInt64.dll" (ByVal dwInput As Any) As Currency

altså lav en dll i c# som fx. hedder "vbInt64.dll" som konverter det..

så kan du vel bruge den sådan:

testUploaded = VbToInt64(Clients.Item(i).Uploaded)

nej, det kan jeg ikke. For den fejler hvergang VB prøver at requeste det interface fra COM objected.

så tror jeg ikke der er noget at gøre.. desværre..

ellers skal du lade vær med at bruge den.. men så er der måske ikke nogle ide i det :D

Du kunne også prøve LSet metoden : http://eksperten.dk/spm/301638

Det vil jeg lige kigge på.

Lukker spm.