VPF::работа с WebBrowser - Форум программистов

graph

Дата 15.6.2009, 18:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть сайт people.md/profile/777.. 777 это id user...задается диапазон ID юзеров например от 100 до 500 страницы которых нужно посетить...мне нужно чтобы при нажатии кнопки включался цикл.. при повторном нажатии на кнопнуку включалась пауза...
помогите решить задачу с чего начать?

Alkash

Дата 15.6.2009, 19:22 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Задачу сформулируй конкретней.

--------------------

Подпись >> /dev/null

graph

Дата 15.6.2009, 20:29 (ссылка)

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

Загрузка ...

Новичок

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

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

к примеру задается в текст боксах диапазон id номера юзеров которые хотите посетить ..от 100 до 500..в программе в текст боксы вводиш свой логин и пароль... нажимаеш кнопку и начинается обход страниц...
от people.md/profile/100
до people.md/profile/500
при повторном нажатии кнопки должна сработать пауза...

вот скрин..
http://pic.ipicture.ru/uploads/090615/gu2Ue1jv1K.jpg

Это сообщение отредактировал(а) graph - 15.6.2009, 20:35

Keeper89

Дата 15.6.2009, 20:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

С чего начать...
1) заводятся переменные: счетчик, инкремент и макс.посещений;
2) по окончании события загрузки страницы начинать загружать следующую, пока счетчик+инкремент<=макс. посещений
3) при нажатии кнопки стоп, присвоить событию загрузки документа браузера Nil и остановить загрузку.

Это сообщение отредактировал(а) Keeper89 - 15.6.2009, 20:40

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

graph

Дата 15.6.2009, 20:48 (ссылка)

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

Загрузка ...

Новичок

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

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

если не трудно плиз напиши как бы это выглядело в коде..что и где.

Keeper89

Дата 15.6.2009, 20:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Прикрепи проект, допишу в твой

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

graph

Дата 15.6.2009, 20:59 (ссылка)

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

Загрузка ...

Новичок

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

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

прикрепил

Присоединённый файл ( Кол-во скачиваний: 6 )

People.rar 286,66 Kb

Keeper89

Дата 15.6.2009, 21:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Не получилось открыть проект, вот что должно быть:

Код


var
  Form1: TForm1;
  MAX, CUR, MIN: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OnDocumentComplete := WebBrowser1DocumentComplete;
  MIN := StrToInt(EditMIN.Text);
  MAX := StrToInt(EditMAX.Text);
  CUR := MIN;
  WebBrowser1.Navigate(EditURL.Text + IntToStr(CUR));
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  inc(CUR);
  if CUR > MAX then
  begin
    WebBrowser1.OnDocumentComplete := Nil;
    Exit;
  end;
  WebBrowser1.Navigate(EditURL.Text + IntToStr(CUR));
end;

Соответственно названия компонентов надо заменить на свои.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

graph

Дата 15.6.2009, 21:18 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо...а как зайти на сайт через форму не подскажеш?

WebBrowser1.OnDocumentComplete := WebBrowser1DocumentComplete;
в этой строке видит ошибку

Это сообщение отредактировал(а) graph - 15.6.2009, 21:50

Keeper89

Дата 15.6.2009, 22:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(graph @ 15.6.2009, 22:18

)

в этой строке видит ошибку

скорее всего функция не объявлена, вперед в инспектор объектов.

Цитата(graph @ 15.6.2009, 22:18

)

спасибо...а как зайти на сайт через форму не подскажеш?

Это уже другая тема, на форме к тому же уже неоднократно обсуждалась.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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