Dalsi zmeny

_custom/Westra/uCtrlCustom.pas

@@ -0,0 +1,106 @@
+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('/westra')]
+  TWestraController = class(TBaseController)
+{
+   strict private
+    FSelfSvc: TWestraService;
+   strict protected
+    function GetWestraService: TWestraService;
+}
+   public
+    destructor Destroy; override;
+
+//    [MVCDoc('Pomoc<6F> POST zap<61><70>e obecn<63> json data do Heliosu')]
+    [MVCPath('/zapisjson')] // zapis obecnych json data do Heliosu
+    [MVCHTTPMethod([httpPOST])]
+    [MVCSwagSummary('MBM Westra', '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('MBM Westra', 'Na<4E>te data ze zadan<61> 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 = '';
+
+
+
+
+{ TWestraController }
+ destructor TWestraController.Destroy;
+  begin
+//   FSelfSvc.Free;
+   inherited;
+  end;
+
+
+
+ procedure TWestraController.ZapisJSONDoHeliosu (CTX: TWebContext);
+  var respData, jsonData: string;
+//      o: System.JSON.TJSONObject;
+  begin
+   respData:= '';
+   try
+     jsonData:= CTX.Request.Body.Trim;
+     if (jsonData<>'') then
+      GetWestraService.ZapisJsonDoHeliosu (jsonData, respData);
+     ResponseStatus(HTTP_STATUS.OK, 'OK');
+     Render(respData);
+    except
+     RenderStatusMessage (200);
+   end;
+  end;
+
+
+ procedure TWestraController.NactiDataZURL (sURL: string = '');
+  begin
+
+  end;
+
+
+end.