Doplním starší příspěvek DMVC o jednohubku jako je ukázka jednoduchého předání dat a založení dat. Po přečtení první části doplníme náš REST server o POST, tj. vytvoření záznamu. type [MVCNameCase(ncLowerCase)] TTown = class private FName: string; FPostCode: string; public [MVCSwagJsonSchemaField('name', 'town name', True, False)] property Name: string read FName write FName; [MVCSwagJsonSchemaField('postcode', 'post code', True, False)] property PostCode: string read FPostCode write FPostCode; end; [MVCPath('/town')] [MVCSwagAuthentication(atJsonWebToken)] TCtrlTown = class(TMVCController) public [MVCPath('/($Id)')] [MVCHTTPMethod([httpGET])] {$IFNDEF DEBUG} [MVCRequiresRole('role1')] {$ENDIF} [MVCSwagSummary('Town section', 'Town by Id', 'GetTown')] [MVCSwagParam(plPath, 'Id', 'Town id', ptInteger)] [MVCSwagParam(plQuery, 'params', 'Params', ptString)] [MVCSwagResponses(200, 'Success', TTown)] [MVCSwagResponses(401, 'Unauthorized')] [MVCSwagResponses(500, 'Internal Server Error')] procedure GetTown(const Id: Integer); {$IFNDEF DEBUG} [MVCRequiresRole('role1')] {$ENDIF} [MVCDoc('create Town and return "201: Created"')] [MVCPath('/')] [MVCHTTPMethod([httpPOST])] [MVCSwagSummary('Town section', 'Item create', 'CreateItem')] [MVCSwagParam(plBody, 'town', 'TownObject object', TTown, ptNotDefined, True, ' { "name": "Zlín", "postcode":"76340" }')] [MVCSwagResponses(201, 'Success, Data get new created ID')] [MVCSwagResponses(405, 'Failed')] [MVCSwagResponses(500, 'Internal Server Error')] procedure CreateItem(); end; Více...
Už to bude 11 let co jsem napsal článek o UniGui. Pořád si myslím, že je to jedna z nejzásadnější komponent pro Delphi. Pro mne třeba za minulý rok asi jedna ze 4 nejpoužívanějších věcí co nejsou součástí Delphi (další jsou FastReport, synapse, VirtualTre
projít na článekKonečně je dostupný patch 1 pro Delphi 12, měl by být oznámen na welcome page v Delphi (nahoře). Instalace má 160M a je to patch, tj. nedojde k reinstalaci Delphi jako při update. Je to doporučeno všem s D12. Detaily, včetně oprav Patch 1.Zároveň jsou př
projít na článekDo 26. Července získají všichni zákazníci slevu 30% na libovolnou edici Delphi, C++Builderu, nebo RAD Studia 11.3 Alexandria. shop.codesecure.eu/embarcadero/
projít na článekDelphi 12 je dostupné.Tato verze přináší mnoho novinek, ať už se jedná o změny v IDE, instalaci, RTL nebo knihovnách či samotném jazyku. Seznam úprav a vylepšení (jen veřejné) je impozantní.Více...
projít na článekJen pro připomenutí co se dá najít v GetIT v Delphi - Delphi header files generované přímo z Windows Metadata (WinMD) informací. Takže se jedná o fakt "fresh" konvertované soubory.
projít na článek