Change HTTP Server Port Dynamically

oldteacher

oldteacher

Active member
Is there a way to change the port of http server dynamically with scripting?

Would be very useful to avoid conflicts.
 
Solution
gdgsupport
Finally, we found a workaround. Please use this HEScript code in your UserMain script:

Code: 
procedure StartMyHTTPServer(portStr: String);
var
  portNum: integer;
begin
  StopHTTPServer;
  ShowMessage("SelectedPort = " + portStr);  // debug
  portNum := StrToIntDef(portStr, 8142);
  StartHTTPServer(portNum);
  ShowMessage("Server started on port " + IntToStr(portNum));
end;       

procedure StopMyHTTPServer;
begin
  StopHTTPServer;
end;

Compatible with your HTML code:
Code: 
<html>
<label for="portSelect">Choose Port:</label>

<select id="portSelect">
  <option value="8080">8080</option>
  <option value="8142" selected>8142</option>
  <option value="9000">9000</option>
  <option value="10000">10000</option>
</select>

<!-- Start...
Sort by date Sort by votes
gdgsupport said:
Sure, you can do that with HEScript. There is a code sample here about how to do it:

www.exeoutput.com

PHP Settings - External HTTP Server - ExeOutput for PHP

Learn how to configure and use an external HTTP server in your ExeOutput for PHP application, allowing access from a web browser.
www.exeoutput.com www.exeoutput.com
Click to expand...
I think we have a miscommunication.

What I am talking about is use scripting and allow the en user to change the port. I build a form input and user enters their own port #. Or I will use dropdown and allow user to pick a port.

Hope this clears up with I mean.
 
Upvote 0 Downvote
What you’re describing is absolutely feasible. The script mentioned demonstrates how to start and stop the external server, and you can indeed pass the desired port when starting it. In your case, the process would be as follows:
  • Create a form input or dropdown to allow the user to select or enter the desired port number.
  • When the user submits the form, your code should retrieve the selected port and use it to start the external server via the HEScript script call.
  • Make sure not to configure the server to start automatically when your application launches. Instead, control the start-up manually based on the user’s selection.
 
Upvote 0 Downvote
I have tried so many scripting my head is swimming :)

what is wrong with my code:

Code: 
procedure StartMyHTTPServer;
var
  portStr: string;
  portNum: integer;
begin
  portStr := GetGlobalVar('SelectedPort', '8142');
  portNum := StrToIntDef(portStr, 8142);

  StartHTTPServer(portNum);
  ShowMessage('Server started on port ' + IntToStr(portNum));
end;

procedure StopMyHTTPServer;
begin
  StopHTTPServer;
  ShowMessage('Server stopped.');
end;

or this:

Code: 
procedure StartMyHTTPServer;
var
  portStr: string;
  portNum: integer;
begin
  // Read the port number from a global variable set by JavaScript
  portStr := GetGlobalVar('SelectedPort', '8142');
  portNum := StrToIntDef(portStr, 8142);

  StartHTTPServer(portNum);
  ShowMessage('Server started on port ' + IntToStr(portNum));
end;

procedure StopMyHTTPServer;
begin
  StopHTTPServer;
  ShowMessage('Server stopped.');
end;
 
Upvote 0 Downvote
This is correct HEScript. If it is not working as expected, the problem is almost certainly somewhere else.
In the PHP Settings → External HTTP Server page, you must:
  • Check “Enable External HTTP Server”.
  • Uncheck “Start and stop the HTTP server automatically”
Please also try:

Code: 
procedure StartMyHTTPServer;
var
  portStr: string;
  portNum: integer;
begin
  portStr := GetGlobalVar('SelectedPort', '8142');
  ShowMessage('SelectedPort = "' + portStr + '"');  // debug

  portNum := StrToIntDef(portStr, 8142);
  StartHTTPServer(portNum);
  ShowMessage('Server started on port ' + IntToStr(portNum));
end;
 
Upvote 0 Downvote
My bad, it's the " quote and not the '.

Code: 
procedure StartMyHTTPServer;
var
  portStr: string;
  portNum: integer;
begin
  portStr := GetGlobalVar("SelectedPort", "8142");
  ShowMessage("SelectedPort = " + portStr);  // debug

  portNum := StrToIntDef(portStr, 8142);
  StartHTTPServer(portNum);
  ShowMessage("Server started on port " + IntToStr(portNum));
end;
 
Upvote 0 Downvote
Finally, we found a workaround. Please use this HEScript code in your UserMain script:

Code: 
procedure StartMyHTTPServer(portStr: String);
var
  portNum: integer;
begin
  StopHTTPServer;
  ShowMessage("SelectedPort = " + portStr);  // debug
  portNum := StrToIntDef(portStr, 8142);
  StartHTTPServer(portNum);
  ShowMessage("Server started on port " + IntToStr(portNum));
end;       

procedure StopMyHTTPServer;
begin
  StopHTTPServer;
end;

Compatible with your HTML code:
Code: 
<html>
<label for="portSelect">Choose Port:</label>

<select id="portSelect">
  <option value="8080">8080</option>
  <option value="8142" selected>8142</option>
  <option value="9000">9000</option>
  <option value="10000">10000</option>
</select>

<!-- Start button: build a hescript:// link dynamically -->

<button onclick="
  var port = document.getElementById('portSelect').value;
  location.href = 'hescript://UserMain.StartMyHTTPServer%7C' + encodeURIComponent(port);">
  Start Server
</button>
<!-- Stop button: no parameters -->
<button onclick="location.href='hescript://UserMain.StopMyHTTPServer'">
  Stop Server
</button>
</html>
 
Upvote 0 Downvote
Solution
You must log in or register to reply here.
Back
Top