Przemysław Czerpak wrote:
> 
> You should simply use:
> 
>    WIN_OleServerInit( CLS_ID, CLS_Name, {|| Vouch32ActiveX():new() } )
> 
> or because Vouch32ActiveX object does not have any instance variables
> to safe some memory and increase a little bit the speed you can use
> only one HVM Vouch32ActiveX object for all OLE object:
> 
>    WIN_OleServerInit( CLS_ID, CLS_Name, Vouch32ActiveX():new() )
> 
> Both versions will work for you.
> 

Done. 



>> 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. 


-----
     enjoy hbIDEing...
        Pritpal Bedi 
http://hbide.vouch.info/
-- 
View this message in context: 
http://harbour-devel.1590103.n2.nabble.com/SF-net-SVN-harbour-project-14593-trunk-harbour-tp5100733p5102006.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to