Files
harbour-core/contrib/hbwin/tests/oletst3.bas
Viktor Szakats cef75de547 2016-01-15 15:20 UTC+0100 Viktor Szakats (vszakats users.noreply.github.com)
* *
    % remove brandings and homepage from copyright header. Pass 3 - manual.
    * project homepage and name is described in README, amongst others
    ; this should make the diff between 3.4 and 3.2 easier to manage
2016-01-15 15:21:27 +01:00

16 lines
437 B
QBasic

/*
* demonstration/test code for OLE server client which connects to
* Harbour OLE server working like xHarbour.com OLE servers described at
* http://xharbour.com/index.asp?page=add_on_oleserver&show_sub=7&show_i=1
* This client code is based on xHarbour.com client example published on
* above WWW page.
*/
DIM oObject
SET oObject = CreateObject( "MyOleServer" )
MsgBox oObject.MyFunc( "Hello", 123 )
MsgBox oObject.Property1