VarGetType return object but IsObj return 0

[jugador]

https://www.example-code.com/autoit/parse_microsoft_json_date.asp  <=  [(AutoIt) Parse a Microsoft JSON Date (MS AJAX Date)]
Now If you run the above code from the link given

You will see

Local $oDtObj = $oDt.GetDtObj($bLocal)
__WhatIsThis($oDtObj)

 

; #FUNCTION# =============================================================================
; Name...........: __WhatIsThis
; ========================================================================================
Func __WhatIsThis($o_Object)
    ConsoleWrite('VarGetType() ' & @Tab & VarGetType($o_Object) & @CRLF)

    ConsoleWrite('IsBinary ' & @Tab & IsBinary($o_Object) & @CRLF)
    ConsoleWrite('IsBool ' & @Tab & @Tab & IsBool($o_Object) & @CRLF)
    ConsoleWrite('IsDllStruct ' & @Tab & IsDllStruct($o_Object) & @CRLF)
    ConsoleWrite('IsFloat ' & @Tab & IsFloat($o_Object) & @CRLF)
    ConsoleWrite('IsHWnd ' & @Tab & @Tab & IsHWnd($o_Object) & @CRLF)
    ConsoleWrite('IsInt ' & @Tab & @Tab & IsInt($o_Object) & @CRLF)
    ConsoleWrite('IsNumber ' & @Tab & IsNumber($o_Object) & @CRLF)
    ConsoleWrite('IsObj ' & @Tab & @Tab & IsObj($o_Object) & @CRLF)
    ConsoleWrite('Isptr ' & @Tab & @Tab & Isptr($o_Object) & @CRLF)
EndFunc

 

Console output:

VarGetType()    Object
IsBinary    0
IsBool      0
IsDllStruct 0
IsFloat     0
IsHWnd      0
IsInt       0
IsNumber    0
IsObj       0
Isptr       0

As you see VarGetType return object but IsObj return 0  

 

You can use @mLipok chilkatau3-udf for this

 

[mLipok]

It is related to the fact that Chilkat component internally wants to create object and is not able because my UDF does not require registering object.
If you register Chilkat ActiveX component (register DLL) then the problem will gone.

Here are similar issues which I asked on stackoverflow:

https://stackoverflow.com/questions/65676125/chilkat-oimap-listmailboxes-return-null-object

https://stackoverflow.com/questions/65484117/chilkat-cannot-get-activex-interface

 

Edited June 23, 2022 by mLipok

[jugador]

as getting error: NULL Pointer assignment
registering dll solve the problem

but still who knows 
if @trancexx   has solution to do it without registering the dll
but she not logging for year .....

[jugador]

Don't know
if _WinAPI_LoadLibraryEx  or  @trancexx  Subrogation
will work on such occasion 

 

try @trancexx  _SetProperty  method on $oDt ( <= that is Chilkat_9_5_0.CkDateTime )

get 

GetDtObj => $iDispId: 115    ;~ ok

but fail at Invoke as  $iRet return: 0x80020003

try $VT_DISPATCH but still failed

Const $VT_DISPATCH = 0x0009
$tVar.vt = $VT_DISPATCH

Is trying to solve this pointless?  as it cant be done.

Edited June 26, 2022 by jugador

[jugador]

What does Injecting DLL mean?
How it work?

will Injecting DLL method help to solve  OP problem  without registering dll 

[jugador]

neither any forum member replied on OP problem nor @trancexx login 
so for fun.... 

expandcollapse popup

#include <Array.au3>
#include <Date.au3>

__ExampleA()
Func __ExampleA()
    Local $o_Url = "https://www.autoitscript.com/forum/profile/33569-trancexx/"
    Local $o_UserName = StringRegExpReplace($o_Url, 'https:.*-(.*)\/', '$1')

    Local $o_Getdate = __Get_Lastvisited_Date($o_Url)
    If Not @error Then
        If IsString($o_Getdate) Then Return ConsoleWrite($o_UserName & $o_Getdate & @CRLF)
        $o_UserName = '@' & $o_UserName & ' not logging for ' & $o_Getdate & ' days.'
        If $o_Getdate <= 60 Then Return ConsoleWrite($o_UserName & ' on vacation' & @CRLF)
        If ($o_Getdate > 60) And ($o_Getdate <= 180) Then Return ConsoleWrite($o_UserName & ' bit busy maybe ><' & @CRLF)
        If ($o_Getdate > 180) And ($o_Getdate <= 360) Then Return ConsoleWrite($o_UserName & ' hope all good.' & @CRLF)
        If ($o_Getdate > 360) And ($o_Getdate <= 720) Then Return ConsoleWrite($o_UserName & ' leaving forum?'& @CRLF)
        Return ConsoleWrite($o_UserName & ' bye bye Autoit forum!!' & @CRLF)
    Endif
EndFunc

Func __Get_Lastvisited_Date($o_BUrl = '')
    If $o_BUrl = '' Then Return SetError(1)
    Local $oComErr = Null
    $oComErr = ObjEvent("AutoIt.Error", __Com_ErrorHandler)
    #forceref $oComErr

    Local $o_ResText = ''

    Local $o_WHttpObj = ObjCreate("winhttp.winhttprequest.5.1")
    If @error Then  Return SetError(1, 0, "winhttp object failed")

    With $o_WHttpObj
        .Open("GET", $o_BUrl, false)
        .Send()
        If @error Then
            $o_WHttpObj = 0
            Return SetError(1, 0, 'winhttp Send failed')
        Endif

        If .status = 200 Then $o_ResText = .ResponseText
    EndWith
    If IsObj($o_WHttpObj) Then $o_WHttpObj = 0

    If $o_ResText <> '' Then
        Local $a_Date = StringRegExp($o_ResText, "Last visited[\s\S]*?datetime='(.*?)T", 1)
    Endif

    Return SetError(0, 0, _
        (IsArray($a_Date) ? _
        _DateDiff('D', $a_Date[0], StringRegExpReplace(_NowDate(), '(\d*)\/(\d*)\/(\d*)', '$3-$1-$2')) _
        : ' love to remain Anonymous'))
EndFunc

Func __Com_ErrorHandler($oError)
    ConsoleWrite("  Error Number....... " & "0x" & Hex($oError.number) & @CRLF)
EndFunc

 

 

Edited July 17, 2022 by jugador