Key Technologies

1. TMS WEB Core: A powerful framework for developing web applications using Delphi, allowing the CMS to leverage familiar object-oriented principles in a web context.
   
   
2. StellarDS.io: A serverless, cloud-based backend that provides scalable data storage solutions for content, which simplifies database management and improves data accessibility.
   
   
3. TTMSFNCWXHTMLMemo: A sophisticated HTML memo editor that enables seamless WYSIWYG (What You See Is What You Get) content editing, facilitating rich content creation without extensive HTML knowledge.

Core Client Functionalities

• The Uadmin.pas unit defines the AdminForm, which allows authorized users to access and edit CMS data. It connects to StellarDS.io via WebStellarDataStoreClientDataset1, supporting data operations like read/write and navigation.
  
  
• The interface includes an HTML memo using TTMSFNCWXHTMLMemo that enables administrators to manage HTML content visually and push changes to the data store.
  
  Here is this admin page that shows via a TWebDBGrid the content of the CMS table and gives you access to add, remove, modify pages
  
  
  

• The Udm.pas file encapsulates data management logic within TDM, handling database interactions and defining fields (id, Name, Content) for the CMS.
  
  
• The dataset component (WebStellarDataStoreClientDataset1) integrates with StellarDS.io, providing access to content stored in a structured format and supporting dynamic queries.
  
  

• The Uedit.pas unit offers a dedicated EditForm, which supports both HTML editing (via TTMSFNCWXHTMLMemo) and direct text editing.
  
  
• Users can load, modify, and save content, with synchronization features that update both the HTML and raw text fields. Changes are then committed back to the StellarDS.io database using WriteBlob methods, ensuring that content is safely stored in StellarDS.
  
  Here is the code that loads the relevant page content from the CMS table and shows it in the HTML Memo and plain text memo for a page started with URL parameter ?p=pagename:

  var
    URL: string;
    page: string;
    res: boolean;
  begin
    page := GetQueryParam('p');
  
    dm.WebStellarDataStoreClientDataset1.TableWhereQuery := 'Name;equal;'+page;
    dm.WebStellarDataStoreClientDataset1.Close;
    dm.WebStellarDataStoreClientDataset1.AccessToken := TWebLocalStorage.GetValue('logintoken');
  
    res := TAWait.ExecP<boolean>(dm.WebStellarDataStoreClientDataset1.OpenAsync);
  
    if res and (dm.WebStellarDataStoreClientDataset1.RecordCount > 0) then
    begin
      URL := dm.WebStellarDataStoreClientDataset1.FieldByName('Content').AsString;
      if URL <> '' then
      begin
        content := TAwait.ExecP<string>(dm.WebStellarDataStoreClientDataset1.ReadBlobAsText('Content'));
        TMSFNCWXHTMLMemo1.HTML.Text := content;
        WebMemo1.Lines.Text := content;
      end;
    end;
  end;

  
  

• The Uform.pas file provides a ViewForm that serves as a content viewer, retrieving and displaying page content from StellarDS based on the current query.
  
  
• This form conditionally shows an edit button based on user permissions, making it easy to toggle between view-only and edit modes.
  
  The page content is loaded from the CMS table and simply added to a DIV on the page. Note that the read-only access token is used, so this page can be always retrieved, regardless of begin logged-in or not:

  var
    URL,page,content: string;
    res: boolean;
  begin
    page := GetQueryParam('p');
    dm.WebStellarDataStoreClientDataset1.TableWhereQuery := 'Name;equal;'+page;
  
    dm.WebStellarDataStoreClientDataset1.Close;
    dm.WebStellarDataStoreClientDataset1.AccessToken := ACCESS_TOKEN; 
  
    res := TAWait.ExecP<boolean>(dm.WebStellarDataStoreClientDataset1.OpenAsync);
  
    if res and (dm.WebStellarDataStoreClientDataset1.RecordCount > 0) then
    begin
      URL := dm.WebStellarDataStoreClientDataset1.FieldByName('Content').AsString;
      if URL <> '' then
      begin
        content := TAwait.ExecP<string>(dm.WebStellarDataStoreClientDataset1.ReadBlobAsText('Content'));
        WebHTMLDiv1.HTML.Text := content;
        btnEdit.Visible := true;
      end;
    end;

• The Umain.pas unit manages the primary application interface and handles login/logout logic. It integrates StellarDS.io for user authentication, storing tokens locally to facilitate session management.
  
  
• The login function adjusts the interface based on the user’s status, with local storage used to manage access tokens for secure editing sessions.
  
  This code snippet shows how OAuth2 based login is performed to gain read/write access to the CMS table on StellarDS.io
  

  dm.WebStellarDataStoreClientDataset1.App.ClientID := CLIENT_ID;
  dm.WebStellarDataStoreClientDataset1.App.Secret := CLIENT_SECRET;
  dm.WebStellarDataStoreClientDataset1.App.CallbackURL := CALLBACK_URL;
  res := TAwait.ExecP<boolean>(dm.WebStellarDataStoreClientDataset1.OpenAsync);
  
  if res then
  begin
    ShowMessage('Logged in succesfully');
    ....
  end;

Data structure on StellarDS.io

The data storage on StellarDS.io is very simple. It is a single table structure where this table has 3 fields: the unique record id, the form name and a blob field to store the form HTML. 

Data access to StellarDS.io

How It All Comes Together

Conclusion

Video