9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
17 lines
484 B
QBasic
17 lines
484 B
QBasic
/*
|
|
* Harbour Project source code:
|
|
* 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
|