Does anyone
have implemented
thisAtomicClock ActiveX Control
inxbase++?
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