[seeman_tm]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

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;

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

Код:

1	ScriptControl.AddCode(Script);

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

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

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

program Project1;   {$APPTYPE CONSOLE}   uses   ActiveX,   ComObj,   Windows, Messages, SysUtils, Variants,   MSScriptControl_TLB in 'MSScriptControl_TLB.pas';   var   ScriptControl: IScriptControl;   Parameters: OleVariant;   Params: PSafeArray;   begin   OleInitialize(nil);   ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;   ScriptControl.Language:='javascript';   ScriptControl.AddCode('function showmessage(msg, ttl) {var WScriptShell = new ActiveXObject("WScript.Shell"); WScriptShell.Popup(msg, 60, ttl);}');   Parameters:=VarArrayOf(['Сообщение', 'Заголовок']);   Params:=PSafeArray(VarArrayAsPSafeArray(Parameters));   ScriptControl.Run('showmessage', Params); end.

[seeman_tm]

Благодарю, но темка почемуто покоцалась. И первый пост начал отображаться не тот, вернее не дописанный. Отсюда следует что ты не понял в чём суть вопроса.
Элементарные скрипты и у самого запустить получается.
Ну а сейчас, скрипт объёмный и сложный. Можешь поглядеть файлики в архиве выложенном выше.
Именно в момент добавления кода в ScriptControl, валится вышеуказанная на картинке ошибка.

[seeman_tm]

И так. Ругань была из-за того, что не была описана переменная через Var.
Так как эта переменная представляет собой некий Object, включающий в себя дополнительные переменные, то встаёт вопрос, а как создать такой объект и передать его в скрипт ?

[NumLock]

PHP код:

var myvar = new MyClass(); 


[seeman_tm]

Ага, тнх. Натолкнуло на мысль.
Сделал. Но вот не задача. Появилась другая ошибка. Смотрите прикреплённый скриншот.

Вот собственно код в делфи:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

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;

Как видно, скрип не запускается. Ошибка сыпется при добавлении кода.

Код:

1	ScriptControl.AddCode(Script);

Посоветуйте, как победить эту ошибку ?

[NumLock]

для начала отладь скрипт в IE с Internet Explorer Developer Tools, а потом его к Delphi подключай.

[seeman_tm]

Сообщение от NumLock

для начала отладь скрипт в IE с Internet Explorer Developer Tools, а потом его к Delphi подключай.

Нет смысла отлаживать по нескольким причинам.
1. Так как он работает в браузере (по крайней мере в Firefox).
2. Он загружается с сайта.
3. Есть вероятность, что сайт внесёт логическое изменение скрипта.
4. Да и мало ли что ещё.