ActiveX error in Curl8.0

[alchimiste]

Thank you in advance.

I list the source code.

We use Rendezvous version 7.5.4

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
}