Hello James
 
 thats the new Code:
 
   ......
   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!

Thanks
 
Willy
 

 
<James Loughner> schrieb im Newsbeitragnews:1c679c94$242adc56$2b3f2@news.alaska-software.com...
> SO what is your new code?? Did you pass a server string?
>
> Jim
>
> On 07/27/2013 05:43 AM, Willy Mollers wrote:
>> Hello Peter
>> many thanks for your answer.
>> If I do as you suggest, the following error comes on (NOMETHOD):
>> -----------------------------------------------------------------------------------------------------------
>> oError:args :
>>            -> VALTYPE: C VALUE: SelectServer
>> 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:NOMETHOD(1238)
>> Aufgerufen von DOATOMICTIME(32)
>> Aufgerufen von (B)CREATEMDIMENU(1214)
>> Aufgerufen von APPEXEC(289)
>> Aufgerufen von MAIN(323)
>> -------------------------------------------------------------------------------------------------------------------
>> Willy
>>
>> <Peter Alderliesten> schrieb im Newsbeitrag
>>news:1pa5j97h98ywf$.1gcl5zd8ilat6$.dlg@40tude.net...
>>  > Willy,
>>  >
>>  >> Does anyone have implemented this AtomicClock ActiveX Control in
>> xbase++?
>>  >>http://www.samlogic.net/components/slatomic.htm
>>  >> It is free and can be downloaded!
>>  >
>>  >>        oAtime:SelectServer := 0       // Don´t work!
>>  >>       // oAtime:ServerType := 0        // Don´t  work!
>>  >>
>>  >> oATime:ReadTime // Don´t  work!
>>  >> msgbox(oATime:TimeStr")      // Don´t work!
>>  >
>>  > I assume these don't work because you what call as instance variables are
>>  > specified as methods. You should try this:
>>  > oAtime:SelectServer()
>>  > if oAtime:readTime()
>>  >    cTime := oAtime:TimeStr
>>  > endif
>>  > etc.
>>  >
>>  > Peter
>>  >
>
>