cef75de547
* *
% 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
16 lines
437 B
QBasic
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
|