Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2009, 22:03   #1
PavluxaF
Пользователь
 
Регистрация: 04.05.2009
Сообщений: 10
По умолчанию Проектирование CGI

Я создаю CGI приложение для тестирования (пишу на delphi через web server application)
как следующий скрипт поместить на выводимую страницу?

<script type="text/javascript">
<!--
var newYear = new Date().getTime()+45000;

function newYearIn()
{
var now = new Date();
var totalRemains = (newYear-now.getTime());
if (totalRemains>1)
{
var RemainsSec=(parseInt(totalRemains/1000));
var RemainsFullDays=(parseInt(RemainsSe c/(24*60*60)));
var secInLastDay=RemainsSec-RemainsFullDays*24*3600;
var RemainsFullHours=(parseInt(secInLas tDay/3600));
if (RemainsFullHours<10){RemainsFullHo urs="0"+Remains FullHours};
var secInLastHour=secInLastDay-RemainsFullHours*3600;
var RemainsMinutes=(parseInt(secInLastH our/60));
if (RemainsMinutes<10){RemainsMinutes= "0"+RemainsMinu tes};
var lastSec=secInLastHour-RemainsMinutes*60;
if (lastSec<10){lastSec="0"+lastSec};
var mcend = Date.parse("Jan 1, 2010, 00:00:00");
var mcnow = now.getTime();
var mc = ((mcend-mcnow)/10).toFixed(0).substr(8);
document.getElementById('newyear'). innerHTML = "До события осталось: "+RemainsFullDays+" дней "+RemainsFullHours+":"+RemainsMinut es+":"+lastSec+ "."+mc; setTimeout("newYearIn()",10);
}
else
{
document.getElementById("newyear"). innerHTML = "Событие!";
document.form1.submit();
}
}
//-->
</script>

Пробую через response.content:= ...и т.д., но данный метод записывает весь текст страницы в одну строку, а для javascript-а для успешной работы необходимо чтобы такие строки как
<!--
или
// -->
находились отдельно иначе он не работает!
PavluxaF вне форума Ответить с цитированием
Старый 05.05.2009, 22:41   #2
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

Вот, пришло в голову: а что, если каждую строчку разделять #13#10, например:

Код:
'первая строка' + #13#10 + 'вторая строка'
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты
apromix вне форума Ответить с цитированием
Старый 07.05.2009, 01:17   #3
Sergey2
Форумчанин
 
Регистрация: 08.01.2008
Сообщений: 233
По умолчанию

Грузишь из файла в TStringList. Потом TSTringList.Text отдаешь клиенту.
Sergey2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проектирование лексического анализатора Катерина-студентка Помощь студентам 2 20.03.2013 16:22
Проектирование и разработка собственной СУБД kommunist Общие вопросы по программированию, компьютерный форум 4 21.04.2009 18:28
Проектирование электронных устройств (о том, как создаются новые продукты) Askofen Обсуждение статей 0 12.04.2009 18:21
Проектирование базы данных Xeon332 Помощь студентам 5 23.12.2008 19:40
Нужна помощь!Проектирование программы оболочки! Ириночка Помощь студентам 1 13.03.2007 21:32