ActiveX error in Curl8.0 - Printable Version

Code:
{curl 8.0 applet}

{curl-file-attributes character-encoding = "utf8"}



{import * from CURL.GRAPHICS.ACTIVEX}

{value

    def area = {TextArea width=500px, height=500px}

    let tibrv:ActiveXObject = {ActiveXObject ProgId = "TibrvCOM.TibRv"}

    {tibrv.open}

    

    let tibrv-msg:ActiveXObject = {ActiveXObject ProgId = "TibrvCOM.TibRvMsg"}

    {tibrv-msg.create}

    

    let tibrv-transport:ActiveXObject = {ActiveXObject ProgId = "TibrvCOM.TibrvTransport"}

    || pass empty strings for simple tests

    || Empty strings means connecting local PC

    {tibrv-transport.create "", "", ""}

    

    let tibrv-queue:ActiveXObject = {ActiveXObject ProgId = "TibrvCOM.TibrvQueue"}

    {tibrv-queue.Create}

 

    let tibrv-queue-group:ActiveXObject = {tibrv.getAutoDispatchQueueGroup}

    || Memory access violations error occurs here in Curl8.0

    || アプレットがCurl8.0の場合、エラーはここで発生する。

    {tibrv-queue-group.add tibrv-queue}

    

    let tibrv-listener:ActiveXObject = {ActiveXObject ProgId = "TibrvCOM.TibrvListener",

                                           onMsg={proc {listener:ActiveXObject, message:ActiveXObject}:void

                                                     {dispatch-events false}

                                                     {try

                                                         

                                                         let field:ActiveXObject = {message.getFieldByIndex 0}

                                                         def body = {message.toString}&""

                                                         set area.value = body                                      

                                                         {if {field.getName} == "DATA" then

                                                             

                                                             def body = {message.toString}&""

                                                             set area.value = body

                                                             

                                                         }

                                                         

                                                      catch e:Exception do

                                                         {dump e.message}

                                                     }

                                                 }    

                                       }

    {tibrv-listener.create tibrv-queue, tibrv-transport, ">", 0}

    area

}