58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
29 lines
795 B
Plaintext
29 lines
795 B
Plaintext
/*
|
|
* 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.
|
|
*/
|
|
|
|
#require "hbwin"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oObject
|
|
|
|
BEGIN SEQUENCE WITH {|| Break() }
|
|
oObject := CreateObject( "MyOleServer" )
|
|
? oObject:MyMethod( "Hello", 123, .T., ;
|
|
{ hb_DateTime(), 123.45, { Date(), 2, 3 } } )
|
|
? oObject:Property1
|
|
oObject:Property1 := "!!! >>>" + Upper( oObject:Property1 ) + "<<< !!!"
|
|
? oObject:Property1
|
|
RECOVER
|
|
? "Can not access 'MyOleServer' OLE server."
|
|
END SEQUENCE
|
|
|
|
WAIT
|
|
|
|
RETURN
|