107 lines
2.3 KiB
ObjectPascal
107 lines
2.3 KiB
ObjectPascal
unit uCtrlCustom;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCframework,
|
|
MVCframework.Commons,
|
|
MVCframework.Serializer.Commons,
|
|
// MVCframework.Serializer.Intf,
|
|
System.Generics.Collections, // kvuli TDictionary
|
|
System.RegularExpressions,
|
|
// JsonDataObjects,
|
|
uCommons, // kvuli EServiceException
|
|
uCtrlBase,
|
|
// uSvc_Base,
|
|
helTabsBIDs,
|
|
uHeOObj_Base,
|
|
uHeOObj_Custom,
|
|
uSvcCustom,
|
|
MVCFramework.Swagger.Commons; // kvuli dokumentaci
|
|
|
|
type
|
|
|
|
[MVCPath('/gor')]
|
|
TGornickyController = class(TBaseController)
|
|
{
|
|
strict private
|
|
FSelfSvc: TGornickyService;
|
|
strict protected
|
|
function GetGornickyService: TGornickyService;
|
|
}
|
|
public
|
|
destructor Destroy; override;
|
|
|
|
// [MVCDoc('Pomocí POST zapíše obecná json data do Heliosu')]
|
|
[MVCPath('/zapisjson')] // zapis obecnych json data do Heliosu
|
|
[MVCHTTPMethod([httpPOST])]
|
|
[MVCSwagSummary('Gornicky', 'Zápis JSON dat do db Heliosu', 'GORZapisJSONDoHeliosu')]
|
|
[MVCConsumes(TMVCMediaType.APPLICATION_JSON)]
|
|
procedure ZapisJSONDoHeliosu (CTX: TWebContext);
|
|
|
|
[MVCPath('/nactiurl')] // zapis obecnych json data do Heliosu
|
|
[MVCHTTPMethod([httpGET])]
|
|
[MVCSwagSummary('Gornicky', 'Naète data ze zadané URL adresy', 'GORNacteniDatURL')]
|
|
[MVCSwagParam(plQuery, 'url', 'URL adresa', ptString, true)]
|
|
procedure NactiDataZURL ([MVCFromQueryString('url', '')] sURL: string=''
|
|
);
|
|
|
|
end;
|
|
|
|
|
|
|
|
implementation
|
|
uses
|
|
FireDAC.Stan.Option,
|
|
FireDAC.Comp.Client,
|
|
FireDAC.Stan.Param,
|
|
MVCFramework.FireDAC.Utils,
|
|
MVCFramework.DataSet.Utils,
|
|
System.StrUtils,
|
|
System.SysUtils,
|
|
System.JSON,
|
|
JsonDataObjects,
|
|
Winapi.ActiveX,
|
|
uDataMod,
|
|
Quick.Logger;
|
|
|
|
const
|
|
selSloupce = '';
|
|
|
|
|
|
|
|
|
|
{ TGornickyController }
|
|
destructor TGornickyController.Destroy;
|
|
begin
|
|
// FSelfSvc.Free;
|
|
inherited;
|
|
end;
|
|
|
|
|
|
|
|
procedure TGornickyController.ZapisJSONDoHeliosu (CTX: TWebContext);
|
|
var respData, jsonData: string;
|
|
// o: System.JSON.TJSONObject;
|
|
begin
|
|
respData:= '';
|
|
try
|
|
jsonData:= CTX.Request.Body.Trim;
|
|
if (jsonData<>'') then
|
|
GetGornickyService.ZapisJsonDoHeliosu (jsonData, respData);
|
|
ResponseStatus(HTTP_STATUS.OK, 'OK');
|
|
Render(respData);
|
|
except
|
|
RenderStatusMessage (200);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TGornickyController.NactiDataZURL (sURL: string = '');
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
end.
|