EOR Posted October 29, 2019 Share Posted October 29, 2019 Здравствуйте Возникает ошибка "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); Прошу помощи клуба. Заранее спасибо Link to comment Share on other sites More sharing options...
Sherzod Posted October 29, 2019 Share Posted October 29, 2019 Здравствуйте, А можете прикрепить тестовый случай?! Link to comment Share on other sites More sharing options...
EOR Posted October 29, 2019 Author Share Posted October 29, 2019 Хорошо, но минут 15 на подготовку нужно Link to comment Share on other sites More sharing options...
Sherzod Posted October 29, 2019 Share Posted October 29, 2019 1 minute ago, EOR said: Хорошо, но минут 15 на подготовку нужно Ok Link to comment Share on other sites More sharing options...
EOR Posted October 29, 2019 Author Share Posted October 29, 2019 Готово.Base64AjaxError.zip Link to comment Share on other sites More sharing options...
Sherzod Posted October 29, 2019 Share Posted October 29, 2019 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; Link to comment Share on other sites More sharing options...
EOR Posted October 29, 2019 Author Share Posted October 29, 2019 Поспешил и не проверил на переносимость. Перевыложил архив в предыдущем сообщении. Спасибо. Link to comment Share on other sites More sharing options...
EOR Posted October 29, 2019 Author Share Posted October 29, 2019 Интересно откуда они там появились? Их там не должно быть по стандарту Base64. https://en.wikipedia.org/wiki/Base64 Link to comment Share on other sites More sharing options...
EOR Posted October 29, 2019 Author Share Posted October 29, 2019 Я все проверил. Так работает. Большое спасибо. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now