Boolean query params were not being sent correctly. Lazarus issue with JSON fixed.

Author: wlandgraf

Dist/OpenApiJson.pas

@@ -6,7 +6,7 @@ interface
 
 uses
 {$IFDEF FPC}
-  fpjson,
+  fpjson, jsonparser,
 {$ELSE}
   Generics.Collections,
   JSON,
@@ -300,7 +300,11 @@ function TJsonWrapper.JsonToJsonValue(const Value: string): TJSONValue;
 
 function TJsonWrapper.JsonValueToJson(Value: TJSONValue): string;
 begin
+{$IFDEF FPC}
+  Result := Value.AsJSON;
+{$ELSE}
   Result := Value.ToString;
+{$ENDIF}
 end;
 
 procedure TJsonWrapper.ObjAddProp(JObj: TJSONValue; const Name: string; Value: TJSONValue);

Dist/OpenApiUtils.pas

@@ -21,6 +21,7 @@ function DateTimeToISO(const Value: TDateTime): string;
 function DateToISO(const Value: TDate): string;
 function ISOToDateTime(const Value: string): TDateTime;
 function ISOToDate(const Value: string): TDate;
+function BoolToParam(const Value: Boolean): string;
 
 resourcestring
   SInvalidDateFormat = 'Value %s is not a valid datetime';
@@ -612,4 +613,12 @@ function ISOToDate(const Value: string): TDate;
   Result := InternalISOTODateTime(Value, zmAsLocal);
 end;
 
+function BoolToParam(const Value: Boolean): string;
+begin
+  if Value then
+    Result := 'true'
+  else
+    Result := 'false';
+end;
+
 end.

Source/OpenApiGen.Builder.pas

@@ -125,6 +125,7 @@ procedure TOpenApiImporter.Build(AMetaClient: TMetaClient);
 
     FClientUnit.UseUnit('SysUtils');
     FClientUnit.UseUnit('OpenApiRest');
+    FClientUnit.UseUnit('OpenApiUtils');
     FClientUnit.UseUnit(FJsonUnit.Name);
     FClientUnit.UseUnit(FDtoUnit.Name);
   end;

Source/OpenApiGen.Metadata.pas

@@ -65,16 +65,19 @@   TInt64MetaType = class(TIntegerMetaType)
   TBooleanMetaType = class(TMetaType)
   public
     function TypeName: string; override;
+    function CodeToParam(const ParamName: string): string; override;
   end;
 
   TDateTimeMetaType = class(TMetaType)
   public
     function TypeName: string; override;
+    function CodeToParam(const ParamName: string): string; override;
   end;
 
   TDateMetaType = class(TDateTimeMetaType)
   public
     function TypeName: string; override;
+    function CodeToParam(const ParamName: string): string; override;
   end;
 
   TBytesMetaType = class(TMetaType)
@@ -251,6 +254,7 @@ implementation
 
 function TMetaType.CodeToParam(const ParamName: string): string;
 begin
+  Result := ParamName;
 end;
 
 function TMetaType.Description: string;
@@ -408,6 +412,11 @@ function TInt64MetaType.TypeName: string;
 
 { TBooleanMetaType }
 
+function TBooleanMetaType.CodeToParam(const ParamName: string): string;
+begin
+  Result := Format('BoolToParam(%s)', [ParamName]);
+end;
+
 function TBooleanMetaType.TypeName: string;
 begin
   Result := 'Boolean';
@@ -427,13 +436,23 @@ function TBinaryMetaType.TypeName: string;
 
 { TDateTimeMetaType }
 
+function TDateTimeMetaType.CodeToParam(const ParamName: string): string;
+begin
+  Result := Format('DateTimeToIso(%s)', [ParamName]);
+end;
+
 function TDateTimeMetaType.TypeName: string;
 begin
   Result := 'TDateTime';
 end;
 
 { TDateMetaType }
 
+function TDateMetaType.CodeToParam(const ParamName: string): string;
+begin
+  Result := Format('DateToIso(%s)', [ParamName]);
+end;
+
 function TDateMetaType.TypeName: string;
 begin
   Result := 'TDate';