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