Wednesday, November 17, 2010

Harbour MiniGUI 1.9 Extended Edition (Build 90) Released on 17 November 2010

CCH: From the HMG Extended Forum 


Hi All,

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

http://hmgextended.com/files/CONTRIB/hmg-1.9-90-setup.zip

There is the following changelog for this build:

2010/11/17: Build 90 (HMG 1.8 Extended Edition) Published.
* New: Maintenance of OnGotFocus, OnLostFocus, OnChange and OnDblClick events at runtime:
- function syntax:
SetProperty ( Form, Control, 'OnGotFocus', {|| MsgInfo('New action')} )
SetProperty ( Form, Control, 'OnLostFocus', {|| MsgInfo('New action')} )
SetProperty ( Form, Control, 'OnChange', {|| MsgInfo('New action')} )
SetProperty ( Form, Control, 'OnDblClick', {|| MsgInfo('New action')} )
- pseudo-OOP syntax:
Form.Control.OnGotFocus := {|| MsgInfo('New action')}
Form.Control.OnLostFocus := {|| MsgInfo('New action')}
Form.Control.OnChange := {|| MsgInfo('New action')}
Form.Control.OnDblClick := {|| MsgInfo('New action')}
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(see demo in folder \samples\Basic\checkbox)
* New: Windows supports now the TitleBar, SysMenu, Sizable, MaxButton, MinButton properties.
You can set/get these properties at runtime:
- function syntax:
SetProperty ( Form, 'TitleBar', lLogical )
GetProperty ( Form, 'TitleBar' )
- pseudo-OOP syntax:
Form.TitleBar := lLogical
Form.TitleBar --> logical value
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(see demo in folder \samples\Basic\MAINDEMO_(
SYNTAX_I))
* Enhanced: Windows supports getting of the TOPMOST property:
- function syntax:
GetProperty ( Form, 'TopMost' )
- pseudo-OOP syntax:
Form.TopMost --> logical value
Contributed by Grigory Filatov <gfilatov@inbox.ru>
* Changed: Remove unneeded double using of macro-operator in the following internal functions:
- GetWindowType();
- _IsWindowActive();
- _IsWindowDefined();
- GetFormName();
- GetFormToolTipHandle();
- GetFormHandle();
- GetControlName();
- GetControlHandle();
- GetControlContainerHandle();
- GetControlParentHandle();
- GetControlId();
- GetControlType();
- GetControlValue();
- _GetControlWidth();
- _GetControlHeight();
- GetControlPageMap().
Contributed by Grigory Filatov <gfilatov@inbox.ru>
* Changed: Replacing the cycles For-Next with For Each-Next or array evaluation of codeblock
for improvement of the speed in the some internal functions.
Contributed by Grigory Filatov <gfilatov@inbox.ru>
* Changed: Using a simple C-function hb_Date() instead of a bulky top-level expression for
getting the 'Value' property in the MonthCal and DatePicker controls.
Contributed by Grigory Filatov <gfilatov@inbox.ru>
* Changed: Small correction of error handling in the internal function _ActivateAllWindows().
Contributed by Grigory Filatov <gfilatov@inbox.ru>
* Changed: Small corrections of default values in the internal function _Execute().
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(see demo in folder \samples\Basic\EXECUTE)
* Changed: Simplify internal handling of MessageBox functions:
- Added internal function _MsgBox().
Contributed by Grigory Filatov <gfilatov@freemail.ru>
(see demo in folder \samples\Basic\MsgBox)
* Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:
- A new method RefreshARow (nRow) allows you to refresh any row in the table and
if it is just shown it does not flickering windows;
- Small correction in the method UpAStable (added update of the array length);
- Improve the display of the last rows of the database or table when you use the slider to move;
- Added parameter 'lAll' in Method DeleteRow() by calling a block :bDelete.
Contributed by Janusz Pora <januszpora@onet.eu>
* Updated: Harbour Compiler 2.1.0beta2 (SVN 2010-11-16 10:29):
* Updated: most important differences between Harbour and xHarbour
(see xhb-diff.txt in folder \harbour\doc);
* Updated: SddOdbc library source code (see in folder \Source\HbSqlDD);
* Updated: HbODBC library source code (see in folder \Source\HbODBC);
* Updated: HbSQLite3 library source code (see in folder \Source\HbSQLite3);
* Updated: HbZipArc library source code (see in folder \Source\HbZipArc).
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(look at ReadMe.txt in folder \harbour)
* New: 'Data Base Assistant' utility.
Based upon a contribution by Bicahi Esgici <esgici@gmail.com>.
Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru>
(see in folder \Utils\DBA)
* Updated: 'Calendar' sample by Javier Giralda <giraldfj@yahoo.es>.
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(see in folder \samples\Basic\Calendar)
* Updated: 'Richedit' sample:
- added richedit controls context menu.
Contributed by Jacek Kubica <kubica@wssk.wroc.pl>
(see in folder \samples\Basic\Richedit)
* Updated: 'NirCmd Dll Usage' sample is based upon the NirCmd.dll from
http://www.nirsoft.net/utils/nircmd.html.
Contributed by Grigory Filatov <gfilatov@inbox.ru>
(see in folder \samples\Advanced\NirCmdDll)

This release of MiniGUI is considered stable and ready for production use.
Upgrading from all other releases is recommended. We don't provide the support for oldest builds.

Your comments/feedback are welcome!

--
Best Regards,
Grigory Filatov
[MiniGUI Team]

Wednesday, November 3, 2010

Is it possible to send message to mobile through our app?

Q. By Sudip. Is it possible to send message to mobile through our app?

A. By Mahmoud Fayed

Yes you can and i have done that 6 months ago

Buy GSM-Modem
This device comes with DLL file contains functions to send and recive SMS messages
Just you need to study this simple API to use the device and start sending/reciveing the SMS messages from your application

This is my code in HarbourMiniGUI to send SMS messages based on GMS-Modem API (DLL Functions)


#include "MiniGUI.ch"

function main()
if !iswindowdefined( win1 )
DEFINE WINDOW win1 ;
AT 10 ,10 ;
WIDTH 881 ;
HEIGHT 488 ;
ICON "PWCTICON" ;
TITLE "smstest" ;
MAIN ;
BACKCOLOR {236,233,216}
@ 369 ,126 BUTTONEX btn1;
CAPTION "Send Message";
ON CLICK SMSSend()  ;
WIDTH 150 HEIGHT 40 ;
FONT "Arial" SIZE 14 ;
TOOLTIP ""
@ 75 ,20 LABEL lbl1 ;
VALUE "port" ;
WIDTH 100 ;
HEIGHT 20 ;
FONT "Arial" SIZE 9  ;
BACKCOLOR {236,233,216} ;
FONTCOLOR {0,0,0}
@ 121 ,19 LABEL lbl2 ;
VALUE "phone Number" ;
WIDTH 100 ;
HEIGHT 20 ;
FONT "Arial" SIZE 9  ;
BACKCOLOR {236,233,216} ;
FONTCOLOR {0,0,0}
@ 165 ,19 LABEL lbl3 ;
VALUE "Message" ;
WIDTH 100 ;
HEIGHT 20 ;
FONT "Arial" SIZE 9  ;
BACKCOLOR {236,233,216} ;
FONTCOLOR {0,0,0}
@ 118 ,128 TEXTBOX text1;
HEIGHT 30 ;
WIDTH 200 ;
BACKCOLOR {255,255,255} ;
FONTCOLOR {0,0,0} ;
INPUTMASK ""
@ 158 ,127 EDITBOX edit1;
WIDTH 330 ;
HEIGHT 200;
VALUE "SMS Message test using PWCT" ;
FONT "Arial" SIZE 9 ;
BACKCOLOR {255,255,255} ;
FONTCOLOR {0,0,0}
@ 72 ,128 COMBOBOX combo1;
WIDTH 200 ;
HEIGHT 300;
ITEMS {"COM1","COM2","COM3","COM4","
COM5","COM6","COM7","COM8"} ;
VALUE 1 ;
FONT "Arial" SIZE 14 ;
BACKCOLOR {255,255,255} ;
FONTCOLOR {0,0,0}
@ 97 ,471 EDITBOX edit2;
WIDTH 251 ;
HEIGHT 255;
FONT "Arial" SIZE 9 ;
BACKCOLOR {255,255,255} ;
FONTCOLOR {0,0,0}
@ 71 ,468 LABEL lbl4 ;
VALUE "Log" ;
WIDTH 100 ;
HEIGHT 20 ;
FONT "Arial" SIZE 9  ;
BACKCOLOR {236,233,216} ;
FONTCOLOR {0,0,0}
@ 371 ,407 BUTTONEX btn2;
CAPTION "Read";
ON CLICK myread()  ;
WIDTH 100 HEIGHT 30 ;
FONT "Arial" SIZE 14 ;
TOOLTIP ""
@ 12 ,19 BUTTONEX btn3;
CAPTION "Start";
ON CLICK mystart()  ;
WIDTH 100 HEIGHT 30 ;
FONT "Arial" SIZE 14 ;
TOOLTIP ""
DEFINE TIMER Timer1 INTERVAL 1000 ;
Action myread()
@ 410 ,292 BUTTONEX btn4;
CAPTION "Close Service";
ON CLICK myend()  ;
WIDTH 150 HEIGHT 30 ;
FONT "Arial" SIZE 14 ;
TOOLTIP ""
END WINDOW
win1.timer1.Enabled := false
ACTIVATE WINDOW win1
EndIF
return

Proc SMSSend
cNumber := win1.text1.Value
cMessage := win1.edit1.Value
myout = CALLDLL32("SMSSendMessage","SMSDLL.DLL",cMessage,cNumber)
cLog := win1.edit2.Value
cLog := cLog + CHR(13) + CHR(10) + "Message sent"
win1.edit2.Value := cLog
Return Nil

Proc myread
win1.timer1.Enabled := false
cLog := win1.edit2.Value
Public mymsg
mymsg := space ( 320 )
myout = CALLDLL32("SMSGetNextMessage","SMSDLL.DLL",@mymsg)
IF myout != 0
cLog := cLog + CHR(13) + CHR(10) + mymsg
win1.edit2.Value := cLog
ENDIF
win1.timer1.Enabled := true
Return Nil

Proc MYEND
myout = CALLDLL32("SMSStopSerice","SMSDLL.DLL",NIL)
Return Nil
Proc mystart
nPort := win1.combo1.Value
myout = CALLDLL32("SMSStartService","SMSDLL.DLL",nPort,115200,2,8,0,0,"+966505031999")
IF myout = 1
cLog := win1.edit2.Value
cLog := cLog + CHR(13) + CHR(10) + "Connection Done (True)"
win1.edit2.Value := cLog
win1.timer1.Enabled := true
ELSE
Return 0
ENDIF
Return Nil

Download this sample
http://sourceforge.net/projects/doublesvsoop/files/PWCT%20For%20MS-Windows/PWCT%20Samples/English/Fayed_PWCTSamples_SendSMS.zip/download

You will find the DLL file + PDF include model (F1003 GSM Modem) + Source code (Developed using PWCT but you will find the .PRG File so you can get the HarbourMiniGUI source code and compile it without the need to install PWCT)

Greetings,
Mahmoud Fayed
http://doublesvsoop.sourceforge.net

Welcome to Clipper... Clipper... Clipper


In 1997, then using Delphi 3, I had already created 32-bits Windows applications for HRIS, ERP and CRM. In 2007, using Ruby on Rails, an AJAX powered CRM site running on Apache & MySQL was created and I am now using Visual Studio .Net 2008 to create web-based projects and Delphi 7 for Win32 applications using SQL2005 & DBFCDX.

So, why then am I reviving the Original Clipper... Clipper... Clipper via a Blog as CA-Clipper is a programming language for the DOS world ? Believe it or not, there are still some clients using my mission-critical CA-Clipper applications for DOS installed in the late 80's and up to the mid 90's. This is testimony to CA-Clipper's robustness as a language :-)

With the widespread introduction of Windows 7 64-bits as the standard O/S for new Windows based PCs & Notebooks, CA-Clipper EXE simply will not work and it has become imperative for Clipper programmers to migrate immediately to Harbour to build 32/64 bits EXEs

Since 28th January 2009, this blog has been read by 134,389 (10/3/11 - 39,277) unique visitors (of which 45,151 (10/3/11 - 13,929) are returning visitors) from 103 countries and 1,574 cities & towns in Europe (37; 764 cities), North America (3; 373 cities) , Central America & Caribeans (6; 13 cities), South America(10; 226 cities), Africa & Middle-East (12; 44 cities) , Asia-Pacific (21; 175 cities). So, obviously Clipper is Alive & Well : -)


TIA & Enjoy ! (10th October 2012, 11:05; 13th November 2015)


Original Welcome Page for Clipper... Clipper... Clipper

This is the original Welcome Page for Clipper... Clipper... Clipper, which I am republishing for historical and sentimental reasons. The only changes that I have made was to fix all the broken links. BTW, the counter from counter.digits.com is still working :-)

Welcome to Chee Chong Hwa's Malaysian WWW web site which is dedicated to Clipperheads throughout the world.

This site started out as a teeny-weeny section of Who the heck is Chee Chong Hwa ? and has graduated into a full blown web site of more than 140 pages (actually hundreds of A4 size pages) ! This is due to its growing popularity and tremendous encouragements from visiting Clipperheads from 100 countries worldwide, from North America, Central America, Caribbean, South America, Europe, Middle-East, Africa and Asia-Pacific. Thanx Clipperheads, you all made this happen !


What is Clipper ?

You may ask, what is this Clipper stuff ? Could Clipper be something to do with sailing as it is the name of a very fast sailing American ship in the 19th century ?

Well, Clipper or to be precise, CA-Clipper is the premier PC-Software development tool for DOS. It was first developed by Nantucket Corporation initially as a compiler for dBase3+ programs. Since then, CA-Clipper has evolved away from its x-base roots with the introduction of lexical scoping & pre-defined objects like TBrowse. As at today, the most stable version ofClipper is 5.2e while the latest version, 5.3a was introduced on 21 May 1996.

As at 11th November, 1996, an unofficial 5.3a fixes file was made available by Jo French. See the About CA-Clipper 5.3a section for more details. BTW, Jo French uploaded the revised 5.3a fixes file on 20th November, 1996.

Latest News

The latest news is that CA has finally released the long-awaited 5.3b patch on 21 May, 1997.

For 5.3b users, you must a take a look at Jo French's comments on unfixed bugs in 5.3b.

BTW, have you used Click ? If you're a serious Clipperprogrammer and need an excellent code formatter, Click is a natural choice. How to get it ? Simple, access Phil Barnett's site via my Cool Clipper Sites.

32-bits Clipper for Windows ?

Have you tried Xbase ++ ? Well, I have and compared to Delphi (my current Windows programming tool of choice), I'm still sticking to Delphi.

Anyway, you should visit the Alaska Home Page. Give it a chance and then draw your own conclusions !.

The Harbour Project

Is this the future of Xbase ? Take a look at at the Harbour Project

You are Visitor # ...

According to counter.digits.com, you are visitor since 3 June 1996.

If you like or dislike what you see on this website, please drop me a line by clicking the email button at the bottom of this page or better still, by filling out the form in my guest book. If you are not sure what to write,click here to take a look at what other Clipperheads have to say.