Programatic close of MDI Frame from AREV64 (OpenInsight 64-bit) [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{tag>category:"OpenInsight 64-bit" author:"Greg Helland" author:"Mike Ruane" author:"bshumsky"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== Programatic close of MDI Frame from AREV64 (OpenInsight 64-bit) ====
=== At 07 JUL 2023 05:50:27PM Greg Helland wrote: ===
 
 
<QUOTE>
Hi All,

I have a OI 10.2 routine called by AREV64 to close the MDI Frame as follows.

*************************************

Subroutine Close_AREV64 (Null)

Declare Function Send_Event

$Insert Logical

EvErrors = Send_Event("AREV64", "CLOSE", FALSE$, TRUE$ )

Return

**************************************

This program has been running fine, no errors.  Then, today, it starting throwing the following .NET exception

When the program runs it successfully shuts down the MDI Frame but then throws the following exception.  



I re-ran ClientSetup.exe to see if that fixed it.  It did not.



Any ideas?

Thanks,

Greg

************** Exception Text **************

System.Runtime.InteropServices.COMException (0x80004005): Class not registered



Class not registered



   at ATSCR71Lib.ITermScreen.SetCursor(Int16 Col, Int16 Row, Int16 Mode)

   at RevCmdNet_10_2.RevCmdCtl.scr_cr()

   at RevCmdNet_10_2.RevCmdCtl.printw(String& outStr, Boolean& bShowSequences)

   at RevCmdNet_10_2.RevCmdCtl.OpenEngine()

   at RevCmdNet_10_2.RevCmdCtl.StateManager(Int16 whichState)

Subroutine Close_SUMIT64 (Null)



Declare Function Send_Event, Get_Property



$Insert Logical



EvErrors = Send_Event("SUMIT64", "CLOSE", FALSE$, TRUE$ )



Return   at RevCmdNet_10_2.RevCmdCtl.TimerEngine_Tick(Object eventSender, EventArgs eventArgs)

   at System.Windows.Forms.Timer.OnTick(EventArgs e)

   at System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)

   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)





************** Loaded Assemblies **************

mscorlib

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9139.0 built by: NET481REL1LAST_B

    CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v4.0.30319/mscorlib.dll

----------------------------------------

RTIScintilla_10_2

    Assembly Version: 10.2.0.0

    Win32 Version: 10.2.0

    CodeBase: file:///C:/Program%20Files/Revelation%20Software/Revelation%20Software%20.NET%204%20Components%20v10.2.0%20(64bit)/RTIScintilla_10_2.dll

----------------------------------------

System.Windows.Forms

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9075.0 built by: NET481REL1LAST_C

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll

----------------------------------------

System

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9139.0 built by: NET481REL1LAST_B

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll

----------------------------------------

System.Drawing

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll

----------------------------------------

System.Configuration

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll

----------------------------------------

System.Core

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9160.0 built by: NET481REL1LAST_W

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll

----------------------------------------

System.Xml

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll

----------------------------------------

ScintillaNET

    Assembly Version: 2.6.0.0

    Win32 Version: 2.6.0.0

    CodeBase: file:///C:/Program%20Files/Revelation%20Software/Revelation%20Software%20.NET%204%20Components%20v10.2.0%20(64bit)/ScintillaNET.DLL

----------------------------------------

Microsoft.VisualBasic

    Assembly Version: 10.0.0.0

    Win32 Version: 14.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll

----------------------------------------

System.Web

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_64/System.Web/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Web.dll

----------------------------------------

RevCmdNet_10_2

    Assembly Version: 10.2.0.0

    Win32 Version: 10.2.0

    CodeBase: file:///C:/Program%20Files/Revelation%20Software/Revelation%20Software%20.NET%204%20Components%20v10.2.0%20(64bit)/RevCmdNet_10_2.dll

----------------------------------------

AxATSCR71Lib

    Assembly Version: 1.0.0.0

    Win32 Version: 1.0.0.0

    CodeBase: file:///C:/Program%20Files/Revelation%20Software/Revelation%20Software%20.NET%204%20Components%20v10.2.0%20(64bit)/AxATSCR71Lib.DLL

----------------------------------------

ATSCR71Lib

    Assembly Version: 1.0.0.0

    Win32 Version: 1.0.0.0

    CodeBase: file:///C:/Program%20Files/Revelation%20Software/Revelation%20Software%20.NET%204%20Components%20v10.2.0%20(64bit)/ATSCR71Lib.DLL

----------------------------------------

Accessibility

    Assembly Version: 4.0.0.0

    Win32 Version: 4.8.9032.0 built by: NET481REL1

    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll

----------------------------------------


</QUOTE>
----

=== At 11 JUL 2023 07:32AM Mike Ruane wrote:  ===

<QUOTE>Greg-



As a work around, if you're trying to close the system completely, what happens if you use a Utility('SYSTEM','DESTROY')?



Same error?



Mike

</QUOTE>

----

=== At 11 JUL 2023 11:48AM Greg Helland wrote:  ===

<QUOTE>Mike,

That works with no errors.  Thanks.

Greg

</QUOTE>

----

=== At 11 JUL 2023 11:56AM Greg Helland wrote:  ===

<QUOTE>OK, installed on my client's system and DESTROY does noting.  Works fine on my system.

Greg

</QUOTE>

----

=== At 11 JUL 2023 12:02PM Greg Helland wrote:  ===

<QUOTE>Also tried 

Call Exec_Method("SYSTEM", "DESTROY", "SYSTEM")

And that did not work on client's system either.  Weird...

Greg

</QUOTE>

----

=== At 25 OCT 2023 07:01PM Greg Helland wrote:  ===

<QUOTE>Further to this issue.  I successfully got this process to close AREV64/OI 10 when the user logs off of the AREV64 client.  When AREV64 calls the OI-10 subroutine that executes "Call Exec_Method("SYSTEM", "DESTROY", "SYSTEM")" all is good until now.



The client now has 2 workstations that seem to properly close the instance of AREV64/OI-10 in that visually it is no longer on the taskbar or on the screen.  However, when opening the Task Manager instances of OpenInsight start stacking up for every time the user opened AREV64/OI-10.  If they opened it 2 times then 2 entries in the Task Manager exist, if 3 times, 3 entries, etc.



The reason that this is important for this client is that when a user logs on we run a program that counts the number of SYSLOGIN entries the user has.  If it is more than 2 (1 for OI and 1 for AREV64) we splash a message that they have exceeded logins and then execute the Call Exec_Method("SYSTEM", "DESTROY", "SYSTEM") command.  Users at this client were logging in multiple times on the shop floor thus eating up user licenses, thus the need for the SYSLOGINS check.



Majority of the clients workstations work perfectly but these two (new Windows 11 machines) are not behaving as expected.  The users have full local admin rights.



Can anyone think of why this might be happening?



Thanks,

Greg Helland

BleuPelikan, Inc.

</QUOTE>

----

=== At 26 OCT 2023 08:34AM bshumsky wrote:  ===

<QUOTE>Hi, Greg.  There's a stored procedure called OFF that is designed to log off the AREV64 window and close it down.  Can you see if you can call that and if it works to "gracefully" terminate the AREV64 instances?



Hope that helps,



- Bryan Shumsky

[url=https://www.revelation.com]Revelation Software, Inc.[/url]

</QUOTE>

----

=== At 26 OCT 2023 11:45AM Greg Helland wrote:  ===

<QUOTE>Bryan,

This is run as a child window to OI and therefore leaves OI open so OFF does not do the trick.  That is what I used prior to making it a child form. OFF will close AREV64 but leave the hidden OI open.

Greg

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=F582D9071A3E8E4F8D4B79118AC64E8D|View this thread on the Works forum...]]