unit uRunQueryService;
interface
uses
XData.Server.Module,
XData.Service.Common, System.Classes;
type
[ServiceContract]
IRunQueryService = interface(IInvokable)
['{F18EA5B4-E27C-46FD-BDA2-0EF817EE3738}']
[HttpGet]
function GetQueryData(sqlno:integer;param1,param2,param3,param4:string):TStream;
end;
[ServiceImplementation]
TRunQueryService = class(TInterfacedObject, IRunQueryService)
function GetQueryData(sqlno:integer;param1,param2,param3,param4:string):TStream;
end;
implementation
{ TRunQueryService }
uses UQuery;
function TRunQueryService.GetQueryData(sqlno: integer;param1,param2,param3,param4:string): TStream;
var LResult:TMemoryStream;
begin
LResult := TMemoryStream.Create;
DmQuery.GetQueryData(sqlno,param1,param2,param3,param4,LResult);
Result := LResult;
end;
-----------------------------------
procedure TdmQuery.GetQueryData(sqlno:integer;param1,param2,param3,param4:string;AStream: TStream);
var
sql: string;
begin
{ Without batchmove for firedac
if assigned(AStream) then
begin
qry.Close;
if sqlno=1 then
begin
sql := 'select distinct Sampledate from trans order by Sampledate desc';
if param1 <> '' then
sql := 'select distinct Customer_id from trans Where Sampledate='+quotedstr(param1)
end
else if sqlno=2 then
sql := 'Select * from Usermaster' ;
qry.Open(sql);
qry.SaveToStream(AStream, sfJSON);
end;
}
{
With batchmove }
if assigned(AStream) then
begin
qry.Close;
if sqlno=1 then
begin
sql := 'select distinct Sampledate from trans order by Sampledate desc';
if param1 <> '' then
sql := 'select distinct Customer_id from trans Where Sampledate='+quotedstr(param1)
end
else if sqlno=2 then
sql := 'Select * from Usermaster' ;
qry.Open(sql);
BMJasonWriter.Stream := AStream;
FDBM.Execute;
end;
end;