FiveTech Software tech support forums

by **TimStone** » Fri May 21, 2021 6:21 pm

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.

by **rhlawek** » Fri May 21, 2021 7:46 pm

Tim,

I don't think I completely understand the ask. What exactly do you want to be able to do from your application?

by **TimStone** » Fri May 21, 2021 8:22 pm

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 ?

by **Marc Venken** » Fri May 21, 2021 8:54 pm

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 view: #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>

by **rhlawek** » Sat May 22, 2021 12:52 am

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.

by **nageswaragunupudi** » Sat May 22, 2021 2:53 am

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

Code: Select all Expand view: HTMLVIEW( cHtmlFile ) // give full path of the file

by **Marc Venken** » Sat May 22, 2021 9:21 am

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
Code: Select all Expand view
HTMLVIEW( cHtmlFile ) // give full path of the file

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 view: 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

by **Antonio Linares** » Sat May 22, 2021 4:54 pm

Tim,

ACTION ShellExecute( nil, "open", "http://www.fivetechsoft.com?param1=Tim&param2=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

FiveTech Software tech support forums

Call HTML form in FWH application

Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Re: Call HTML form in FWH application

Who is online