How can I call a Delphi procedure to generate HTML page content

StackOverflow https://stackoverflow.com/questions/23580750

  •  19-07-2023
  •  | 
  •  

Question

I'm making a Delphi XE5 VCL Forms Application and there is a TIdHTTPServer on the main form and a CommandGet of the IdHTTPServer procedure:

procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var pageContent: TStringList;
begin
if pos('profile&userName=', ARequestInfo.UnparsedParams) > 0 then
   begin
      pageContent:= TStringList.Create;
      try
         pageContent.Add('<html>');
         pageContent.Add('<head>');
         pageContent.Add('<title>Profile</title>');
         pageContent.Add('</head>');
         pageContent.Add('<body>');
         pageContent.Add('<h1>Profile<h1>');
         pageContent.Add
            ('<input id="subjects" value="Subjects" type="button"/>');
         pageContent.Add('<div id="table-content">');
         pageContent.Add('</div>');
         pageContent.Add('</body>');
         pageContent.Add('</html>');
         AResponseInfo.ContentText := pageContent.Text;
      finally
         pageContent.Free;
      end;
  end;
end;

What I want to do is when the user clicks the button "Subjects" to call this function that generates a HTML table with students courses and marks. The function reads data from the database and generates a table. I want to avoid reloading the whole page (I try to insert the table in the div tags).

Was it helpful?

Solution

For a partial page refresh, you can use JavaScript / Ajax, for example with a Framework like jQuery. There are many examples on the web for dynamic page updates with Ajax.

The Ajax call submits the request to the HTTP server as a HTTP GET or POST request. The code in IdHTTPServerCommandGet checks if the request matches the URL and HTTP method, and then builds and returns partial HTML code.

On the client side, the JavaScript code places the received partial HTML in the specified document tree location.

See for example:

https://stackoverflow.com/a/3644604/80901

Update: a jQuery Ajax based demo can be found at http://www.habariwebcomponents.de/demo/ajaxstats.html with Delphi source (based on my HTTP service library for Delphi and Free Pascal)

Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow
scroll top