Hello, This code returns true. So i believe its working Sub Main Dim o1, o2, o3, o4 o1 = CreateUnoService("org.apache.aoo.cmisucp.CMISContentProvider") o2 = CreateUnoService("org.apache.aoo.cmisucp.CMISContentProvider") MsgBox EqualUnoObjects( o1, o2 ) End Sub
On Mon, Jul 1, 2013 at 9:18 AM, Rajath Shashidhara < rajaths.raja...@gmail.com> wrote: > Hello, > > I got this working. > THe problem was the I was using ComponentBase as SuperClass to > XSingleComponentFacotry... then changed it to weakbase. > > It worked!!!. > > > On Sun, Jun 30, 2013 at 11:46 PM, Juergen Schmidt > <jogischm...@gmail.com>wrote: > >> Am Sonntag, 30. Juni 2013 um 19:38 schrieb Rajath Shashidhara: >> > Hello, >> > >> > I was implementing XSingleComponentFactory to return only the same >> instance >> > of ucp. I was following the example provided by Ariel. >> > >> > But, when i follow his example, the ucp object returned by the UCB is >> not >> > corresponding to the ucp developed by me. >> > >> > >> > What could be the possible errors? >> hi Rajath, >> >> I will take a look into the code tomorrow, take a short break ;-) >> >> Juergen >> > >> > -- >> > Rajath S, >> > M.Sc(Hons.) Physics, >> > Birla Institute of Technology and Science - Pilani, >> > Pilani >> > >> > >> >> >> > > > -- > Rajath S, > M.Sc(Hons.) Physics, > Birla Institute of Technology and Science - Pilani, > Pilani > -- Rajath S, M.Sc(Hons.) Physics, Birla Institute of Technology and Science - Pilani, Pilani