TOpenAPICodeGen

type TOpenAPICodeGen = class(TComponent)

protected

  procedure DoLog();

  procedure DoCodeLog();

  function ResolveUnit();

  procedure Configure(); virtual;

  function CreateAPIData(); virtual;

  procedure GenerateRecordDefs(); virtual;

  procedure GenerateSerializerDefs(); virtual;

  procedure GenerateServiceInterface(); virtual;

  procedure GenerateServiceImplementation(); virtual;

  procedure GenerateServerHandlerModule(); virtual;

  procedure GenerateServerModuleImplementation(); virtual;

  procedure GenerateServerProxy(); virtual;

  procedure GetUUIDMap();

  procedure PrepareAPIData(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DefaultSettings;

  procedure LoadConfig();

  procedure SaveConfig();

  procedure Execute;

  property API: TOpenAPI; [rw]

  property BaseOutputFileName: string; [rw]

  property BaseOutputUnitName: string; [r]

  property TypeAliases: TStrings; [r]

  property UUIDMap: TStrings; [r]

  property ServiceMap: TStrings; [r]

  property DelphiCode: Boolean; [rw]

  property VerboseHeader: Boolean; [rw]

  property UseEnums: Boolean; [rw]

  property GenerateServer: Boolean; [rw]

  property GenerateClient: Boolean; [rw]

  property AsyncService: Boolean; [rw]

  property OnLog: TSchemaCodeGenLogEvent; [rw]

  property ParentHasCancelRequest: Boolean; [rw]

  property UnitSuffix: string; [rw]

  property UnitExtension: string; [rw]

  property DtoUnit: string; [rw]

  property SerializeUnit: string; [rw]

  property ClientServiceInterfaceUnit: string; [rw]

  property ServerServiceInterfaceUnit: string; [rw]

  property ClientServiceImplementationUnit: string; [rw]

  property ServerServiceImplementationUnit: string; [rw]

  property ClientServiceParentUnit: string; [rw]

  property ServerServiceParentUnit: string; [rw]

  property ServerServiceParentClass: string; [rw]

  property ClientServiceParentClass: string; [rw]

  property AbstractServiceCalls: Boolean; [rw]

  property SkipServerServiceImplementationModule: Boolean; [rw]

  property GenerateServerProxyModule: Boolean; [rw]

  property ServerProxyUnit: string; [rw]

  property ServerProxyModuleName: string; [rw]

  property ServerProxyModuleParentName: string; [rw]

  property ServerProxyModuleParentUnit: string; [rw]

  property ServerProxyUseServiceInterface: Boolean; [rw]

  property ServerProxyFormFile: Boolean; [rw]

  property ServiceNameSuffix: string; [rw]

  property ServiceNamePrefix: string; [rw]

end;

TOpenAPICodeGen

TObject