Form Builder

uses
  sgcHTML_Component_Form, sgcHTML_Component_FormBuilder;

// Formda bir TsgcHTMLComponent_Form (Form1) ve
// Form = Form1 olan bir TsgcHTMLComponent_FormBuilder (FormBuilder1)

procedure TMainModule.FormBuilder1Save(Sender: TObject; const aJSON: string;
  var aAccept: Boolean; var aErrorMessage: string);
begin
  // aJSON normalleştirilmiş tanımdır ve sunucu tarafından zaten denetlenmiştir
  StoreDefinition('contact', aJSON);   // kendi deponuz: bir dosya, bir tablo
end;

// Herkese açık sayfa: istek başına bir form, saklanan tasarımdan yüklenir
function TMainModule.ContactPage: string;
var
  oForm: TsgcHTMLComponent_Form;
begin
  oForm := TsgcHTMLComponent_Form.Create(nil);
  try
    oForm.Action := '/f/contact';
    oForm.LoadFromJSON(ReadDefinition('contact'));
    Result := oForm.HTML;
  finally
    oForm.Free;
  end;
end;

// Gönderimde: doğrulayın, ardından türlü değerleri saklayın
function TMainModule.ContactPost(const aParams: TStrings): string;
var
  oForm: TsgcHTMLComponent_Form;
  oErrors: TStringList;
begin
  oForm := TsgcHTMLComponent_Form.Create(nil);
  oErrors := TStringList.Create;
  try
    oForm.LoadFromJSON(ReadDefinition('contact'));
    if oForm.Validate(aParams, oErrors) then
    begin
      StoreResponse('contact', oForm.GetValuesJSON(aParams));
      Result := ThankYouPage;
    end
    else
      Result := oForm.GetValidationResponse(oErrors);
  finally
    oErrors.Free;
    oForm.Free;
  end;
end;