Page 1 of 1
Call HTML form in FWH application
Posted: Fri May 21, 2021 6:21 pm
by TimStone
I would like to display an HTML form from within a Win32 Desktop application ( NOT MOD_HARBOUR PLEASE )
From a website the following is called:
<form name=”PrePage” method = “post” action = “https://SourceServer.com/payment/Catalog.aspx”>
<input type = “hidden” name = “LinkId” value =”jiehiu378208kijfiiuie” />
<input type = “image” src =”//content.SourceServer.com/images/getit.gif” /></form>
Though I use this on my server now, hackers are trying to access it. The last time they did it, they diverted payments to their PayPal account ( knowing PP lets them get away with the theft ). I want to remove the "Store" from my website completely and have the access only in my application which is NOT web based.
Re: Call HTML form in FWH application
Posted: Fri May 21, 2021 7:46 pm
by rhlawek
Tim,
I don't think I completely understand the ask. What exactly do you want to be able to do from your application?
Re: Call HTML form in FWH application
Posted: Fri May 21, 2021 8:22 pm
by TimStone
On a website, I define a popup form with the code I provided. That links to a secured credit card gateway. It is an HTML form.
I want to have a menu option in my program that will popup the same form. Yes, it would display it in the default web browser on that computer, and the individual would then process the form ( on that same browser ).
I need to pass that entire script to the web browser from within the program. Right now it's easy to call websites, but I don't pass all the extra information. For Example:
ACTION ShellExecute( nil, "open", "http://fivetech.com" ) will open that website, but how can I pass the data above to open a form in the browser ?
Re: Call HTML form in FWH application
Posted: Fri May 21, 2021 8:54 pm
by Marc Venken
Tim,
I was also looking for showing html from FW and I found this function on the forum and was playing with it.
I put your form insite the html file you have to put in the samples dir of you choise (change the path in the prg)
It seem to put the data into the form, but dos not send. It can however be a starting point from where to look.
Code: Select all | Expand
#include "FiveWin.ch"
#Define OLECMDID_PRINT 6
#Define OLECMDEXECOPT_PROMPTUSER 1
#Define OLECMDEXECOPT_DONTPROMPTUSER 2
Function Main()
local oWnd, oActiveX1, oActiveX2, cTemp
cTemp = '<head><link rel="stylesheet" href="temp.css"></head><table class="styled-table"><thead><tr><th>36</th><th>38</th>'
cTemp += '<th>40</th><th>42</th><th>44</th></tr></thead><tbody><tr><td></td><td>1</td><td>1</td><td>1</td><td>2</td></tr></tbody></table>'
DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"
//@ 10, 10 ACTIVEX oActiveX1 PROGID "Shell.Explorer" OF oWnd SIZE 500, 150
@ 5, 5 BUTTON "&OK" OF oWnd SIZE 40, 12 ACTION drukhtml()
//oActiveX1:Do( "Navigate2", "c:\fwharb\samples\temp.html" )
ACTIVATE WINDOW oWnd
return nil
function drukhtml()
cHtml:= "c:\fwharb\samples\temp.html"
printhtml(cHtml,1,.t.)
return nil
FUNCTION PrintHtml(cHtmlOrUrl,nCopies,lShow)
static oWnd1:=nil, oBar, oIe
local i
default lShow:=.f.,nCopies:=1
if oWnd1=nil
DEFINE WINDOW oWnd1
DEFINE BUTTONBAR oBar OF oWnd1
DEFINE BUTTON OF oBar;
PROMPT 'Print'
endif
oIe = TActiveX():New( oWnd1, "Shell.Explorer" )
oIe:Do( "Navigate2", cHtmlOrUrl)
if lshow
oWnd1:oClient = oIe
ShowWindow(oWnd1, 1 ) && 1=Show,0=hide
ACTIVATE WINDOW oWnd1
oWnd1:Center()
endif
sysrefresh()
RETURN nil
FUNCTION PrintHtml2(cHtmlOrUrl,nCopies,lShow)
static oWnd:=nil, oBar, oIe
local i
default lShow:=.f.,nCopies:=1
if oWnd=nil
DEFINE WINDOW oWnd
DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON OF oBar;
PROMPT 'Print';
ACTION oIe:Do( "ExecWB", OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER )
oIe = TActiveX():New( oWnd, "Shell.Explorer" )
endif
oIe:Do( "Navigate2", cHtmlOrUrl)
do while alltrim(oIe:document:readyState) <> 'complete'
sysrefresh()
waitseconds(.5)
enddo
if lshow
oWnd:oClient = oIe
ShowWindow(oWnd, 1 ) && 1=Show,0=hide
ACTIVATE WINDOW oWnd
oWnd:Center()
else
for i=1 to nCopies
msgwait('Printing large receipt (' + alltrim(str(i)) + ' of '+alltrim(str(nCopies))+' copies).',,2)
oIe:Do( "ExecWB", OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER )
next i
endif
sysrefresh()
RETURN nil
temp.html has folowing code inside :
<form name=”PrePage” method = “post” action = “https://SourceServer.com/payment/Catalog.aspx”>
<input type = “hidden” name = “LinkId” value =”jiehiu378208kijfiiuie” />
<input type = “image” src =”//content.SourceServer.com/images/getit.gif” /></form>
Re: Call HTML form in FWH application
Posted: Sat May 22, 2021 12:52 am
by rhlawek
Perhaps write the .html to a local file then pass that file name into ShellExecute(), instead of a url, and depend on Windows default file handler to open in the browser based on file extension.
Re: Call HTML form in FWH application
Posted: Sat May 22, 2021 2:53 am
by nageswaragunupudi
I was also looking for showing html from FW and I found this function on the forum and was playing with it.
Please consider using the built-in FWH function
Re: Call HTML form in FWH application
Posted: Sat May 22, 2021 9:21 am
by Marc Venken
nageswaragunupudi wrote:I was also looking for showing html from FW and I found this function on the forum and was playing with it.
Please consider using the built-in FWH function
Works also for me !
But is seems that just as the other option that HTMLVIEW also needs a file with a Path and HTML code inside it to work. Ok for viewing links, websites,...
I my case I browse a Xbrowse that has a field inside a memo that has HTML code to build a table based on data. So, when moving the browse, I want the dialog where the html is showing to refresh with new data
For now I think I can move the browse, save the htmlcode to a file and then call the htmlview with the updated htmlcode. Should work, but maybe there can be updated function that will show plain html data from a
variable data.
When cTemp = used, htmlview will also startup google and give a result of a google seek for the code (cTemp = used as a seeking parameter)
Code: Select all | Expand
function htmlzien(cFile,oWnd1)
cTemp = '<head><link rel="stylesheet" href="temp.css"></head><table class="styled-table"><thead><tr><th>36</th><th>38</th>'
cTemp += '<th>99</th><th>42</th><th>44</th></tr></thead><tbody><tr><td></td><td>1</td><td>1</td><td>1</td><td>2</td></tr></tbody></table>'
htmlview(cTemp)
// htmlview(cTemp,"Titel",oWnd1,10,10,400,350)
//htmlview(cFile,"Titel",oWnd1,10,10,400,350)
Return
Re: Call HTML form in FWH application
Posted: Sat May 22, 2021 4:54 pm
by Antonio Linares
Tim,
ACTION ShellExecute( nil, "open", "http://www.fivetechsoft.com?param1=Tim¶m2=Stone" )
The above issues a "GET" request as the params go on the URL after the "?"
If you want those params not to be seen on the URL then you have to use "MSXML2.XMLHTTP" or CURL to do a "POST" request