OENGINE logging (OpenInsight 32-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 32-Bit" author:"Wayne Shepard" author:"[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]"}}

[[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]]


==== OENGINE logging (OpenInsight 32-Bit) ====
=== At 16 MAR 2005 04:27:15PM Wayne Shepard wrote: ===
 
 
<QUOTE>
Is it possible to turn OENGINE's logging facility on and off programmatically?  Of course it is!  How?



Wayne
</QUOTE>
----

=== At 17 MAR 2005 12:43AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>Wayne,




<code>
compile subroutine exec_OE_Log( startLog )

   declare function getEngineWindow, getWindow
   declare function getWindowTextLength, getWindowText
   $insert logical
   
   equ GW_HWNDFIRST$       to 0
   equ GW_HWNDLAST$        to 1
   equ GW_HWNDNEXT$        to 2
   equ GW_HWNDPREV$        to 3
   equ GW_OWNER$           to 4
   equ GW_CHILD$           to 5
   equ GW_ENABLEDPOPUP$    to 6
   equ GW_MAX$             to 6
   
   equ BM_CLICK$           to 0x00F5
   
   if startLog then
      logText=StartLog"
   end else
      logText=StopLog"
   end
   
   hwndOE =getEngineWindow()
   hwndLog=0
   if hwndOE then
      hwndNext=GetWindow( hwndOE, GW_CHILD$ )
      loop
      while ( hwndNext )
      
         * // We could check the window's class to see if it's a button
         * // but as this is quick and dirty we'll just look for the
         * // text string ...
         
         cchTextLen=GetWindowTextLength( hwndNext )
         if cchTextLen then
            textBuf=str( \00\, cchTextLen );
            call GetWindowText( hwndNext, textBuf, cchTextLen + 1 )
            
            if ( textBuf1,\00\ _eqc logText ) then
               hwndLog=hwndNext
            end
            
         end
      until hwndLog
         hwndNext=GetWindow( hwndNext, GW_HWNDNEXT$ )
      repeat
   end
   
   if hwndLog then
      * // Simulate a click event
      call sendMessage( hwndLog, BM_CLICK$, 0, 0 )
   end
   
return
</code>




[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]

[i]World leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]



</QUOTE>

----

=== At 17 MAR 2005 08:12PM Wayne Shepard wrote:  ===

<QUOTE>Ah, I knew you'd come through for me!  Thanks!



Wayne

</QUOTE>


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