Проблемы с выводом Javascript из приложения WebBroker

Question

У меня довольно простое веб-приложение, созданное с помощью Delphi (2009) Web Broker.Я пытаюсь (и не могу) вывести Javascript на страницу.

JavaScript, который мне нужно вывести, находится в теле страницы в теге <form> и выглядит следующим образом:

<script>DateInput('mydatefield', true, 'DD-MM-YYYY');</script>

Этот javascript должен создать хороший элемент управления вводом даты (проверено хорошо на ручной HTML-странице).Код в моем приложении Delphi:

Response.Content := Response.Content + '<script>DateInput(''mydatefield'', true, ''DD-MM-YYYY'');</script>';

Теги Script удаляются из окончательного вывода.

В качестве теста я добавил кнопку HTML с событием onClick, установленным следующим образом:

Response.Content := Response.Content + '<input type="button" onClick="alert(''Hello World'')" Value="Hello World"/>';

и при проверке источника страницы

alert(''Hello World'')

стало

alert('Hello World')

Я подумал, а не переводит ли это единственную цитату из 'в &#39;может быть причиной того, что мой предыдущий тег сценария был удален?

Любая помощь / указатели оценены, спасибо.

* РЕДАКТИРОВАТЬ

Я должен отметить, чтовсплывающее окно Alert работает даже с символами '.

* EDIT

Я пытался использовать JQuery-скрипты, такие как $ (document) .ready (function (function () { так далее });и это работает, так что я думаю, проблема не в выводе WebBroker.Спасибо всем, кто нашел время, чтобы прочитать / подумать.

Answer 1

Попробуйте HTMLEncode единицы HTTPApp:

Response.Content := Response.Content + HTMLEncode('...');