External JS function with arguments

[EOR]

Здравствуйте

Возникает ошибка "Invalid or unexpected token" при попытке вызвать javascript функцию из внешнего файла подключенного в CustomFiles

procedure TForm1.UniButton1Click(Sender: TObject);
var
  s,s1,s2: string;
begin
  try
    s1 := StringOfChar('Z', 100000); // Long String 100 000 chars
    s2 := EncodeString(s1);          //Base64 string 100 000 chars
    s := 'ExternalFuncWithParameters(0, "' + s2 + '")';
    UniSession.SendResponse(s, True);
  finally

  end;
end;

 

Такая же ошибка при использовании UniSession.AddJS(s);

Прошу помощи клуба. Заранее спасибо

 

[Sherzod]

Здравствуйте,

А можете прикрепить тестовый случай?!

[EOR]

Хорошо, но минут 15 на подготовку нужно

[Sherzod]

1 minute ago, EOR said:

Хорошо, но минут 15 на подготовку нужно

Ok

[EOR]

Готово.Base64AjaxError.zip

 

[Sherzod]

25 minutes ago, EOR said:

Готово.

Base64AjaxError.zip

Простите, возможно не оптимальное решение...:

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  s, s1, s2: string;
begin
  try
    s1 := StringOfChar('Z', 100000); // Long String 100 000 chars
    s2 := EncodeString(s1); // Base64 string 100 000 chars
    s2 := StringReplace(s2,#$D#$A,'',[rfReplaceAll]);  //<--------
    s := 'testfunc(0, "' + s2 + '")';
    UniSession.SendResponse(s, True);
  finally

  end;
end;

 

[EOR]

Поспешил и не проверил на переносимость. 

Перевыложил архив в предыдущем сообщении.

Спасибо.

[EOR]

Интересно откуда они там появились?

Их там не должно быть по стандарту Base64. https://en.wikipedia.org/wiki/Base64

[EOR]

Я все проверил. Так работает.

Большое спасибо.