bnzbnz/qbit4delphi

A Free Delphi VCL/FMX implementation of qBittorrent's WebAPI + qNOXify a qBittorent/NOX Thin Client...

qbit4delphi's Issues

TTorrentReader: Get all Announce List items and adapt them to a special list format.

chanage uTorrentReader.pas

  // AnnounceList
  var AnnounceList := Be.ListData.FindElement('announce-list') as TBencoded;
  if assigned(AnnounceList) then
    begin
      var SubList := AnnounceList.ListData[0].Data;
      for var i := 0 to SubList.ListData.Count - 1 do
        FData.AnnounceList.Add(UTF8ToString((SubList.ListData[i].Data).StringData));
    end;

to

  // AnnounceList
  var AnnounceList := Be.ListData.FindElement('announce-list') as TBencoded;
  if assigned(AnnounceList) then
  begin
    if (AnnounceList.ListData[0].Data.Format = befList) then
    begin
      for var i := 0 to AnnounceList.ListData.Count - 1 do
        FData.AnnounceList.Add(UTF8ToString((AnnounceList.ListData[i].Data.ListData[0].Data).StringData));
    end
    else
      for var i := 0 to AnnounceList.ListData.Count - 1 do
        FData.AnnounceList.Add(UTF8ToString((AnnounceList.ListData[i].Data).StringData))
  end;