2010-01-11 16:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

+ harbour/contrib/hbnetio/tests/netiot02.prg
    + added yet another example of NETIO client.
      It needs netiosrv executed on the same machine,
      see comments inside this code for details.

harbour/ChangeLog

@@ -17,6 +17,12 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-11 16:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  + harbour/contrib/hbnetio/tests/netiot02.prg
+    + added yet another example of NETIO client.
+      It needs netiosrv executed on the same machine,
+      see comments inside this code for details.
+
 2010-01-11 14:10 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/hbnetio/tests/netiotst.prg
     * added netio_disconnect() to test code

harbour/contrib/hbnetio/tests/netiot02.prg

@@ -0,0 +1,79 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ *    demonstration/test code for RPC in NETIO
+ *
+ * Copyright 2010 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
+ * www - http://www.harbour-project.org
+ *
+ */
+
+
+/* to execute this code run server (netiosrv) on the same machine
+ * with support for RPC and "topsecret" password, i.e.:
+ *    netiosrv "" "" "" 1 topsecret
+ * then you can try to execute this code.
+ * If you want to execute remotely any core functions then
+ * uncomment this like in netiosrv.prg:
+ *    REQUEST __HB_EXTERN__
+ * and rebuild it or link netiosrv with Harbour dynamic library
+ * (-shared hbmk2 switch)
+ */
+
+
+/* few PP rules which allow to execute RPC function using
+ * pseudo object 'net', i.e. ? net:date()
+ */
+#xtranslate net:<!func!>([<params,...>]) => ;
+            netio_funcexec( #<func> [,<params>] )
+#xtranslate net:[<server>]:<!func!>([<params,...>]) => ;
+            netio_funcexec( [ #<server> + ] ":" + #<func> [,<params>] )
+#xtranslate net:[<server>]:<port>:<!func!>([<params,...>]) => ;
+            netio_funcexec( [ #<server> + ] ":" + #<port> + ":" + #<func> ;
+                            [,<params>] )
+
+#xtranslate net:exists:<!func!> => ;
+            netio_procexists( #<func> )
+#xtranslate net:exists:[<server>]:<!func!> => ;
+            netio_procexists( [ #<server> + ] ":" + #<func> )
+#xtranslate net:exists:[<server>]:<port>:<!func!> => ;
+            netio_procexists( [ #<server> + ] ":" + #<port> + ":" + #<func> )
+
+
+/* address of computer executing netiosrv,
+ * change it if it's not the same machine
+ */
+#define NETSERVER  "127.0.0.1"
+#define NETPORT    2941
+#define NETPASSWD  "topsecret"
+
+
+proc main()
+
+   /* connect to the server */
+   ? "CONNECTING..."
+   ? "NETIO_CONNECT():", netio_connect( NETSERVER, NETPORT,, NETPASSWD )
+   ?
+   /* check if some function are available on server side */
+   ? "DATE() function is supported:",        net:exists:DATE
+   ? "QOUT() function is supported:",        net:exists:QOUT
+   ? "HB_DATETIME() function is supported:", net:exists:HB_DATETIME
+   ?
+   /* display text on server console */
+   net:QOUT( repl( "=", 70 ) )
+   net:QOUT( "This is RPC TEST", hb_datetime(), version() )
+   net:QOUT( repl( "=", 70 ) )
+
+   /* execute some functions on the server side and display the results */
+   ? "SERVER DATE:",     net:DATE()
+   ? "SERVER TIME:",     net:TIME()
+   ? "SERVER DATETIME:", net:HB_DATETIME()
+   ? net:upper( "hello world !!!" )
+   ?
+
+   /* close the connection to the server */
+   ? "NETIO_DISCONNECT():", netio_disconnect( NETSERVER, NETPORT )
+return