Ротация данных

@HanDi · Регистрация: 11.02.2012

Author24 — интернет-сервис помощи студентам

Есть код

Delphi

WebBrowser1.Navigate('http://site.ru/ad1.html'); //реклама нижняя
WebBrowser1.Navigate('http://site.ru/ad2.html'); //реклама нижняя 2
WebBrowser1.Navigate('http://site.ru/ad3.html'); //реклама нижняя 3
WebBrowser1.Navigate('http://site.ru/ad4.html'); //реклама нижняя 4
WebBrowser1.Navigate('http://site.ru/ad5.html'); //реклама нижняя 5

нужно сделать, чтобы они показывались случайным образом, а не все сразу.

@Arcor · 24.04.2012, 00:35

Delphi

var S: TStringList;
 
begin
 
S := TStringList.Create;
S.Add('названия твоих сайтов');
WebBrowser1.Navigate(S.Items[Random(S.Count)]);

например вот так, в каком либо обработчике

@HanDi · 24.04.2012, 00:56 **[ТС]**

[DCC Error] Unit2.pas(103): E2003 Undeclared identifier: 'Items'

Delphi

1
2
3

S := TStringList.Create;
S.Add('google.com');
WebBrowser1.Navigate(S.Items[Random(S.Count)]);

@antikiler_ · 24.04.2012, 01:13

Delphi

1	WebBrowser1.Navigate(S.Strings[Random(S.Count)]);

@HanDi · 24.04.2012, 01:26 **[ТС]**

Delphi

S := TStringList.Create;
S.Add('ya.ru');
S.Add('google.com');
WebBrowser1.Navigate(S.Strings[Random(S.Count)]);

Переходит все равно на первую строку, т.е. ya.ru

@antikiler_ · 24.04.2012, 01:33

Все работает. Добавь Randomize и добавь больше ссылок

Delphi

Randomize;
S := TStringList.Create;
S.Add('ya.ru');
S.Add('google.com');
WebBrowser1.Navigate(S.Strings[Random(S.Count)]);

@HanDi · 24.04.2012, 01:35 **[ТС]**

Насчет этого вопрос закрыт. Спасибо.

Есть еще один: можно ли таким же способом выводить не webbrowser рекламу а обычные image? Как?

@Arcor · 24.04.2012, 02:16

document.write

вообще смотри операции с браузером, примеры из ява скрипта, или подобное, информации валом

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	24.04.2012, 01:35 [ТС]	7
	Насчет этого вопрос закрыт. Спасибо. Есть еще один: можно ли таким же способом выводить не webbrowser рекламу а обычные image? Как? 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	24.04.2012, 02:16	8
	document.write вообще смотри операции с браузером, примеры из ява скрипта, или подобное, информации валом 0