\n
procedure TfAddTorrent.btnDownloadClick(Sender: TObject); begin if AddTask(true, false) then close; end; function TfAddTorrent.AddTask(Now: Boolean; ShowPrev: Boolean): Boolean; var find: Boolean; TorrentDataSL: TStringList; X: Integer; DataTask: TTask; BTPluginAddTrackers: IBTServicePluginAddTrackers; begin Result := false; if Trim(HashValue) = '' then begin MessageBox(Handle, PChar('\u041d\u0435\u0442 \u0434\u043e\u0441\u0442\u0443\u043f\u0430 \u043a \u0442\u043e\u0440\u0440\u0435\u043d\u0442 \u0444\u0430\u0439\u043b\u0443 \u0438\u043b\u0438 \u043e\u0448\u0438\u0431\u043a\u0430 \u0447\u0442\u0435\u043d\u0438\u044f \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u0444\u0430\u0439\u043b\u0430'), PChar(Options.Name), MB_OK or MB_ICONWARNING or MB_TOPMOST); Exit; end; find := false; with TasksList.LockList do try for X := 0 to Count - 1 do begin DataTask := Items[X]; if DataTask.Status <> tsDeleted then if DataTask.HashValue = HashValue then begin find := true; break; end; end; finally TasksList.UnLockList; end; if find then begin if MessageBox(Application.Handle, PChar('\u0412\u044b \u043f\u044b\u0442\u0430\u0435\u0442\u0435\u0441\u044c \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0442\u043e\u0440\u0440\u0435\u043d\u0442, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u0432 \u0441\u043f\u0438\u0441\u043a\u0435. \u0425\u043e\u0442\u0438\u0442\u0435 \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0438\u0437 \u043d\u0435\u0433\u043e \u0441\u043f\u0438\u0441\u043e\u043a \u0442\u0440\u0435\u043a\u0435\u0440\u043e\u0432?'), PChar(Options.Name), MB_OKCANCEL or MB_ICONWARNING) = ID_OK then begin for X := 0 to Plugins.Count - 1 do begin if (Supports(Plugins[X], IBTServicePluginAddTrackers, BTPluginAddTrackers)) then begin try BTPluginAddTrackers.AddTrackers(HashValue, trackers); \/\/ \u0414\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0442\u0440\u0435\u043a\u0435\u0440\u043e\u0432 \u0438\u0437 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u0444\u0430\u0439\u043b\u0430 except end; break; end; end; end; Exit; end; TorrentDataSL := TStringList.Create; try TorrentDataSL.Insert(0, BoolToStr(true)); if Now then TorrentDataSL.Insert(1, BoolToStr(true)) else TorrentDataSL.Insert(1, BoolToStr(false)); TorrentDataSL.Insert(2, Edit1.Text); TorrentDataSL.Insert(3, ExcludeTrailingBackSlash(cbDirectory.Text)); TorrentDataSL.Insert(4, IntToStr(0)); TorrentDataSL.Insert(5, Edit2.Text); AddTorrent(TorrentDataSL.Text, HashValue, Now, ShowPrev); finally TorrentDataSL.Free; end; try ForceDirectories(ExcludeTrailingBackSlash(cbDirectory.Text)); except end; SaveTasksList; Result := true; end; function TfAddTorrent.AddTorrent(TorrData: string; HashValue: string; Now: Boolean; ShowPrev: Boolean): Boolean; var AddDataTask: TTask; AddedData: TStringList; CreaName, CreatedName: string; Plugin2: IAddDownload; IndexPlugin2: Integer; Silent: Boolean; Down: Boolean; begin Result := false; AddedData := TStringList.Create; try AddedData.Text := TorrData; try Silent := StrToBool(AddedData[0]); Down := StrToBool(AddedData[1]); except Down := true; Silent := true; end; if Silent then begin AddDataTask := TTask.Create; AddDataTask.TorrentFileName := AddedData[2]; \/\/ \u043f\u0443\u0442\u044c \u043a \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c\u043e\u043c\u0443 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u0444\u0430\u0439\u043b\u0443 AddDataTask.HashValue := HashValue; \/\/ info hash AddDataTask.LinkToFile := 'magnet:?xt=urn:btih:' + AnsiLowerCase(AddDataTask.HashValue); \/\/ magnet-\u0441\u0441\u044b\u043b\u043a\u0430 AddDataTask.Directory := ExcludeTrailingBackSlash(AddedData[3]); \/\/ \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440\u0438\u044f \u0434\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0433\u043e \u0437\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 AddDataTask.ID := Options.LastID + 1; \/\/ \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u043e\u0432 Options.LastID := AddDataTask.ID; CreaName := AddedData[5]; CreaName := trimleft(CreaName); CreaName := trimright(CreaName); CreatedName := CreaName; AddDataTask.FileName := CreatedName; \/\/ \u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 \u0438\u043b\u0438 \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430 \u0437\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 AddDataTask.Description := ''; if CheckBox1.Checked then AddDataTask.ProgressiveDownload := true \/\/ \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u0437\u0430\u043a\u0430\u0447\u043a\u0438 \u0432\u043a\u043b\u044e\u0447\u0435\u043d\u0430 else AddDataTask.ProgressiveDownload := false; \/\/ \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u0437\u0430\u043a\u0430\u0447\u043a\u0438 \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\u0430 if Down then AddDataTask.Status := tsQueue \/\/ \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0437\u0430\u043a\u0430\u0447\u043a\u0443 \u0432 \u043e\u0447\u0435\u0440\u0435\u0434\u044c else AddDataTask.Status := tsReady; \/\/ \u0442\u043e\u0440\u0440\u0435\u043d\u0442 \u0433\u043e\u0442\u043e\u0432 \u043a \u0437\u0430\u043a\u0430\u0447\u043a\u0435 AddDataTask.TotalSize := SizeTorrent; \/\/ \u0440\u0430\u0437\u043c\u0435\u0440 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u043e\u0432 \u0437\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 AddDataTask.LoadSize := 0; AddDataTask.TimeBegin := 0; AddDataTask.TimeEnd := 0; AddDataTask.TimeTotal := 0; AddDataTask.MPBar := TAMultiProgressBar.Create(nil); \/\/ \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0435\u0441\u0441\u0431\u0430\u0440\u0430 Plugin2 := nil; DeterminePlugin2('bittorrent', IServicePlugin, Plugin2, IndexPlugin2); if Plugin2 <> nil then if Plugins[IndexPlugin2] <> nil then if (Plugins[IndexPlugin2].TaskIndexIcon > 0) then AddDataTask.TaskServPlugIndexIcon := Plugins[IndexPlugin2] .TaskIndexIcon else begin if pos('magnet:?', AnsiLowerCase(AddDataTask.LinkToFile)) = 1 then AddDataTask.TaskServPlugIndexIcon := 34; end; TasksList.Add(AddDataTask); Result := true; PostMessage(Options.MainFormHandle, WM_MYMSG, 0, 12345); if Now then LoadTorrentThreads.Add(TLoadTorrent.Create(false, AddDataTask, true)); \/\/ \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043f\u043e\u0442\u043e\u043a\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u044e\u0449\u0435\u0433\u043e \u0437\u0430\u043f\u0443\u0441\u043a \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 end; finally AddedData.Free; end; end; <\/code><\/pre>\n <\/div>\n<\/div>\n
\u0412 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u0435 info hash \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u043e\u0432. \u0415\u0441\u043b\u0438 info hash \u043d\u0430\u0439\u0434\u0435\u043d, \u0442\u043e \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a, \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441\u0430 \u0442\u0440\u0435\u043a\u0435\u0440\u043e\u0432 \u0438\u0437 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 BTPluginAddTrackers.AddTrackers(HashValue, trackers), \u0438\u043d\u0430\u0447\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0435\u043d\u043e. \u041f\u043e\u0441\u043b\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a TasksList.Add(AddDataTask), \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u043d \u043f\u043e\u0442\u043e\u043a TLoadTorrent (\u043c\u043e\u0434\u0443\u043b\u044c uTorrentThreads), \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442 \u0437\u0430\u043f\u0443\u0441\u043a \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 BTPlugin.StartTorrent(DataTorrent) \u0438 \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0442\u0430\u043a\u0436\u0435 \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u0442\u0441\u044f \u0446\u0438\u043a\u043b repeat, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0438\u0439 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u0438 \u043f\u043e\u043b\u0443\u0447\u0430\u044e\u0449\u0438\u0439 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0435 \u043a\u0430\u0436\u0434\u0443\u044e \u0441\u0435\u043a\u0443\u043d\u0434\u0443 GetedData := BTPlugin.GetInfoTorrent(DataTask.HashValue).<\/p>\n
\u0417\u0430 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0439 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0441\u043e\u0431\u044b\u0442\u0438\u0435 TListView OnData:<\/p>\n
\u041a\u043e\u0434 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0439 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438<\/b><\/p>\n\n
procedure TfMainForm.lvTasksData(Sender: TObject; Item: TListItem); var i: Integer; Task: TTask; Procent, Procent1, Procent2: string; EndPoint: Integer; begin with TasksList.LockList do try for i := 0 to Count - 1 do begin if i = Item.Index then begin Task := Items[Item.Index]; if Task.Status = tsReady then \/\/ \u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u0437\u0430\u043a\u0430\u0447\u043a\u0438 Item.ImageIndex := 0; if Task.Status = tsQueue then \/\/ \u0412 \u043e\u0447\u0435\u0440\u0435\u0434\u0438 Item.ImageIndex := 1; if Task.Status = tsError then \/\/ \u041e\u0448\u0438\u0431\u043a\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0430 Item.ImageIndex := 2; if Task.Status = tsErroring then \/\/ \u041e\u0448\u0438\u0431\u043a\u0430 \u043d\u0435 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0430 Item.ImageIndex := 2; if Task.Status = tsLoading then \/\/ \u0417\u0430\u043a\u0430\u0447\u043a\u0430 Item.ImageIndex := 3; if Task.Status = tsStoping then \/\/ \u041e\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 Item.ImageIndex := 4; if Task.Status = tsStoped then \/\/ \u041f\u0430\u0443\u0437\u0430 Item.ImageIndex := 5; if Task.Status = tsLoad then \/\/ \u0417\u0430\u043a\u0430\u0447\u0435\u043d\u043e Item.ImageIndex := 6; if Task.Status = tsGetUrl then \/\/ \u041f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u0441\u0441\u044b\u043b\u043a\u0438 Item.ImageIndex := 7; if Task.Status = tsProcessing then \/\/ \u041f\u043e\u0438\u0441\u043a Item.ImageIndex := 8; if Task.Status = tsSeeding then \/\/ \u0420\u0430\u0437\u0434\u0430\u0447\u0430 Item.ImageIndex := 9; if Task.Status = tsBittorrentMagnetDiscovery then \/\/ \u041e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043c\u0430\u0433\u043d\u0435\u0442 Item.ImageIndex := 10; if (Task.Status = tsDelete) or (Task.Status = tsDeleted) then \/\/ \u0423\u0434\u0430\u043b\u0435\u043d Item.ImageIndex := 11; Item.SubItems.Add(Task.FileName); \/\/ \u0418\u043c\u044f \u0424\u0430\u0439\u043b\u0430 Item.SubItems.Add(Task.LinkToFile); \/\/ \u0421\u0441\u044b\u043b\u043a\u0430 Item.SubItemImages[1] := 12; \/\/ \u0421\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 if Task.Status = tsReady then Item.SubItems.Add('\u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435'); if (Task.TotalSize > 0) and (Task.Status = tsStoped) then Item.SubItems.Add (FloatToStrF((Task.LoadSize \/ Task.TotalSize) * 100, ffFixed, 6, 1) + '% ' + '\u041f\u0430\u0443\u0437\u0430'); if (Task.TotalSize <= 0) and (Task.Status = tsStoped) then Item.SubItems.Add('0% ' + '\u041f\u0430\u0443\u0437\u0430'); if Task.Status = tsQueue then Item.SubItems.Add('\u0412 \u043e\u0447\u0435\u0440\u0435\u0434\u0438'); if Task.Status = tsStoping then Item.SubItems.Add('\u041e\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442\u0441\u044f'); if Task.Status = tsLoad then Item.SubItems.Add('\u0417\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u043e'); if Task.Status = tsError then Item.SubItems.Add('\u041e\u0448\u0438\u0431\u043a\u0430'); if (Task.Status = tsDelete) or (Task.Status = tsDeleted) then Item.SubItems.Add('\u0423\u0434\u0430\u043b\u0435\u043d\u043e'); if Task.Status = tsBittorrentMagnetDiscovery then Item.SubItems.Add('Magnet-\u043f\u043e\u0438\u0441\u043a'); if Task.Status = tsSeeding then Item.SubItems.Add('\u0420\u0430\u0437\u0434\u0430\u0447\u0430'); if Task.Status = tsFileError then Item.SubItems.Add('\u041e\u0448\u0438\u0431\u043a\u0430 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430'); if Task.Status = tsAllocating then Item.SubItems.Add('\u0420\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435'); if Task.Status = tsFinishedAllocating then Item.SubItems.Add('\u0420\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u043e'); if Task.Status = tsRebuilding then Item.SubItems.Add('\u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435'); if Task.Status = tsProcessing then Item.SubItems.Add('\u041f\u043e\u0438\u0441\u043a'); if Task.Status = tsJustCompleted then Item.SubItems.Add('\u0417\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u0442\u0441\u044f'); if Task.Status = tsCancelled then Item.SubItems.Add('\u041e\u0442\u043c\u0435\u043d\u0435\u043d\u043e'); if Task.Status = tsQueuedSource then Item.SubItems.Add('\u041e\u0447\u0435\u0440\u0435\u0434\u044c'); if Task.Status = tsUploading then Item.SubItems.Add('\u0420\u0430\u0437\u0434\u0430\u0447\u0430'); if Task.Status = tsStartProcess then Item.SubItems.Add('\u0417\u0430\u043f\u0443\u0441\u043a'); if Task.Status = tsLoading then begin if Task.TotalSize > 0 then begin Procent := FloatToStr((Task.LoadSize \/ Task.TotalSize) * 100); begin EndPoint := pos(',', Procent); if EndPoint <> 0 then begin Procent1 := copy(Procent, 1, EndPoint - 1); Procent2 := copy(Procent, 1, EndPoint + 1); Item.SubItems.Add(Procent2 + '% ' + '\u0417\u0430\u043a\u0430\u0447\u043a\u0430'); end else begin try Procent2 := FloatToStrF(StrToInt(Procent), ffFixed, 6, 1); except end; Item.SubItems.Add(Procent2 + '% ' + '\u0417\u0430\u043a\u0430\u0447\u043a\u0430'); end; end; end else Item.SubItems.Add(''); end; if Task.Speed > 0 then begin Item.SubItems.Add (GetTimeStr((Task.TotalSize - Task.LoadSize) div Task.Speed)); \/\/ \u041e\u0441\u0442\u0430\u043b\u043e\u0441\u044c end else Item.SubItems.Add(''); if Task.TotalSize > 0 then Item.SubItems.Add(BytesToText(Task.TotalSize)) \/\/ \u0420\u0430\u0437\u043c\u0435\u0440 else Item.SubItems.Add(' '); Item.SubItems.Add(BytesToText(Task.LoadSize)); \/\/ \u0417\u0430\u043a\u0430\u0447\u0430\u043d\u043e if Task.Speed > 0 then Item.SubItems.Add(BytesToText(Task.Speed) + '\/s') \/\/ \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c else Item.SubItems.Add(''); if Task.NumConnectedSeeders > 0 then Item.SubItems.Add(IntToStr(Task.NumConnectedSeeders)) \/\/ \u0421\u0438\u0434\u044b else Item.SubItems.Add(''); if Task.NumConnectedLeechers > 0 then Item.SubItems.Add(IntToStr(Task.NumConnectedLeechers)) \/\/ \u041f\u0438\u0440\u044b else Item.SubItems.Add(''); if Task.UploadSpeed > 0 then Item.SubItems.Add(BytesToText(Task.UploadSpeed) + '\/s') \/\/ \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c \u043e\u0442\u0434\u0430\u0447\u0438 else Item.SubItems.Add(''); if Task.UploadSize > 0 then Item.SubItems.Add(BytesToText(Task.UploadSize)) \/\/ \u041e\u0442\u0434\u0430\u043d\u043e else Item.SubItems.Add(''); break; end; end; finally TasksList.UnLockList; end; end; <\/code><\/pre>\n <\/div>\n<\/div>\n
\u0412\u043e\u0442 \u043c\u044b \u0438 \u043f\u043e\u0434\u043e\u0448\u043b\u0438 \u043a \u043c\u043e\u043c\u0435\u043d\u0442\u0443 \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u0425\u043e\u0442\u044f \u043a\u043e\u0434 \u043a\u043b\u0438\u0435\u043d\u0442\u0430 \u0438 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0437\u0430\u0432\u0435\u0440\u0448\u0451\u043d\u043d\u044b\u043c, \u044f \u0440\u0435\u0448\u0438\u043b \u0432\u0441\u0451 \u0436\u0435 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0435\u0441\u0441\u0431\u0430\u0440\u043e\u043c, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0440\u0430\u0437\u043c\u0435\u0441\u0442\u0438\u043b \u0432 \u0441\u0442\u0430\u0442\u0443\u0441\u0431\u0430\u0440\u0435 \u043d\u0430\u0448\u0435\u0433\u043e \u043a\u043b\u0438\u0435\u043d\u0442\u0430, \u0432\u043c\u0435\u0441\u0442\u043e \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f magnet-\u0441\u0441\u044b\u043b\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0438 \u0442\u0430\u043a \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u0442\u0441\u044f \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u043e\u0432. \u042d\u0442\u043e \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0432\u0438\u0434\u0435\u0442\u044c \u043a\u0430\u043a \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u0437\u0430\u043a\u0430\u0447\u043a\u0430, \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0438\u043b\u0438 \u043d\u0435\u0442.
\u041f\u043e\u0441\u043b\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u043d\u0430\u0448 \u043a\u043b\u0438\u0435\u043d\u0442, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0442\u043e\u0440\u0440\u0435\u043d\u0442 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a \u043d\u0430\u0436\u0430\u0432 \u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0443 \u00ab\u0414\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u00bb. \u041e\u0434\u0438\u043d \u0442\u043e\u0440\u0440\u0435\u043d\u0442 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0431\u0435\u0437 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u043c\u0435\u0442\u043a\u0438 \u00ab\u041f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0437\u0430\u043a\u0430\u0447\u043a\u0430\u00bb, \u0430 \u043d\u0430 \u0434\u0440\u0443\u0433\u043e\u043c \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u044d\u0442\u0443 \u043c\u0435\u0442\u043a\u0443 \u0438 \u0434\u043e\u0436\u0434\u0451\u043c\u0441\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0437\u0430\u043a\u0430\u0447\u043a\u0438. \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0437\u0430\u043a\u0430\u0447\u043a\u0438 \u043c\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0443\u0432\u0438\u0434\u0435\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u043a\u0430\u0440\u0442\u0438\u043d\u0443:<\/p>\n
![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/Progressive.png\"\/)
<\/p>\n
![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/NotProgressive.png\"\/)
<\/p>\n
\u0422.\u0435 \u043f\u0440\u0438 \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043c\u044b \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043b\u0438 \u043c\u0435\u0442\u043a\u0443 \u00ab\u041f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0437\u0430\u043a\u0430\u0447\u043a\u0430\u00bb, \u0437\u0430\u043a\u0430\u0447\u043a\u0430 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e, \u0430 \u0443 \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u0437\u0430\u043a\u0430\u0447\u043a\u0430 \u0447\u0430\u0441\u0442\u0435\u0439 \u0442\u043e\u0440\u0440\u0435\u043d\u0442\u0430 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u0432\u044b\u0431\u043e\u0440\u043e\u0447\u043d\u043e, \u0431\u0435\u0437 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438.<\/p>\n
\u0412 \u0438\u0442\u043e\u0433\u0435 \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u043a\u043b\u0438\u0435\u043d\u0442, \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u043d\u044b\u0439 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Delphi \u0438 \u043d\u0435\u0443\u0441\u0442\u0443\u043f\u0430\u044e\u0449\u0438\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0438 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432. \u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0438 \u0431\u0438\u0442\u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 BTService \u0438 \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0438 \u043a\u043b\u0438\u0435\u043d\u0442\u0430 DelphiTorrent (\u043a\u0430\u0442\u0430\u043b\u043e\u0433 examples) \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u043f\u043e SVN: svn.code.sf.net\/p\/btservice\/svn<\/a><\/p>\n \u041c\u044b \u0441\u043e\u0437\u0434\u0430\u043b\u0438 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u043a\u043b\u0438\u0435\u043d\u0442, \u043a\u043e\u0442\u043e\u0440\u044b\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0432 \u041e\u0421 Windows. \u041f\u043e\u0442\u043e\u043c\u0443 \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043e\u0436\u0438\u0434\u0430\u0442\u044c \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0435\u043d\u0438\u0435, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u044f \u0440\u0430\u0441\u0441\u043a\u0430\u0436\u0443 \u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043a\u043b\u0438\u0435\u043d\u0442\u0430 \u0434\u043b\u044f \u041e\u0421 Android \u0438 IOS, \u0442.\u043a \u0432\u0441\u0435 \u043f\u0440\u0435\u0434\u043f\u043e\u0441\u044b\u043b\u043a\u0438 \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0438\u043c\u0435\u044e\u0442\u0441\u044f. <\/p>\n
<\/div>\n
\u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 http:\/\/habrahabr.ru\/post\/260339\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" ![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/bittorrent.png\")
\u041f\u0440\u043e\u0448\u043b\u043e 8 \u043b\u0435\u0442 \u043f\u043e\u0441\u043b\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0441\u0442\u0430\u0442\u044c\u0438 \u0418\u0433\u043e\u0440\u0435\u043c \u0410\u043d\u0442\u043e\u043d\u043e\u0432\u044b\u043c (Spider_NET) \u043f\u0440\u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u043a\u043b\u0438\u0435\u043d\u0442\u0430 \u043d\u0430 C#, \u043d\u043e \u0432 \u0441\u0435\u0442\u0438 \u0442\u0430\u043a \u0438 \u043d\u0435 \u043f\u043e\u044f\u0432\u0438\u043b\u043e\u0441\u044c \u0441\u0430\u043c\u043e\u0433\u043e \u043f\u0440\u043e\u0441\u0442\u043e\u0433\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u0430, \u043a\u0430\u043a \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0430 Delphi. <\/p>\n
\u0427\u0442\u043e\u0431\u044b \u0440\u0430\u0437\u0432\u0435\u044f\u0442\u044c \u0441\u043e\u043c\u043d\u0435\u043d\u0438\u044f \u043f\u043e \u043f\u043e\u0432\u043e\u0434\u0443 \u043d\u0435\u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u0438 \u044f\u0437\u044b\u043a\u0430 Delphi \u0432 \u0442\u0430\u043a\u043e\u043c \u00ab\u043d\u0435\u043f\u0440\u043e\u0441\u0442\u043e\u043c\u00bb \u0434\u0435\u043b\u0435, \u043a\u0430\u043a \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u043e\u0433\u043e \u0431\u0438\u0442\u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u043a\u043b\u0438\u0435\u043d\u0442\u0430, \u044f \u0438 \u0440\u0435\u0448\u0438\u043b \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u0443 \u0441\u0442\u0430\u0442\u044c\u044e. <\/p>\n
\u0421\u0440\u0430\u0437\u0443 \u0441\u043a\u0430\u0436\u0443, \u0447\u0442\u043e \u043d\u0430\u0448 \u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u043a\u043b\u0438\u0435\u043d\u0442 \u043d\u0430 Delphi \u0431\u0443\u0434\u0435\u0442 \u0441 \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u043c \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u043c \u043a\u043e\u0434\u043e\u043c \u0438 \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0432\u0441\u0435 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0431\u0438\u0442\u0442\u043e\u0440\u0440\u0435\u043d\u0442-\u0442\u0435\u0445\u043d\u043e\u043b\u043e\u0433\u0438\u0438, \u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 DHT, magnet-\u0441\u0441\u044b\u043b\u043a\u0438, \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0437\u0430\u043a\u0430\u0447\u043a\u0430 \u0438 \u0442.\u0434. <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-259353","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/259353","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=259353"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/259353\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=259353"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=259353"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=259353"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/1.png\"\/)
<\/p>\n![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/4_small.png\"\/)
<\/a><\/p>\n![](\"http:\/\/xn--80aaf3akpoou.xn--p1ai\/themes\/corporateclean\/2_small.png\"\/)
<\/a><\/p>\n