New demo: IWGrid + DataTables (and almost no code)

[MJS@mjs.us]

Code:

Example of loading dataTables.net from custom content handler:

//---------------------------------------------------------------------------
In OnFormCreate:
//---------------------------------------------------------------------------
void __fastcall TCategoryForm::IWAppFormCreate(TObject *Sender)
{
      ExtraHeader->Add(
      "<script>"
        "$(document).ready(function() {"
          "$(\"#CATEGORY\").DataTable({ "
            "ordering: false,"
            "ajax: '/Data3',"
          "});"
        "});"
      "</script>"
      );

      txtHTML->RawText = true;
      txtHTML->Lines->Text =
        "<table class=\"display\" id=\"CATEGORY\">"
        "<thead>"
        "<tr>"
        "<th>ID</th>"
        "<th>Name</th>"
        "<th>Type</th>"
        "<th>Check Desc</th>"
        "<th>Activity Desc</th>"
        "</tr>"
        "</thead>"
        "</table>"
        ;
}
//---------------------------------------------------------------------------
To reload on an async event:
//---------------------------------------------------------------------------
void __fastcall TCategoryForm::btnAsyncClick(TObject *Sender, TStringList *EventParams)
{
  WebApplication->CallBackResponse->AddJavaScriptToExecuteAsCDATA(
  "$(\"#CATEGORY\").DataTable().ajax.reload(null,false);"
  );
}
//---------------------------------------------------------------------------
In server controller:
//---------------------------------------------------------------------------
class TContentData3: public TContentBase
{
  protected:

    virtual bool __fastcall Execute(Iw::Http::Request::THttpRequest* aRequest, Iw::Http::Reply::THttpReply* aReply, const System::UnicodeString aPathname, Iwapplication::TIWApplication* aSession, System::Classes::TStrings* aParams);

  public:

    __fastcall TContentData3(void);

};
//---------------------------------------------------------------------------
void __fastcall TIWServerController::IWServerControllerBaseConfig(TObject *Sender)
{
    THandlers::Add("","/Data3", new TContentData3());
}
//---------------------------------------------------------------------------
__fastcall TContentData3::TContentData3(void)
{
  mFileMustExist = false;
  mRequiresSessionStart = true;
}
//---------------------------------------------------------------------------
bool __fastcall TContentData3::Execute(Iw::Http::Request::THttpRequest* aRequest, Iw::Http::Reply::THttpReply* aReply, const System::UnicodeString aPathname, Iwapplication::TIWApplication* aSession, System::Classes::TStrings* aParams)
{
  TIWUserSession *us = (TIWUserSession*)WebApplication->Data;
  us->qryTmp->Active = false;
  us->qryTmp->SQL->Text = "SELECT * FROM CATEGORY ORDER BY ID;";
  us->qryTmp->Active = true;

  aReply->ContentType = "text/plain";
  String s = "{ \"data\": [";
  while(!us->qryTmp->Eof) {

    s+="["
        "\""+us->qryTmp->FieldByName("ID")->AsString+"\","
        "\""+us->qryTmp->FieldByName("NAME")->AsString+"\","
        "\""+us->qryTmp->FieldByName("TYPE")->AsString+"\","
        "\""+us->qryTmp->FieldByName("DATA_COL1")->AsString+"\","
        "\""+us->qryTmp->FieldByName("DATA_COL2")->AsString+"\""
        "]";

    if(us->qryTmp->RecNo < us->qryTmp->RecordCount) { s+=","; }

    us->qryTmp->Next();
  }
  us->qryTmp->Active = false;

  s+="] }";

  aReply->WriteString(s);
  return true;
}
//---------------------------------------------------------------------------