Does anyone have implemented thisAtomicClock ActiveX Control  inxbase++?
http://www.samlogic.net/components/slatomic.htm
It is free and can be downloaded!
 
My example doesn´t word!
 
#include "activex.ch"
#include "inkey.ch"

#PRAGMA LIBRARY( "ASCOM10.LIB" )
*----------------------------------------------------------------------------------------------*
FUNCTION DoAtomicTime(cTime)
   Local oAtime
   Local lRet  := .T.
   Local CLSID := "{9DD27D49-29B3-11D5-BF05-8570654FEB35}"
  
   // Create SLAtomic ActiveX component
   cKey := AutomationRequestLicenseKey("SLATOMIC.SLAtomicCtrl.1")
   if len(alltrim(cKey)) > 0   // No license required!
      msgbox(cKey)
   endif
   
   *----- allthreemethodsdo not work! ------*  
   // oAtime := ActiveXObject():create( "SLATOMIC.SLAtomicCtrl.1")
      
   // oAtime := CreateObject( "SLATOMIC.SLAtomicCtrl.1" )
   // oAtime := oAtime:dynamicCast( ActiveXObject() )
 
   oAtime := AutomationObject():create( "SLATOMIC.SLAtomicCtrl.1" )

   *---------------------------------------------------------*
 
   if empty( oAtime )
      msgbox( "slatomic.ocx is not installed!  ("+ComLastMessage()+" "+str(ComLastError(),10,0)+")" )
   else
      msgbox( "slatomic.ocx is installed!" )
 
       oAtime:SelectServer := 0       // Don´t  work!
      // oAtime:ServerType := 0        // Don´t  work!
 
      oATime:ReadTime                  // Don´t  work!
      msgbox(oATime:TimeStr")      // Don´t  work!

      oAtime:destroy()
   endif
 
RETURN lRet
*--------------------------------------------------------------------------------------------*
Following Error message appears!
 
oError:args         :
          -> VALTYPE: C VALUE: SelectServer
          -> VALTYPE: N VALUE:          0
oError:canDefault   : Y
oError:canRetry     : N
oError:canSubstitute: Y
oError:cargo        : NIL
oError:description  : Schwerwiegender Fehler
 
oError:filename      : NIL
oError:genCode      : NIL
oError:operation     : SelectServer
oError:osCode       :          -2147418113
oError:severity       :          2
oError:subCode      :       6500
oError:subSystem  : Automation
oError:thread       :          1
oError:tries        : NIL
-------------------------------------------------------------------------------------
CALLSTACK:
Aufgerufen von AUTOMATIONOBJECT:ONERROR(1344)
Aufgerufen von ASCOMERROR:RAISE(324)
Aufgerufen von ASCOMERROR:RAISEERROR(593)
Aufgerufen von ASCOMERROR:RAISEONERROR(672)
Aufgerufen von AUTOMATIONOBJECT:SETNOIVAR(1146)
Aufgerufen von DOATOMICTIME(28)
Aufgerufen von (B)CREATEMDIMENU(1214)
Aufgerufen von APPEXEC(289)
Aufgerufen von MAIN(323)
---------------------------------
 
Whatam I doing wrong?
 
I amGratefulfor any help!
 
Willy