On Tue, 25 May 2010, Pritpal Bedi wrote:

Hi,

> >> But the problem is when I am accessing its methods as such:
> >> Function Main()
> >>    Local oGraph, oServer
> >>    if !( CreateVouch32( @oServer ) )   
> >>       Return  nil
> >>    endif
> >>    oGraph := oServer:Vouch32GraphicsServer()    /* IT IS OK HERE */
> >>    oGraph:Create()    /* RTE -  See Below */
> >>    oGraph:Destroy()
> >>    Return nil
> > I think the RTE is in this line:
> >      oGraph := oServer:Vouch32GraphicsServer()    /* IT IS OK HERE */
> > If you remove the 4-rd .T. parameter from WIN_OleServerInit() then
> > this line will work successfully but your code will fail in this line:
> >      oGraph:Create()    /* RTE -  See Below */
> > because oGraph is NIL not OLE object. It will happen because I haven't
> > implemented so far automatic conversion of HVM object returned by OLE
> > methods to OLE objects.
> > Is above description correct?
> Absolutely yes. 

Fine. I've just added conversion of HVM objects returned by Harbour OLE
server methods to OLE objects. Please check after:
   2010-05-26 11:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
Sorry but I haven't tested it at all.

best regards,
Przemek
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to