We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b9de2e3 commit f8618cdCopy full SHA for f8618cd
src/RestClient.pas
@@ -926,19 +926,23 @@ procedure TResource.SetContent(entity: TObject);
926
var
927
vRawContent: string;
928
vStream: TStringStream;
929
+ {$IFDEF SUPPORTS_GENERICS}
930
vMultipartFormData: TMultipartFormData;
931
+ {$ENDIF}
932
begin
933
FContent.Clear;
934
if not Assigned(entity) then
935
Exit;
936
937
938
if entity is TMultipartFormData then
939
940
vMultipartFormData := TMultipartFormData(entity);
941
vRawContent := vMultipartFormData.ContentAsString;
942
ContentType(vMultipartFormData.ContentType);
943
end
944
else
945
946
vRawContent := TJsonUtil.Marshal(Entity);
947
948
vStream := TStringStream.Create(vRawContent);
0 commit comments