(PowerBuilder) Transition from Imap.ThreadCmd to Imap.QueryThread

Provides instructions for replacing deprecated ThreadCmd method calls with QueryThread.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Imap
string ls_ThreadAlg
string ls_Charset
string ls_SearchCriteria
integer li_BUid
oleobject loo_JsonObj
oleobject loo_Json
integer li_Success

loo_Imap = create oleobject
// Use "Chilkat_9_5_0.Imap" for versions of Chilkat < 10.0.0
li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap")
if li_rc < 0 then
    destroy loo_Imap
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// ...
// ...

ls_ThreadAlg = "REFERENCES"
ls_Charset = "UTF-8"
ls_SearchCriteria = "SUBJECT a"
li_BUid = 1

// ------------------------------------------------------------------------
// The ThreadCmd method is deprecated:

loo_JsonObj = loo_Imap.ThreadCmd(ls_ThreadAlg,ls_Charset,ls_SearchCriteria,li_BUid)
if loo_Imap.LastMethodSuccess = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// ...
// ...

destroy loo_JsonObj

// ------------------------------------------------------------------------
// Do the equivalent using QueryThread.
// Your application creates a new, empty JsonObject object which is passed 
// in the last argument and filled upon success.

loo_Imap.SearchCharset = "UTF-8"

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_Imap.QueryThread(ls_ThreadAlg,ls_SearchCriteria,li_BUid,loo_Json)
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    destroy loo_Json
    return
end if



destroy loo_Imap
destroy loo_Json