h@jSrSSKrSSKrSSKrSSKrSSKJr SSKJr SSKJ r Sr Sr Sr Sr \R"\ \ \ \ 5 \R"\ \ \ \ S S /5 "S S 5r"S S5r"SS\5r"SS\5r\S:Xa*SSKr\R,R.R1\5 gg)aDExcel IRTDServer implementation. This module is a functional example of how to implement the IRTDServer interface in python, using the pywin32 extensions. Further details, about this interface and it can be found at: https://learn.microsoft.com/en-us/previous-versions/office/developer/office-xp/aa140060(v=office.10) N) universal)gencache) COMExceptionz&{00020813-0000-0000-C000-000000000046} IRtdServerIRTDUpdateEventc^\rSrSrSrS/r/SQr\Rr Sr Sr U4Sjr Sr S rS rS rS rS rSrSSjrSrSrSrSrSrSrU=r$)ExcelRTDServerHa Base RTDServer class. Provides most of the features needed to implement the IRtdServer interface. Manages topic adding, removal, and packing up the values for excel. Shouldn't be instanciated directly. Instead, descendant classes should override the CreateTopic() method. Topic objects only need to provide a GetValue() function to play nice here. The values given need to be atomic (eg. string, int, float... etc). Also note: nothing has been done within this class to ensure that we get time to check our topics for updates. I've left that up to the subclass since the ways, and needs, of refreshing your topics will vary greatly. For example, the sample implementation uses a timer thread to wake itself up. Whichever way you choose to do it, your class needs to be able to wake up occaisionally, since excel will never call your class without being asked to first. Excel will communicate with our object in this order: 1. Excel instanciates our object and calls ServerStart, providing us with an IRTDUpdateEvent callback object. 2. Excel calls ConnectData when it wants to subscribe to a new "topic". 3. When we have new data to provide, we call the UpdateNotify method of the callback object we were given. 4. Excel calls our RefreshData method, and receives a 2d SafeArray (row-major) containing the Topic ids in the 1st dim, and the topic values in the 2nd dim. 5. When not needed anymore, Excel will call our DisconnectData to unsubscribe from a topic. 6. When there are no more topics left, Excel will call our ServerTerminate method to kill us. Throughout, at undetermined periods, Excel will call our Heartbeat method to see if we're still alive. It must return a non-zero value, or we'll be killed. NOTE: By default, excel will at most call RefreshData once every 2 seconds. This is a setting that needs to be changed excel-side. To change this, you can set the throttle interval like this in the excel VBA object model: Application.RTD.ThrottleInterval = 1000 ' milliseconds r) ConnectDataDisconnectData Heartbeat RefreshData ServerStartServerTerminaterrc`>[TU]5 URUlSUl0Ulg) ConstructorN)super__init__ALIVEIsAlive_ExcelRTDServer__callbacktopicsself __class__s pC:\Users\julio\OneDrive\Documentos\Trabajo\Ideas Frescas\venv\Lib\site-packages\win32com/demos/excelRTDServer.pyrExcelRTDServer.__init__s' zz  cdURc [SS9eURR5 g)zCUse the callback we were given to tell excel new data is available.NzCallback excel provided is Nulldesc)rr UpdateNotifyrs r SignalExcelExcelRTDServer.SignalExcels( ?? "$EF F $$&r c,URU5URU'SnURUnUcSUR R -nOUR5nURU5 XS4$![an[[ U5S9eSnAff=f)z6Creates a new topic out of the Strings excel gives us.r"NTz# %s: Waiting for update) CreateTopicr Exceptionrstrr__name__GetValue OnConnectData)rTopicIDStrings GetNewValueswhyresults rr ExcelRTDServer.ConnectDatas .#'#3#3G#/$..2I2IIF__&F 7### .CH- - .sA22 B<BBc~URU5 XR;aSURU'URU gg)zDeletes the given topic.N)OnDisconnectDatarrr/s rrExcelRTDServer.DisconnectDatas9 g& kk !#'DKK  G$ "r cUR$)z+Called by excel to see if we're still here.)rr%s rrExcelRTDServer.Heartbeats ||r c[UR5nUR5 S/U-S/U-/n[URR 55H&up4UupVXRSU'UR 5USU'M( [ U5U4$)afPacks up the topic values. Called by excel when it's ready for an update. Needs to: * Return the current number of topics, via the "ByRef" TopicCount * Return a 2d SafeArray of the topic data. - 1st dim: topic numbers - 2nd dim: topic values We could do some caching, instead of repacking everytime... But this works for demonstration purposes.Nrr)lenr OnRefreshData enumerateitemsr-tuple)r TopicCountresultsidx topicdatatopicNumtopics rrExcelRTDServer.RefreshDatas%  6J&(;<( (9(9(; ||r cFURUlUR5 g)z%Called when excel no longer wants us.N) NOT_ALIVErOnServerTerminater%s rrExcelRTDServer.ServerTerminates~~   r c[S5e)zTopic factory method. Subclass must override. Topic objects need to provide: * GetValue() method which returns an atomic value. Will raise NotImplemented if not overridden. zSubclass must implementNotImplementedr TopicStringss rr)ExcelRTDServer.CreateTopics677r cg)z=Called when a new topic has been created, at excel's request.Nr7s rr.ExcelRTDServer.OnConnectData r cg)z?Called when a topic is about to be deleted, at excel's request.Nr\r7s rr6ExcelRTDServer.OnDisconnectDatar^r cg)z7Called when excel has requested all current topic data.Nr\r%s rr=ExcelRTDServer.OnRefreshDatar^r cg)z&Called when excel has instanciated us.Nr\r%s rrMExcelRTDServer.OnServerStartr^r cg)z)Called when excel is about to destroy us.Nr\r%s rrS ExcelRTDServer.OnServerTerminater^r )r __callbackrN)r, __module__ __qualname____firstlineno____doc___com_interfaces__public_methods_ pythoncomCLSCTX_INPROC_SERVER _reg_clsctx_rrRrr&r rrrrrr)r.r6r=rMrS__static_attributes__ __classcell__rs@rr r Hs)V%~11L EI' $&%*@"! 8      r r cJ^\rSrSrSrU4SjrSrSrSrSr Sr S r U=r $) RTDTopicizxBase RTD Topic. Only method required by our RTDServer implementation is GetValue(). The others are more for convenience.cJ>[TU]5 XlSUlSUlg)NF)rrrY_RTDTopic__currentValue_RTDTopic__dirty)rrYrs rrRTDTopic.__init__ s# (" r c[S5e)zCalled by the RTD Server. Gives us a chance to check if our topic data needs to be changed (eg. check a file, quiz a database, etc).zsubclass must implementrV)rsenders rUpdateRTDTopic.Updates677r cSUlg)z6Call when this topic isn't considered "dirty" anymore.FNryr%s rResetRTDTopic.Resets  r cUR$rh)rxr%s rr-RTDTopic.GetValues"""r cSUlXlg)NT)ryrx)rvalues rSetValueRTDTopic.SetValues #r cUR$rhrr%s r HasChangedRTDTopic.HasChanged#s ||r )rY__currentValue__dirty) r,rirjrkrlrr}rr-rrrrrsrts@rrvrvs+, 8 #$r rvcX^\rSrSrSrSrSrSrSrU4Sjr Sr S r S r S S jr S rU=r$) TimeServeri.a Example Time RTD server. Sends time updates back to excel. example of use, in an excel sheet: =RTD("Python.RTD.TimeServer","","seconds","5") This will cause a timestamp string to fill the cell, and update its value every 5 seconds (or as close as possible depending on how busy excel is). The empty string parameter denotes the com server is running on the local machine. Otherwise, put in the hostname to look on. For more info on this, lookup the Excel help for its "RTD" worksheet function. Obviously, you'd want to wrap this kind of thing in a friendlier VBA function. Also, remember that the RTD function accepts a maximum of 28 arguments! If you want to pass more, you may need to concatenate arguments into one string, and have your topic parse them appropriately. z&{EA7F2CF1-11A2-45E4-B2D5-68E240DB8CB1}zPython.RTD.TimeServerz8Python class implementing Excel IRTDServer -- feeds timeg?c>[TU]5 [R"URUR 5Ulgrh)rr threadingTimerINTERVALr}tickerrs rrTimeServer.__init__Ns*  oodmmT[[A r c8URR5 grh)rstartr%s rrMTimeServer.OnServerStartYs r cURRR5(dURR5 ggrh)rfinishedis_setcancelr%s rrSTimeServer.OnServerTerminate\s0{{##**,, KK   -r c[R"URUR5Ul[ UR 5(arSnUR R5H;nURU5 UR5(aSnUR5 M= U(aUR5 URR5 g!URR5 f=f)NFT) rrrr}rr<rvaluesrrr&r)rrefreshrFs rr}TimeServer.Update`soodmmT[[A  4;;![[//1ELL&''))"&KKM 2 $$& KK   DKK   s B CC5c[U5$)zGTopic factory. Builds a TimeTopic object out of the given TopicStrings.) TimeTopicrXs rr)TimeServer.CreateTopicrs &&r )rrh)r,rirjrkrl _reg_clsid_ _reg_progid_ _reg_desc_rrrMrSr}r)rrrsrts@rrr.s?0;K*LKJH B! $''r rc8^\rSrSrSrU4SjrSrSrSrU=r $)riwzExample topic for example RTD server. Will accept some simple commands to alter how long to delay value updates. Commands: * seconds, delay_in_seconds * minutes, delay_in_minutes * hours, delay_in_hours cP>[TU]U5 URuUlUl[UR5UlUR5Ul UR[UR55 g![ an[ S[U5-5eSnAff=f)NzInvalid topic strings: %s) rrrYcmddelayr* ValueErrorr+float timestamp checkpointr)rrYErs rrTimeTopic.__init__s & N#'#4#4 DHdj4::& ..* c$//*+ N83|;LLM M  NsA?? B% B  B%c>[RR5$rh)datetimenowr%s rrTimeTopic.timestamps  $$&&r cUR5nX R- nSnURS:XaURUR:aSnOxURS:XaUR UR:aSnOKURS:XaUR UR:aSnOURSUR-5 U(a!UR[U55 X lgg)NFsecondsTminuteshoursz#Unknown command: ) rrrrrrrrr+)rr|rdeltars rr}TimeTopic.Updatesnnoo% 88y }} * XX "}} * XX {{djj( MM.9 :  MM#c( #!O r )rrr) r,rirjrkrlrrr}rrrsrts@rrrws,"'""r r__main__)rlrrrowin32com.clientrIrrwin32com.server.exceptionrEXCEL_TLB_GUIDEXCEL_TLB_LCIDEXCEL_TLB_MAJOREXCEL_TLB_MINOR EnsureModuleRegisterInterfacesr rvrrr,win32com.server.registerserverregisterUseCommandLiner\r rrs@$2 : nnoW $% | | ~NF'F'R1"1"h z#  OO++J7r