Page 1 of 1
Плагин ввода пароля на закачку для некоторых сайтов
Posted: 14 Apr 2017, 17:37 Fri
by Aqel
Идея банальная, но не могу разобраться в вашем API вообще никак!
Пишу на Delphi XE8 (образец скачал и уже переделал под себя), но DM начал глючить с моим вариантом. Мне всего то надо, что бы DM при скачивании с определённого ресурса устанавливал определённый логин и пароль на закачку (требуется по правилам сайта).
Помогите пожалуйста!
Re: Плагин установки пароля для спец-сайтов
Posted: 27 Dec 2017, 13:34 Wed
by Aqel
Вот код - добавление закачки в DM:
Code: Select all
function TDM_URL_Master.EventRaised(eventType: WideString; eventData: WideString): WideString;//вызывается из ДМ-ма при возникновении какого либо события
var
id_list, id_info, url: WideString;
i, j: integer;
begin
if eventType = 'dm_download_added' then
begin
id_list:= myIDmInterface.DoAction('GetDownloadIDsList', '');
for i:= 1 to length(id_list) do
begin
if (id_list[i]= ' ') and (i <> length(id_list)) then
begin
j:= i;
end;
end;
Delete(id_list, 1, j);
Delete(id_list, length(id_list), 1);
id_info:= myIDmInterface.DoAction('GetDownloadInfoByID', id_list);
url:= copy(id_info, pos('<url>', id_info) + length('<url>'), pos('</url>', id_info));
Delete(url, pos('</url>', url), length(url));
ShowMessage(url);
end;
...только пишет ошибку в
url:= неправильные параметры в
id_info
Re: Плагин ввода пароля на закачку для некоторых сайтов
Posted: 08 Jan 2018, 21:08 Mon
by Slavko
А чем не устраивает "Менеджер сайтов" из меню Инструменты? Вроде он как раз для этих целей пердназначен.