Antonio has done various (very good) attempts.
I hope that this, be the one driving xBase to mainstream again.
AFAIR you can't install a new Apache module on standard web hosting providers. Is this true?
Moderator: Rathinagiri
Antonio has done various (very good) attempts.
I really hope so.
Code: Select all
function page_home()
HTML
<html>
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.1.3/css/bootstrap.min.css" integrity="sha384-MCw98/SFnGE8fJT3GXwEOngsV7Zt27NXFoaoApmYm81iuXoPkFOJwJ8ERdknLPMO" crossorigin="anonymous">
<title>Harbour for Web</title>
</head>
<body style="padding:100px;">
<div class="jumbotron">
<h1 class="display-4">Welcome to the future!</h1>
<p class="lead">New mod_harbour for Apache!</p>
<hr class="my-4">
<p>Let's move on to the future together!</p>
<p>It's harbour for Apache!</p>
<a class="btn btn-primary btn-lg" href="form.prg" role="button">Back to login</a>
</div>
</body>
</html
ENDTEXT
return nil
Code: Select all
INIT WINDOW oWnd
BEGIN LAYOUT oLayV SIZE MATCH_PARENT,MATCH_PARENT
TEXTVIEW oText0 TEXT "HDroidGUI Demo" SIZE MATCH_PARENT,32
oText0:nAlign := ALIGN_VCENTER
BROWSE oBrw ARRAY aSamples SIZE MATCH_PARENT, MATCH_PARENT ;
BACKCOLOR "#C7C7C7"
END LAYOUT oLayV
ACTIVATE WINDOW oWnd
Code: Select all
#include 'hmg.ch'
Function Main()
Define Form Header 'This is a Header' Footer 'This is The Footer'
// To make the link to the image file work, we must point it,
// to the server document root ('/') where it is located (apache/htdocs).
Define Image 'image_1'
Value '/hmg.jpg'
End Image
Define Text 'text_1'
Value 'this is another text!!!'
Label 'Input Text:'
End Text
Define Password 'pass_1'
Value '1234'
Label 'Password:'
End Password
Define Flip 'flip_1'
Value .T.
Label 'Flip!'
Options {'No','Yes'}
End Flip
Define Radio 'radio_1'
Label 'Radio:'
Options {'Moe','Larry','Curly'}
Default 1
End Radio
Define TextArea 'textarea_1'
Value 'This is a TextArea'
Label 'TextArea:'
End TextArea
Define Date 'date_1'
Value DATE()
Label 'Enter Date:'
End Date
Define Number 'num_1'
Min 1
Max 10
Value 5
Label 'Input Number (1-10):'
End Number
Define Select 'select_1'
Options {'One','Two','Three'}
Default 2
Label 'Select an Option:'
End Select
Define CheckBox 'check_1'
Value .T.
Label 'CheckBox!'
End CheckBox
* The function SetFormData(cName,cValue) allows to send a value to the server
* procedure when a session is not active (character only).
* The value can be retrieved via GetValue() function.
* When a session is active, use SetGlobal / GetGlobal (any data type).
SetFormData( 'testvar', 'Hello!' )
Define Submit 'submit_1'
Value 'Send Form Data To Server'
Action 'bye.cgi'
End Submit
Define Reset 'reset_1'
Value 'Undo Changes'
End Reset
Define Submit 'submit_2'
Value 'Go To Demos Menu'
Action 'menu.cgi'
End Submit
End Form
Return Nil
I don't know your number, but I'll send you a mail... I'm a very curious person
Roberto Sir, you are generousRoberto Lopez wrote: ↑Fri Jul 05, 2019 1:49 am I've forgot another another of my web concepts (HMGWEB). A Harbour-CGI developmet tool capable of generate jQuery Mobile (responsive) interfces. Maybe someone could give it a new use (https://sourceforge.net/projects/hmgweb/).
I've created five open source projects:bpd2000 wrote: ↑Fri Jul 05, 2019 5:03 amRoberto Sir, you are generousRoberto Lopez wrote: ↑Fri Jul 05, 2019 1:49 am I've forgot another another of my web concepts (HMGWEB). A Harbour-CGI developmet tool capable of generate jQuery Mobile (responsive) interfces. Maybe someone could give it a new use (https://sourceforge.net/projects/hmgweb/).
But after the launch of a new project you stop development of said project [See https://sourceforge.net/projects/hmgweb/files/ last modified 2014/03/13]
Where as Antonio Linares is continuously improving the Harbour related project
Thank you, Sir, My aim was not to hurt anybodyRoberto Lopez wrote: ↑Fri Jul 05, 2019 11:10 pm I've created apps using HMGWEB, HMGSCRIPT and JMG for some of my customers. These libraries are fully functional and very useful. My preferred one now is JMG. In fact, I'm developing a mobile app for inventory control, using it right now.
Code: Select all
StartFormDefinition( cFormName, cSubmitPage )
TextBox( cTextBoxName, cDefaultText, cTextBoxType )
ComboBox( cComboBoxName, aItems, nDefault )
DatePicker( cDatePickerName, dDefaultDate )
Grid( cGridName, aHeader, aItems, lAllowSelect )
... Other control definitions
EndFormDefinition()