Attachment 221336 Details for Bug 252438 – fixed patch-rpc.pas

[patch] fixed patch-rpc.pas

patch-rpc.pas (text/plain), 1.08 KB, created by Denis Shaposhnikov on 2021-01-06 21:53:42 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Denis Shaposhnikov

Created: 2021-01-06 21:53:42 UTC

Size: 1.08 KB

patch

obsolete

>--- rpc.pas.orig
>+++ rpc.pas
>@@ -816,21 +816,32 @@ function TRpc.RequestInfo(TorrentId: integer; const Fields: array of const; cons
>   req, args: TJSONObject;
>   _fields: TJSONArray;
>   i: integer;
>+  sl: TStringList;
> begin
>   Result:=nil;
>   req:=TJSONObject.Create;
>+  sl:=TStringList.Create;
>   try
>     req.Add('method', 'torrent-get');
>     args:=TJSONObject.Create;
>     if TorrentId <> 0 then
>       args.Add('ids', TJSONArray.Create([TorrentId]));
>-    _fields:=TJSONArray.Create(Fields);
>-    for i:=Low(ExtraFields) to High(ExtraFields) do
>-      _fields.Add(ExtraFields[i]);
>+    _fields:=TJSONArray.Create;
>+    for i:=Low(Fields) to High(Fields) do
>+      if (Fields[i].VType=vtAnsiString) then
>+         sl.Add(String(Fields[i].VAnsiString));
>+    sl.AddStrings(ExtraFields);
>+    sl.Sort;
>+    for i:=sl.Count-2 downto 0 do
>+      if (sl[i]=sl[i+1]) then
>+        sl.Delete(i+1);
>+    for i:=0 to sl.Count-1 do
>+      _fields.Add(sl[i]);
>     args.Add('fields', _fields);
>     req.Add('arguments', args);
>     Result:=SendRequest(req);
>   finally
>+    sl.Free;
>     req.Free;
>   end;
> end;

Actions: View | Diff

Attachments on bug 252438: 221336