Jump to content

External JS function with arguments


EOR

Recommended Posts

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

Возникает ошибка "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;

 image.png.47142ecb318d01162b3a5d8fd3500c49.png

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

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

 

Link to comment
Share on other sites

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...