81c9b0506c
* contrib/*
* Deleted 'www.' from harbour-project.org website name.
(www.harbour-project.org -> harbour-project.org)
42 lines
994 B
Plaintext
42 lines
994 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* demonstration/test code for NETIO-RPC OLE server client
|
|
*
|
|
* Copyright 2010 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#define NETSERVER "127.0.0.1"
|
|
#define NETPORT 2941
|
|
#define NETPASSWD "topsecret"
|
|
|
|
PROCEDURE Main()
|
|
LOCAL oObject
|
|
|
|
oObject := win_OleCreateObject( "MyOleRPCServer" )
|
|
|
|
IF !Empty( oObject )
|
|
IF oObject:connect( NETSERVER, NETPORT,, NETPASSWD )
|
|
? "Connected to the server:", NETSERVER
|
|
/* execute some functions on the server side and display
|
|
* the results.
|
|
*/
|
|
? oObject:upper( "hello world !!!" )
|
|
? "SERVER DATE:", oObject:DATE()
|
|
? "SERVER TIME:", oObject:TIME()
|
|
? "SERVER DATETIME:", oObject:HB_DATETIME()
|
|
ELSE
|
|
? "Cannot connect to the server:", NETSERVER
|
|
ENDIF
|
|
ELSE
|
|
? "Can not access 'MyOleRPCServer' OLE server."
|
|
ENDIF
|
|
|
|
WAIT
|
|
RETURN
|