Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Август 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1168
от 30.08.2008, 12:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 407, Экспертов: 42
В номере:Вопросов: 2, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 142134: В общем создаю программу в которой в эдиты вписываются данные такие как Имя, Фамилия, Емаил, Адресс. При нажатии на баттон загружается компонент WebBrowser со страницей в которой есть формы для ввода этих данных. При процедуре WebBrowser1DocumentComp...
Вопрос № 142169: Здравствуйте уважаемые эксперты! Покажите плиз пример как реализовывается закрепление панели ControlBar. Т.е. чтоб она стала неперетаскиваемой. Типа как это обычно настраивается в программах "Закрепить панель инструментов"....

Вопрос № 142.134
В общем создаю программу в которой в эдиты вписываются данные такие как Имя, Фамилия, Емаил, Адресс. При нажатии на баттон загружается компонент WebBrowser со страницей в которой есть формы для ввода этих данных. При процедуре WebBrowser1DocumentComplete пишу следующий код для вставки данных из эдитов в формы на сайте:
if (FillForm(WebBrowser1, 'fname', edit12.text) = False) or
(FillForm(WebBrowser1, 'lname', edit13.text) = False) or
(FillForm(WebBrowser1, 'address3', edit1.text) = False)
then
ShowMessage('Error. Field not available or no Form found.')
else
WebBrowser1.OleObject.Document.forms.item('theform').elements.item('Submit').click;
Нажимается кнопка отправить данные.
Далее открывается страница на которой виден результат, удалась регистрация или нет, НО в этот момент ведь опять происходит WebBrowser1DocumentComplete и следовательно опять ищутся поля для ввода, но стр аница то другая и этих полей там нет. Следовательно выскакивает ошибка, так вот как можно по другому реализовать эти действия, зделать просто чтоб поля не искались а сразу заполнялись, а при их отсутствии при открытии второй страници с результатом ничего не выводилось.
P.S. страница https://
но это еще не все, далее нужно както прочитать данные о том удалась ли регистрация или нет, я поступил так после того как нажалась кнопка Отправить данные вставил паузу - Delay(6000) чтобы успела открыться страница с результатом, далее идет сохранение кода этой страници в txt, а потом идет поиск по ключевым словам, например если в коде страници найдено слово Thank you то выводится сообщение спасибо за регистрацию иначе регистрация не удалась, НО у некоторых интернет очень медленный и 6 секунд не хватает а выставлять большее ожидание это заставлять других ждать лишнее время. Так вот как поступить в этой ситуации???
На этом мои вопросы на данном этапе закончены, прошу помочь мне, и описать пути возможного решения проблеммы как можно подробнее, так как еще не все компоненты освоил в этом замечательном языке программирования)))
Отправлен: 24.08.2008, 21:42
Вопрос задал: Akahaos (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Troyan
Здравствуйте, Akahaos!
Вот мои предложения по решению заявленных вами проблем.
По первой проблеме: создаете глобальную логическую переменную. После нажатия на ваш "баттон" устанавливаете ей значение true. Далее во время события WebBrowser1DocumentComplete вы проверяете эту переменную, то делаете описанное в процедуре, привязанной к этому событию, только в том случае, если переменная равна true. В конце процедуры, вызываемой по событию WebBrowser1DocumentComplete обязательно следует установить в false.
По второй проблеме: просто спросите у пользователя тип его модема (сделайте это где-нибудь в настройках или еще как-нить) и в зависимости от этого можно регулировать уже время ожидания. Также можно спросить у пользователя и время, которое он готов ждать.
---------
Цени законы своего сердца, иди на обгон! Будь человеком, не запачкай свою совесть!
Ответ отправил: Troyan (статус: Студент)
Ответ отправлен: 24.08.2008, 22:51
Оценка за ответ: 5

Вопрос № 142.169
Здравствуйте уважаемые эксперты!
Покажите плиз пример как реализовывается закрепление панели ControlBar. Т.е. чтоб она стала неперетаскиваемой. Типа как это обычно настраивается в программах "Закрепить панель инструментов".
Отправлен: 25.08.2008, 08:42
Вопрос задал: Maximus777 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Raptor3
Здравствуйте, Maximus777!

У компонента ControlBar ставим свойство DragMode в dmManual
---------
Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 8-ой класс)
Ответ отправлен: 25.08.2008, 08:53
Оценка за ответ: 5
Комментарий оценки:
ОК. Только у меня наоборот сработало значение dmAutomatic. А вот ещё бы убрать полоску, за которую таскается панель. Какое свойство за это отвечает?

Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.1 beta(win) от 11.08.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное