Вопросы по Microsoft ScriptControl 1.0

[SeemaN_tm]

Доброго времени суток.
Имеется JavaScript. Из-за большого объёма скрипта, перевести его на делфийский язык не представляется возможным.
Решил его пользовать через Microsoft ScriptControl 1.0.

Делаю следующим образом.

procedure TForm1.Button1Click(Sender: TObject);
var
ScriptControl: TScriptControl;
 pPar:PSafeArray;
 varr,res:Variant;
 pkBaseURL: String;
 Script, LineScript: String;
 ScriptFile: TextFile;
begin
    AssignFile(ScriptFile,'piwik.js');
    Reset(ScriptFile);
if IOResult <> 0 then
  begin
    MessageBox(0,'Ошибка доступа к файлу.','ОШИБКА',0);
    exit;
  end;

  // чтение из файла
  while not EOF(ScriptFile) do
  begin
    readln(ScriptFile, LineScript); // прочитать строку из файла
    Script := Script + LineScript+#13+#10;
  end;

  Memo1.Text := Script;
  CloseFile(ScriptFile);
    ScriptControl := TScriptControl.Create(Self);
    ScriptControl.Language := 'JavaScript';
    ScriptControl.AddCode(Script);

    varr:=VarArrayCreate([0, 1], varVariant);
    pkBaseURL := 'http://piwik.rehcusebe.ru/';
    varr[0]:= pkBaseURL + 'piwik.php';
    varr[1]:=1;
    pPar:=PSafeArray(TVarData(varr).VArray);
    res:=ScriptControl.Run('Piwik.getTracker',pPar);
    ShowMessage(res);
    FreeAndNil(ScriptControl);

end;

В момент отработки строчки кода

ScriptControl.AddCode(Script);

Выдаёт ошибку. Посмотреть можно на вложенном изображении.
Так же выкладываю архив сo скриптом. И им же самым, только после приведения кода в божеский вид в формате *.docx.

Прошу подсказать, в чём проблема ? Как и где надо задать определение ?

[eval]

скрипт из штмл страницы? ну тогда так не будет работать..
сначала надо ему подсунуть дом браузера и т.д.

[SeemaN_tm]

Опиши по подробней если могёшь.

[eval]

а чо не понятно в этих 2 словах?

[SeemaN_tm]

Как подсовывать дом браузера и что именно значит "и так далее"

[eval]

а вам оно поможет?
вы сначала проанализируйте скрипт на предмет того, зачем ему объектная модель браузера, а потом уже и думать, а то может так оказаться, что толку от этого не будет.

[SeemaN_tm]

Скрипт рабочий, а раз так, то для его работы нужно предоставить то что он использует в полном объёме и в независимости для чего это ему. Так как вносить изменения в скрип не целесообразно из-за большого объёма кода и, возможного, изменения логики скрипта изготовителем.

[Человек_Борща]

Скрипт рабочий, а раз так, то для его работы нужно предоставить то что он использует в полном объёме и в независимости для чего это ему.

Скрипт интерпретируется БРУЗЕРОМ и он использует DOM модель документа. Вам нужен браузер, фига, вы одним скрипт. интерпретатором обойдетесь.

Как вариант:
Исходный текст страницы и скрипт скармливаете IWebBrowser2(IE движок) и он выдает вам то, что надо.

[eval]

Да пусть он хоть трижды правильным, это не меняет того что ему за какимто понадобился ДОМ, иначе у вас ошибки б не было. А раз так, то есть вероятность что ему еще и пользовательь нужен и мали чего еще ... а у скриптконтрола этого нет, это есть только у браузера, а если это действительно так то - пишите письма мелким почерком.
Андерстенд или продолжаем упорствовать?

[SeemaN_tm]

Вот собственно изменённый код в делфи:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
ScriptControl: TScriptControl;
 pPar:PSafeArray;
 varr,piwikTracker:Variant;
 pkBaseURL: String;
 Script, LineScript: String;
 ScriptFile: TextFile;
 Document: IDispatch;
begin
   AssignFile(ScriptFile,'piwik.js');
    Reset(ScriptFile);
if IOResult <> 0 then
  begin
    MessageBox(0,'Ошибка доступа к файлу.','ОШИБКА',0);
    exit;
  end;

  // чтение из файла
  while not EOF(ScriptFile) do
  begin
    readln(ScriptFile, LineScript); // прочитать строку из файла
    Script := Script + LineScript+#13+#10;
  end;

  Memo1.Text := Script;
  CloseFile(ScriptFile);


    ScriptControl := TScriptControl.Create(Nil);
    ScriptControl.Language := 'JavaScript';
    ScriptControl.AddCode('var document= new Object("[object HTMLDocument]");');
    ScriptControl.AddCode('var navigator= new Object("[object Navigator]");');
    ScriptControl.AddCode('var screen= new Object("[object Screen]");');
    ScriptControl.AddCode('var window= new Object("[object Window]");');
    ScriptControl.AddCode('window.location = new Object("[object window.location]");');
    ScriptControl.AddCode('window.location.href = "[window.location.href]";');
    ScriptControl.AddCode(Script);

 {   pkBaseURL := 'http://piwik.rehcusebe.ru/';
    varr:=VarArrayCreate([0, 1], varVariant);
    varr[0]:= pkBaseURL + 'piwik.php';
    varr[1]:= 1;

    pPar:=PSafeArray(TVarData(varr).VArray);
 //   piwikTracker :=ScriptControl.Run('Piwik.getTracker',pPar);     }
    ShowMessage('OK '+piwikTracker);
    FreeAndNil(ScriptControl);

end; 


Те места кода на которые раньше ругался ScriptControl терь добавляются.

Появилась другая ошибка по коду дальше. Смотрите прикреплённый скриншот.
Читал, что эта ошибка выскакивает только в IE и во всём том что использует его движок, остальные браузеры вроде бы как отрабатывают без ошибки и в полном объёме.

Привести фрагмент скрипта места на который ругается ?
Кто нить подскажет как пабедить её ? Или придётся самому придумывать ?