Announcement

**Gary Beene** · 21 Sep 2022, 07:28 PM

One "easy" solution might be to send the string to the server app, have the server app create a temporary file with the lookup results, then use URLDownloadToFile to retrieve the temporary file which I can open from within my PBWin app (perhaps a delay added to make sure the temporary file is created, or a loop waiting for a URLDownloadToFile success).

... easy that is, if I knew how to send the string to activate the server app.

With the string received by the server, doing the lookup and creating the temporary file is something I can do.

**Gary Beene** · 21 Sep 2022, 07:43 PM

Is it as simple as something like this ...

Code:

URL$ = "http://www.garybeene.com/files/lookup.exe?lookupstring"
iReturn = ShellExecute(hDlg, "Open", URL, $Nul, $Nul, %SW_ShowNormal)

]

... where the 2nd line will run the "lookup.exe", which in turn creates the temporary file containing the lookup information?

Or, would it be easier if the lookup.EXE was lookup.PHP? Or is the choice of EXE/PHP not really a factor?

**Mike Doty** · 21 Sep 2022, 07:51 PM

This will return the contents of a file as a string
It can also start a program on your server to create the data to be returned.
The results can be returned within an html page or written to a file.

Other options are SQLitening, SQLTools, SocketTools and many more.

Code:

#DIM ALL
#INCLUDE "httprequest.inc"
FUNCTION PBMAIN() 'pbtest.bas
 LOCAL wsurl,wsusername,wspassword,wsdata,wserror AS WSTRING
 wsUrl   = "https://dotysoftware.com/test.txt"
 wsUserName = ""
 wsPassword = ""
 wsError = DownloadTest(wsUrl,wsUsername,wsPassword,wsData)
 ? wsData,,sError 'results: Frank Burns eats worms.   OK
END FUNCTION

FUNCTION DownloadTest(wsURL   AS WSTRING,_
              wsUserName      AS WSTRING,_
              wsPassword      AS WSTRING,_
              wsDataReturned  AS WSTRING) AS WSTRING 'returns OK or error message
 RESET wsDataReturned
 DIM pHttpReq AS IWinHttpRequest
 pHttpReq = NEWCOM "WinHttp.WinHttpRequest.5.1"
 IF ISNOTHING(pHttpReq) THEN
  ? "WinHttpRequest.5.1 failure",%MB_ICONERROR OR %MB_SYSTEMMODAL,FUNCNAME$
  EXIT FUNCTION
 END IF
 pHttpReq.Open "GET", wsURL, 0
 pHttpReq.SetCredentials wsUserName, wsPassword, %HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
 pHttpReq.Send
 IF pHttpReq.StatusText <> "OK" THEN
  IF pHttpReq.StatusText = "" THEN
    FUNCTION = "No send response"
  ELSE
    FUNCTION = pHttpReq.StatusText
  END IF
 ELSE  'success
  wsDataReturned = pHttpReq.ResponseText
  FUNCTION = pHttpReq.StatusText
 END IF
 pHttpReq = NOTHING
END FUNCTION'

**Gary Beene** · 21 Sep 2022, 08:34 PM

Howdy, Mike!

Thanks for the reply.

It can also start a program on your server to create the data to be returned.

I don't recognize how your example does that. I can see that it downloads the "test.txt" file content as a string but how is the server executable initiated and how is the string passed to the server executable?

**Mike Doty** · 21 Sep 2022, 08:45 PM

wsURL = https yoursite.com /cgi-bin/this.exe?request=

Board modifies my url so chopped it up a bit.

Code:

#INCLUDE "pbcgi.inc"  'this.exe
FUNCTION PBMAIN () AS LONG
 LOCAL sBufferIn,sDataOut, request AS STRING
 sbufferIn = ReadCgi      
 request = cgiParam(sBufferIn,"request") 'get ?request
 'process request into sDataOut
 PageHeader ""       ' load html page header
 WriteCgi sDataOut   ' fill with sDataOut and return page
END FUNCTION

SUB PageHeader(sDataOut AS STRING)
 WriteCgi "</title><body>"
 WriteCgi "<pre>"
 WriteCgi "<form action='/cgi-bin/this.exe' method='POST'>"
 WriteCgi "  <INPUT TYPE='text'  NAME='request'  Value = '"+sDataOut+"' SIZE='120'><BR>"
 WriteCgi "<INPUT TYPE='submit'  value='Gary Request'>"
 writeCgi "</form>
 writeCgi "</pre>"
 writeCgi "</body>
 writeCgi "</html>"
END SUB

**Gary Beene** · 21 Sep 2022, 08:56 PM

Howdy, Mike!

Thanks! I'll do some tests with it tomorrow before asking any further questions! I really do appreciate the reply!

**Mike Doty** · 21 Sep 2022, 08:58 PM

No problem. If you need a test page or want to put a cgi on my server just ask.

**Stuart McLachlan** · 21 Sep 2022, 09:11 PM

Second time I've said something similar recently:
Look at the EchoServer in PB Samples\Internet\TCP. modifying it to do exactly what you want would be trivial.

The Client should work "as is".

In the server application just replace
IF LEN(sBuffer) THEN TCP SEND hEcho, sPacket + " -> Received Ok!"
with something like

IF LEN(sBuffer) THEN
s = GetData(sPacket)
TCP SEND hEcho, s
end if

and have a function
FUNCTION GetData(sIn as STRING) as STRING
LOCAL sData as STRING
...
'Parse sIn and get appropriate data into sData
.....
Function = sData
END FUNCTION

**Mike Doty** · 21 Sep 2022, 09:20 PM

I highly suggest using https to get encryption and hide requests and data returned.

**Stuart McLachlan** · 21 Sep 2022, 09:30 PM

Originally posted by Mike Doty View Post

I highly suggest using https to get encryption and hide requests and data returned.

There's no indication that Gary is talking about going ouside of a local network.

Even if he is, he could still use the Echo Client/Server, encrypting/decrypting the packets inside the applications.
That would also be a trivial exercise and won't require anything fancy like TLS connections or HTTP in any form.
For additional security, he can use any port for the communication rather than a likely watched port such as 80.
He could even use port switching in the applications to make it even harder for a man in the middle to track.

**Mike Doty** · 21 Sep 2022, 11:51 PM

There's no indication that Gary is talking about going ouside of a local network.

In Gary's post # 3 the internet is used.

URL$ = "http://www.garybeene.com/files/lookup.exe?lookupstring"
iReturn = ShellExecute(hDlg, "Open", URL, $Nul, $Nul, %SW_ShowNormal)

**Stuart McLachlan** · 22 Sep 2022, 12:11 AM

Originally posted by Mike Doty View Post

In Gary's post # 3 the internet is used.

Assuming that his client app is not on the same LAN as www.garybeene.com

OK, let's just say then:
In his original post, there's no indication that Gary is talking about going ouside of a local network.

**Stuart McLachlan** · 22 Sep 2022, 12:19 AM

Originally posted by Gary Beene View Post

[B]
I don't recognize how your example does that. I can see that it downloads the "test.txt" file content as a string but how is the server executable initiated and how is the string passed to the server executable?

In his example, it doesn't. He's just retrieving a static file from the URL.
You would need some sort of server side processing such as a PHP script or a CGI application on a web server to react to parameters includied in a Post or Get request.
For a very brief intro to Get and Post, see here;
https://www.w3schools.com/tags/ref_httpmethods.asp

Once you have acted on the input parameter by querying a database, getting text or whatever,
you can then return it either by ECHOing it back to the sender or by building a downloadable attachment using "Header(...)" lines

**Stuart McLachlan** · 22 Sep 2022, 12:46 AM

Does the hosting organisation for garybeane.com allow Windows .exe CGIs ?

Added: Apparently the server is running on Apache/2.4.6 (CentOS) so a WIn32 CGI executable (server app) is probably out of the question.

Looks like some PHP study is called for

**Stuart McLachlan** · 22 Sep 2022, 01:14 AM

At it's absolute simplest, save this as the file GetData.php at www.garybeene.com

'

Code:

<?php
if (!(isset($_GET['Data'])) ) {
    die("No requested data");
}
$In = $_GET['Data'];
echo 'Just looked up the data for '.$In ;
?>

Then try
wsUrl = "https://www.garybeene.com/GetData.php?Data=somekey"
in Mike's post 4

**Stuart McLachlan** · 22 Sep 2022, 02:29 AM

Slightly more complex: return a text file based on the input parameter.
'

Code:

<?php
if (!(isset($_GET['Data'])) ) {
    die("No requested data");
}
$filename = $_GET['Data'].".txt";
$fh = fopen($filename,'r') or die("Can't open ".$filename) ;
$readtext = fread($fh, filesize($filename));
fclose($fh);
echo $readtext;
?>
'

It would not be too much additional effort to query a database to get the return string.

**Mike Doty** · 22 Sep 2022, 06:35 AM

Stuart,
Now you did it. I'm going to get php.

Gary,
The wrapper function I wrote in post 4 "DownloadTest" was from code by Jose Roca.
It also allows access to https protected pages without a library.
Very useful to restrict access. I would only use with https.

I don't know if deleting cache could be added or is needed? I will do some testing.
It makes requests and returns results as a string not a file (which is a big plus.)
The term "DownLoadTest" is not a good name for it.

Might not want to use names ?names= discussed on this forum.
Encrypted with https, but might not want to give them away.
Might also include some hidden things and a timestamp to prevent playback.
Have no idea what you are doing or if security is needed.
I added a protected subdirectory under cgi-bin if only want username/password people.

**Stuart McLachlan** · 22 Sep 2022, 08:11 AM

Originally posted by Mike Doty View Post

Might not want to use names ?names= discussed on this forum.
Encrypted with https, but might not want to give them away.
Might also include some hidden things and a timestamp to prevent playback.

The only reason for the ?names= is because your code used GET.
If you use POST , you don't expose the parameters. You'd do something like:

pHttpReq.Open "POST", wsURL, 0
pHttpReq.Send("Data=abc")

and in your PHP, use $_POST['Data']

That removes the issue of playback.

**Mike Doty** · 22 Sep 2022, 08:14 AM

Wow, I'll definitely be changing code.
Thank you!

Announcement

Server Exchange

Server Exchange

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment