WestByte Support Forum

Posted: **03 Jan 2008, 22:47 Thu**

Подскажите...

function TDMTestPlugIn.EventRaised(eventType: WideString; eventData: WideString): WideString;
var
id:string;
s:tstringlist;
begin

s:=tstringlist.Create;

if eventType = 'dm_timer_10' then
begin

	ID:= myIDmInterface.DoAction('GetDownloadIDsList', '3') ;

	s.Text := myIDmInterface.DoAction ('GetDownloadInfoByID',ID);

	s.SaveToFile('c:\1.txt');


end;
end;

Но файл 1.txt всегда пустой. Где косяк?

Posted: **07 Jan 2008, 0:28 Mon**

Code: Select all

ID:= myIDmInterface.DoAction('GetDownloadIDsList', '3') ;

В ID может попасть несколько значений, разделённых пробелом (если я правильно помню по работе своего плагина, то даже ОДИН ID завершается пробелом, который надо откусывать).

Потому в команде

Code: Select all

s.Text := myIDmInterface.DoAction ('GetDownloadInfoByID',ID);

Text получает пустую строку (ID с пробелом опознаётся как несуществующий) => файл пустой.

В Delphi я пользуюсь модулем Wizard стороннего автора, в котором есть функции Trim (удаление пробелов), WordCount (подсчёт слов по разделителям) и ExtarctWord (вырезание нужного слова из строки).

Posted: **18 Jan 2008, 22:12 Fri**

БЛАГОДАРСТВУЮ!