function TServerMethods1.GetEmployeeList: TDataSet; begin // Assume SQLConnection and DataSetProvider configured SQLQuery1.SQL.Text := 'SELECT * FROM Employees'; Result := SQLQuery1; // DataSnap automatically streams TDataSet as JSON end;
Warning: Be careful of fake "PDF download" sites promising the file but delivering malware. The legitimate file is roughly 3.5 MB to 5 MB. Delphi XE2 DataSnap Development Essentials.pdf
procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate( Sender: TObject; const User, Password: string; var Valid: Boolean; var Roles: string); begin Valid := (User = 'admin') and (Password = 'secure'); if Valid then Roles := 'Admin,User'; end; function TServerMethods1
For those who lived through this evolution, one document became the unofficial bible: . function TServerMethods1.GetEmployeeList: TDataSet