VPF::Delphi и js - Форум программистов

Ruless

Дата 29.8.2009, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Уважаемые программисты. Помогите разобратся.
После выполнения запроса

Код


 s:=idhttp1.get('http://site.ru/index.html');
 Memo1.Lines.add(s);

в мемо выводится следующий код

Код


<html>
<body leftmargin=0 topmargin=0 rightmargin=0 bottommargin=0 marginwidth=0 marginheight=0>
<p><script type="text/javascript">
var sid = Math.round(Math.random() * 100000000);
document.write('<script type="text/javascript" src="http://site.ru/adout.php?p=984&t=1&sid=' + sid + '"><\/script>');
</script>
</p>
</body>
</html>

как средствами делфи организовать запрос на "http://site.ru/adout.php?p=984&t=1&sid=' + sid + '"?
тоесть получить значение переменной sid? Прошу помочь разобратся в этом вопросе smile

заранее спасибо smile

mr_smit

Дата 29.8.2009, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Результатом выполнения

Код

Math.round(Math.random() * 100000000);

является случайное 8-ми значное число.

Для тех кто не верит: (запустите в браузере)

Код


<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<body>
<script type="text/javascript">
var a = Math.random();
var b = a*100000000;
var c = Math.round(b);
alert(a+' <-> '+b+' <-> '+c);
</script>
</body>
</html>

Поэтому:

Код


procedure TForm1.Button1Click(Sender: TObject);
var sid: integer;
begin
Randomize;
sid:=random(99999999);
s:=Idhttp1.Get('http://site.ru/adout.php?p=984&t=1&sid='+IntToStr(sid));
end;

Если значения p=984&t=1 каждый раз разные, то вытаскивай их с помощью Pos() и PosEx().

Ruless

Дата 29.8.2009, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Спасибо, я знаю что это рандом. А нет возможности вытащить именно то число которое сгенерироволось скриптом? Просто на сколько мне известно в данном случае это имеет значение.

mr_smit

Дата 30.8.2009, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Разницы никакой. Что браузер тебе случайное число выдаст что Delphi.

Если хочешь помучиться поставь браузер (компонент) на форму и парси код страницы где будет число сгенерированное браузером.

Zlo

Дата 31.8.2009, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1

Сам когда-то задавал подобный вопрос на который мне к счастью ответили smile

ссылка: http://forum.vingrad.ru/forum/topic-60086.html

Ruless

Дата 2.9.2009, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

всем спасибо) тема закрыта)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »