Плагин для Download Master-а

[jocry]

Привет всем, есть такой вопрос: можно ли при изменении состояния закачки, изменить ссылку скачиваемого файла.

[KORN]

нет, рассчитано на то что файл сливает только с одного источника

[mihali4]

Там есть возможность указать несколько зеркал для скачивания этого файла (2-ая закладка в "Свойствах", в "Дополнительно").

[jocry]

Насчёт зеркал не знаю.
Вообще идея плагина такова в ДМ добавляются короткие ссылки (http://dsv.data.cod.ru/31922, http://dsv.data.cod.ru/32009....) Роль плагина в том чтоб при переходе на скачку ссылки нужного вида он её подменял т.е. переходил по ссылки потом парсил страницу (находил прямую ссылку http://files.dsv.data.cod.ru/?WyI4NT...FiQT0iXQ%3D%3D) и подменял её в ДМ-е.

Вроде нормальная идея

[KORN]

а... оказывается ты хочешь плагин написать... так бы и начинал писать... а то подумали, что ты про программу спрашиваешь и умеет ли она с нескольких url'ов качать

[jocry]

При старте ДМ я динамически создаю форму но при закрытии ДМ возникает ошибка, я так понял необходимо очистить память от созданных мной объектов, но я не знаю в каком обработчике это сделать.

function TDataCODLoader_PlugIn.EventRaised(eventType: WideString; eventData: WideString): WideString;
var
frm: TForm;
FormClass: TFormClass;
sh:TShape;
pr:TProgressBar;
lb:TLabel;
g:TGauge;
begin
  if eventType = 'dm_start' then //старт ДМ'а
  begin

   frm:=TForm.Create(nil);
   frm.Left:=200;
   frm.Top:=200;
   frm.Height:=35;
   frm.Width:=160;
   frm.Show;
   frm.BorderStyle:=bsNone;
   frm.FormStyle:=fsStayOnTop;

   sh:= TShape.Create(frm);
   sh.Parent:=frm;
   sh.Align:=alClient;
   sh.Pen.Color:=$003E3E3E;
   sh.Brush.Color:=$008F8F8F;

   g:=TGauge.Create(sh);
   g.Parent:=frm;
   g.Left:=5;
   g.Top:=16;
   g.Height:=17;
   g.Width:=150;
   g.BackColor:=$00F3F3F3;
   g.ForeColor:=$00C5C5C5;
   g.Progress:=54;

   lb:= TLabel.Create(sh);
   lb.Parent:=frm;
   lb.Left:=8;
   lb.Caption:='Обработка ссылок';
  end;

 if eventType = 'dm_timer_5' then
     begin
       lb.Free;
       g.Free;
       sh.Free;
       frm.Free;
     end;
end;

[jocry]

Кто знает подскажите, как добавить сразу несколько ссылок на закачку. Я пробовал таким способом, но после добавления ссылок ДМ выводил несколько ошибок:

var  i:integer;
const  sa:array[1..3] of string = ('http://www.westbyte.com/plugine',
'http://www.westbyte.com/pluginw','http://www.westbyte.com/pluginq');

begin
 for I := 1 to 3 do
   myIDmInterface.DoAction('AddingURL', '<url>'+sa[i]+'</url>'+
   ' <sectionslimit>2</sectionslimit> <hidden>1</hidden>');
end;