Hi Mindaugas, For me array support is enough to cover passing arrays to OLE calls and maybe getting back arrays from OLE calls.
Full support in hbwin (xhb) is quite strange, f.e. there is such code in testole.prg: [ #xtranslate :<!Method!>( <args,...> ) := => :<Method>( <args> ):Value := ] #1 oAS:Cells( 3, 1 ) := "Explict DEFAULT Method Text:" #2 oAS:Cells[ 2, 3 ] += "!" #3 oAS:Cells( 4, 1 ):Value := "Numeric:" Three different ways next to each other to express the same thing, quite unclean. We should probably employ a syntax which works properly in all situations, whatever that syntax might be. Pbly array assignment is the one, but I also trust your judgement. Brgds, Viktor On Fri, Apr 24, 2009 at 10:47 PM, Mindaugas Kavaliauskas <[email protected] > wrote: > 2009-04-24 23:15 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) >> * harbour/contrib/hbole/olecore.c >> * harbour/contrib/hbole/oleauto.prg >> + implemented FOR EACH enumeration. The code was proposed by >> Przemyslaw on mailing list. Some fixes applied. >> > > > Hi, > > > I've put some hands on OLE again - added FOR EACH enumeration support. > Though, OLE does not support backward iteration. Should we ignore backward > (descending) iteration flag and do forward iteration, should we do not > iterate at all (current behavior), or should we give runtime error (which > one?)? > > I've tried to run contrib/hbole/tests/testole.prg code and work a little > for missing features. One of the first is array access operator. > > It can easy be implemented by adding: > ... > METHOD __Index( nIndex ) OPERATOR "[]" > ENDCLASS > > METHOD __Index( nIndex ) CLASS HB_OLEAUTO > RETURN ::Item( nIndex ) > > The feature is available in current code also, i.e. I can write: > oWorkbook:WorkSheets:Item(1) > Of cause > oWorkbook:WorkSheets[1] > looks more friendly, but don't we invent something new in OLE world. I've > tried to write a simple .vbs script. Visual basic does not accept > oWorkbook:WorkSheets[1] > It does accept: > oWorkbook:WorkSheets(1) > but this work also in current hbole implementation. That is array access > syntax in VB? Does it work for OLE collections? > > Ok, I can add the 3 lines and make a support for array access operation. > If you'll look to win_tole.prg, you'll see that implementation is more > complex than 3 lines proposed by me, it tries to handle array assign. It > tries to do it in two ways: using :_Item(), and using :SetItem(). If you > look to ICollection documentation you'll not find any of these collection > item assignment ways documented. ICollection supports Item(), AddAt(), > AddItem() methods, but no SetItem(). This is why, I do not want to implement > these array assignment syntax. But do we need array access syntax? How does > it work on OLE automation object in other languages? > > > Regards, > Mindaugas > > > _______________________________________________ > Harbour mailing list > [email protected] > http://lists.harbour-project.org/mailman/listinfo/harbour >
_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
