HMGS-IDE 0.9.4.1 Released on 28th Sept 2009

CCH : From the HMG Extended Forum

Hi All,

The updated HMGS-IDE 0.9.4.1 binary and sources are published
at the following URL:
http://www.hmgextended.com/files/HMGS-IDE/ide.zip

There is the following changelog for this version:

2009-09-26: version 0.9.4.1
*Changed : Object Inspector allows to add user defined function to DYNAMICBACKCOLOR or DYNAMICFORECOLOR of Browse/Grid. Suggestion of Jaroslav Janik . Contribution by Grigory Filatov

Example of use:

*HMGS-MINIGUI-IDE Two-Way Form Designer Generated Code
*OPEN SOURCE PROJECT 2005-2009 Walter Formigoni http://sourceforge.net/projects/hmgs-minigui/

DEFINE WINDOW TEMPLATE AT 168 , 240 WIDTH 560 HEIGHT 400 TITLE "Hello World!" MAIN

DEFINE LABEL Label_1
ROW 170
COL 220
WIDTH 80
HEIGHT 21
VALUE "Hello World!!"
CENTERALIGN .T.
END LABEL

DEFINE GRID Grid_1
ROW 10
COL 40
WIDTH 240
HEIGHT 120
ITEMS {{"test1","test1"},{"test2","test2"},{"test3","test3"},{"test4","test4"},{"test5","test5"}}
VALUE 1
WIDTHS {90,90}
HEADERS {'Column1','Column2'}
DYNAMICBACKCOLOR {{||{200,200,100}},{||{200,200,10}}}
CELLNAVIGATION .T.
END GRID

END WINDOW

Your comments are welcome!

--
Kind Regards,
Grigory Filatov
[MiniGUI Team]

My First SQLite Project by Sudip

CCH : As contributed by Sudip at the HMG Forum
 
Hi Friends,

I just created my first SQLite project with facility to create databse, table and add, modify and delete records from a grid.

I added hbsqlit3 in Tools->Preferences->Additional Libraries textbox of IDE and made some changes in my old MySql project.

SQLite database app is ready!!!

Please download the source code

	SQLite.zip

, compile and test.

Warning! Source code contains many quick and dirty codes, as I want to share my first excitement with you all.

I used some codes with (major) modification taken from samples of Harbour Installation's Contrib folder and Minigui Extended Samples.

Please don't forget to send your comments as before.

With best regards.

Sudip


More at http://www.hmgforum.com/viewtopic.php?f=15&t=853

License Issue with MySql

An interesting discussion at the HMG Forum
http://www.hmgforum.com/viewtopic.php?f=12&t=852  on this issue initiated by Sudip.

[Harbour] HBNETIO - Production Application Usage

Date: Sun, 20 Sep 2009 22:22:08 -0700 (PDT)
From: Pritpal Bedi <bedipritpal@hotmail.com>
Subject: [Harbour] HBNETIO - Production Application Usage

Hello Everybody

Here is what I did to test my flagship application "Vouch"
under HBNETIO protocol concurrently with same system where
data resides, on LAN connected terminals with/without NETIO,
on real-time WEB-IP, and everything worked extremely fine.
The only issue worth reporting is the speed on WEB-IP
whic was 8 times slower than stand-alone and about
5 times slower than LAN.

ULTIMATELY - results were so satisfying that my clients
were noticeably impressed. And the credit goes to, PRZEMEK.
Thanks, you did a splendid job.

For WEB-IP we tested with this scenario:

1. Forwarded a port, #63000, on our wireless router.
2. Obtained a domain, vouch.dynalias.com, from DynDNS.com
3. Updated its IP with our server's IP.
4. Executed netiosrv.exe with  63000  192.168.1.108  c:\creative.v15
5. From the terminals invoked "Vouch.exe" with parameters
"vouch.dynalias.com" and "63000" through Vouch.ini.
6. Executed "Vouch.exe" as regular application as before from other
terminals and from same server station.

VOILA all went fine. One terminal employed was from out of the country.

All data updates, concurrent, were ok. All locks respected.

A big leap forward.

Regards
Pritpal Bedi

Latest HMGS-IDE 0.9.4 Released

CCH : From the HMG Extended Forum

Hi All,

The updated HMGS-IDE 0.9.4 binary and sources are published
at the following URL:
http://www.hmgextended.com/files/HMGS-IDE/ide.zip

There is the following changelog for this version:

2009-09-19: version 0.9.4
*Fixed : in mpmc.prg use of value wAddLibMinBccHb and wAddLibMinBccXhb. reported by Press <pressextra@gmail.com>
2009-09-18: version 0.9.3.1
*Fixed : TOOLTIP at adding a tab pages. Bug was reported by Paul Schlicher <paulschlicher@yahoo.com>. Contribution by Grigory Filatov <gfilatov@rambler.ru>

Your comments are welcome!

--
Kind Regards,
Grigory Filatov
[MiniGUI Team]

Harbour MiniGUI 1.7 Extended Edition (Build 73) Released

CCH : From the HMG Extended Forum

Hi All,

The Harbour MiniGUI 1.7 Extended Edition (Build 73) setup is published at the following URL:

http://hmgextended.com/files/CONTRIB/hmg-1.7-73-setup.zip

and the Lite build 73 at the following URL:

http://hmgextended.com/files/CONTRIB/hmg-1.7-73-setup-lite.zip

There is the following changelog for this build below:

2009/09/10: Build 73 (HMG 1.7 Extended Edition) Published.
* Fixed: Missing action of the Button control at the next focusing after
the GetBox control.
Reported by Ryszard Liska <softmar@softmar.poznan.pl>.
Contributed by Grigory Filatov <gfilatov@freemail.ru>
* Updated: Synchronized an Extended HMG with an Official HMG 2.9.4:
- Fixed. Multiple buttons having 'default button' style. Reported by
Vanguarda. Thanks to Grigory Filatov for help.
* Updated: MiniPrint library (see source in folder \Source\MiniPrint):
- New: Added FILLED clause in the PRINT RECTANGLE command.
Contributed by S.Rathinagiri <srgiri@dataone.in>.
Adapted for Minigui Extended by Grigory Filatov <gfilatov@freemail.ru>
* Updated: Adaptation FiveWin Class TSBrowse 7.0 in HMG:
- Fixed: Vertical scrollbar position for array with more 65535 elements.
Reported by Russian user.
Contributed by Grigory Filatov <gfilatov@freemail.ru>
* New: HMG_QHTM library (see source in folder \Source\QHTM).
Contributed by Vladimir Chumachenko <ChVolodymyr@yandex.ru>
(see demo in folder \samples\Advanced\qhtm)
* Updated: Harbour Compiler 2.0.0beta3 (SVN 2008-09-07 12:03).
Contributed by Grigory Filatov <gfilatov@freemail.ru>
(look at ReadMe.txt in folder \harbour and WhatsNew.txt in folder \harbour\doc)
* Updated: HMGS-IDE v.0.9.3. Project Manager and Two-Way Visual Form Designer.
Contributed by Walter Formigoni <walter.formigoni@uol.com.br>
(look at changelog.txt in folder \Ide)
* New: 'Joint usage of QHTM & SQLite3' sample.
Based upon a freeware Qhtm.Dll from the following URL:
http://www.gipsysoft.com/qhtm/freedownload.shtml.
Contributed by Vladimir Chumachenko <ChVolodymyr@yandex.ru>
(see in folder \samples\Advanced\qhtm_2)
* New: 'System services' sample. Contributed by Grigory Filatov <gfilatov@freemail.ru>
Based on code contributed by Rafa Carmona for Xailer.
(see in folder \samples\Advanced\WMI_Service_
2)
* Updated: OLE sample. Contributed by Grigory Filatov <gfilatov@freemail.ru>
(see in folder \samples\Basic\OLE)
* Updated: 'Multiple Combined Search Box' sample.
Based upon a contribution by Bicahi Esgici <esgici@gmail.com>
(see in folder \samples\Advanced\CombinedSearchBox)
* Updated: 'Directory Tree' sample (build tree of folders, files and archives).
Contributed by Vladimir Chumachenko <ChVolodymyr@yandex.ru>
(see in folder \samples\Advanced\DirTree)
* Updated: 'Game 15' sample. Contributed by Grigory Filatov <gfilatov@freemail.ru>
(see in folder \samples\Applications\GAME_15)

This release of MiniGUI is considered stable and ready for production use.

Your comments are welcome!

--
Best Regards,
Grigory Filatov
[MiniGUI Team]

[Harbour] HBNETIO - A Case Study by Pritpal Bedi

CCH : From the Harbour Developers List

Date: Mon, 7 Sep 2009 13:29:16 -0700 (PDT)

Hello All

Here are the steps I took to convert my flagship application "Vouch" ( a mini ERP solutions for a variety of verticals ) to honor HBNETIO lib along-with normal execution as ususal.

BACKDROP

I use configuration file vouch.ini to set various parameters of the application, which beside setting extended protocols, sets the data paths too. So at any given point of execution every table/index/other file always contain fully qualified path.

This principal I adopted and implemented in my applications always made my efforts to switch to different RDD's which a minimum efforts and changes in the source code. Even mixing different RDDs for different parts of the application are made possible and been used successfully.

A table when used has this format:
  c:\creative.ram\checks.dbf  [ index: c:\creative.ram\checks.z01 ]
  ^^^^^^^^^^                                   ROOT FOLDER
                        ^^^^^^^                   TABLE
       =>
  net:checks.dbf

  c:\creative.ram\cac00001\vpn453za.dbf
  c:\creative.ram\caccomon\defaults.dbf   , etc
  ^^^^^^^^^^                                   ROOT FOLDER
                        ^^^^^^^                    AREA OF OPERATION
                                        ^^^^^^^    TABLE NAME
       =>
  net:caccomon\defaults.dbf

For HBNETIO protocol I just changed the root data path of any
supported file [ .dbf | .z01 (CDX) ] [ which must reside on the
data server ] with "net:" and that's it.

I executed the netiosrv.exe as:
  c:\creative.acp\netio\netiosrv.exe  63000  0.0.0.0  c:\creative.ram

And included in vouch.exe:

  #if 1   /* Net IO Client-Server Protocol */
     IF INIVLW( "NetIOEnabled" )
        cNetIOServer := IniValue( 'NetIOServer' )
        cNetIOPort   := IniValue( 'NetIOPort'   )
        IF !empty( cNetIOServer ) .and. !empty( cNetIOPort )
           lSuccess  := netio_connect( cNetIOServer, val( cNetIOPort ) )
           uiDebug( "netio_connect()", lSuccess, cNetIOServer, cNetIOPort )
           uiDebug( " " )
        ENDIF
     ENDIF
  #endif

IniValue() parses the vouch.ini and keeps in static variable and
supplies a value as requested.

The other functions which I adjusted to change the root
folder to "net:" looks like this:

Function VouExistTable( cAlias, cFile, cPath, cDriver, lTemp )
  Local lRet := .f.

  DEFAULT lTemp TO .f.

  cFile := UPPER( trim( cFile ) )
  if right( cFile,4 ) == '.DBF'
     cFile := substr( cFile, 1, len( cFile )-4 )
  endif

  do case

  case lTemp
     lRet := file( cPath +'\'+ cFile + '.DBF' )

  case cDriver == 'SQLRDD'
     lRet := VouIsFile( cFile )

  case cDriver == 'CACHERDD'
     #ifdef __CACHE__
     lRet := CacheExistTable( cFile )
     #endif

  otherwise
     IF Vou_IsNetIO()
        IF right( cPath, 1 ) == ":"
           cFile := cPath + cFile + '.DBF'
        ELSE
           cFile := cPath +'\'+ cFile + '.DBF'
        ENDIF
     ELSE
        cFile := cPath +'\'+ cFile + '.DBF'
     ENDIF
     lRet := DbExists( cFile )

  endcase

  Return lRet

//----------------------------------------------------------------------//

Function VouExistIndex( cAlias, cFile, cPath, cDriver, lTemp )
  Local lRet := .f.

  DEFAULT lTemp TO .f.

  cFile := UPPER( trim( cFile ) )
  if right( cFile,4 ) == '.Z01'
     cFile := substr( cFile, 1, len( cFile )-4 )
  endif

  do case

  case lTemp
     lRet := file( cPath +'\'+ cFile + '.Z01' )

  case cDriver == 'SQLRDD'
     lRet := VouIsFile( cFile,.t. )

  case cDriver == 'CACHERDD'
     #ifdef __CACHE__
     lRet := CacheExistIndex( cFile )
     #endif

  otherwise
     IF Vou_IsNetIO()
        IF right( cPath, 1 ) == ":"
           cFile := cPath + cFile + '.Z01'
        ELSE
           cFile := cPath +'\'+ cFile + '.Z01'
        ENDIF
     ELSE
        cFile := cPath +'\'+ cFile + '.Z01'
     ENDIF
     lRet := DbExists( cFile )

  endcase

  Return lRet

//----------------------------------------------------------------------//

FUNCTION Vou_IsNetIO()

  IF INIVLW( 'NetIOEnabled' )
     RETURN .t.
  ENDIF

  RETURN .f.

/*----------------------------------------------------------------------*/

FUNCTION Get_Path( cAlias )
  LOCAL cPath, p

  IF !empty( p := get_d_attr( cAlias,D_PATH ) )
     cPath := eval( COMPILE( p ) )
  ELSE
     cPath := setWPath()
  ENDIF

  IF get_d_attr( cAlias, D_FILE_TYPE ) <> 9  /* Vouch Specific and on the
Client */
     cPath := Vou_AdjustPathToNetIO( cPath )
  ENDIF

  RETURN cPath

/*----------------------------------------------------------------------*/

FUNCTION Vou_AdjustPathToNetIO( cPath )
  LOCAL n, cPathL

  IF Vou_IsNetIO()
     cPathL := lower( cPath )
     IF left( cPathL, 4 ) != "net:"
        n := at( 'creative.',  cPathL )
        IF n > 0  // And it must be
           cPath := "net:" + substr( cPath, n + 13 )
        ENDIF
     ENDIF
  ENDIF

  RETURN cPath

//----------------------------------------------------------------------//


NOTE: the above code is a case study only and should not
        be used as is. However you may adopt the similar approach if
        you want to.


OTHER CHANGES YOU MAY REQUIRE
==========================
  You may also need to swich to following changes which work in both modes.

  FILE()       =>   DBEXISTS()
  FERASE()   =>   DBDROP()

THE OBSERVATION
==============
  netiosrv.prg

//------------------------------//
proc main( cPort, cServer, cRoot )
  local pListenSocket

  if empty( cPort )
     cPort := '63000'
  endif

  pListenSocket := netio_mtserver( val( cPort ), cServer, cRoot )

  if empty( pListenSocket )
     ? "Cannot start server."
  else
     wait "Press any key to stop NETIO server."
     netio_serverstop( pListenSocket )
     pListenSocket := NIL
  endif

  return
//------------------------------//

  netiosrv.prg => hbmk2 netiosrv.hbp => netiosrv.exe

  * Consumes very little memory footprint : 2.5 MB
  * Consumes very little CPU time even if many instances are logged : 3-5%
  * With each instance increase in memory : 16 KB
  * Reduces 16 kb with every instance if quits or is killed
  * Record|File locks a released instantlt if an instance holding them is
killed.

THE EXPECTATIONS
===============
  Would been nice if root path be automatically stripped
  if "net:" is found a part of the table name, i.e.,
     net:c:\creative.ram\cac00001\mytable.dbf
        =>
     net:cac00001\mytable.dbf
         where
     c:\creative.ram == netiosrv's root path

THE RESULTS
==========
  Amazing.
  Przemek, accept my hats off to this contribution.

  BUT it will be really heartening if you decide to finish NETRDD.
  The community is looking at NETRDD desperately.

Regards
Pritpal Bedi

Latest Harbour Unofficial Release - 5th Sept 2009

CCH : As pointed out by Massimo Belgrano 

From: Viktor Szakáts
To: Harbour Project Main Developer List.
Sent: Sunday, September 06, 2009 10:11 AM
Subject: [Harbour] Harbour 2.0.0beta3 (unofficial) available now

Hi All,

Harbour 2.0.0beta3 (r12422) source archives and Windows binary
releases are available for download here:
  http://syenar.hu/harbour/

Make sure to check INSTALL doc "QUICK START" section and visit
our user forums at: http://sourceforge.net/apps/phpbb/harbour-project/

Unofficial releases by Viktor Szakáts

Harbour 2.0.0beta3 (r12422) (2009-09-05)
for Windows x86, Windows x64, WinCE/ARM, MS-DOS, OS/2 and Linux platforms:

Binary - .7z archive (48MB)
Binary - .exe installer (54MB)
Source - .zip (13MB)