С нами с 22.09.03
Сообщения: 209
Рейтинг: 10
|
 Добавлено: 22/09/03 в 08:20 |
собсно а как в Delphi с помощью Twebbrowser, заполнить форму, нажать на сабмит?
или без twebbrowser?
|
|
|
|
| |
С нами с 10.12.02
Сообщения: 648
Рейтинг: 124
|
| Добавлено: 22/09/03 в 15:07 |
|
|
|
|
| |
С нами с 22.09.03
Сообщения: 209
Рейтинг: 10
|
| Добавлено: 22/09/03 в 15:31 |
смотрел я там - ниче похожего нет. но это не важно я уже сам разобрался.
теперь другая проблема. как заставить делфи подождать пока загрузится документа и уже после этго заполнять форму?
пробовал
repeat
until not(WebBrowser1.busy);
но че-то виснет и вобще не реагирует ни на что 
|
|
|
|
| |
www.vovasik.com
С нами с 13.08.01
Сообщения: 1016
Рейтинг: 388
|
| Добавлено: 22/09/03 в 15:47 |
топай в подпись
там есть исходники сабмитера
захотешь - разберешься
|
|
|
|
| |
adult - мое хобби
С нами с 17.10.02
Сообщения: 1124
Рейтинг: 262
|
| Добавлено: 22/09/03 в 16:13 |
|
|
|
|
| |
С нами с 14.02.03
Сообщения: 107
Рейтинг: 89
|
| Добавлено: 22/09/03 в 18:14 |
| БратЪ писал: | смотрел я там - ниче похожего нет. но это не важно я уже сам разобрался.
теперь другая проблема. как заставить делфи подождать пока загрузится документа и уже после этго заполнять форму?
|
Я в свое время ковырял, у меня отрабатывалось так:
| Код: |
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
iDoc:IHtmlDocument2;
query, search,search2:string;
begin
iDoc:=(pDisp as IWebBrowser).Document as IHtmlDocument2;
//.....
// и панеслась
end
|
|
|
|
|
| |
www.vovasik.com
С нами с 13.08.01
Сообщения: 1016
Рейтинг: 388
|
| Добавлено: 22/09/03 в 19:50 |
| БратЪ писал: | смотрел я там - ниче похожего нет. но это не важно я уже сам разобрался.
теперь другая проблема. как заставить делфи подождать пока загрузится документа и уже после этго заполнять форму?
пробовал
repeat
until not(WebBrowser1.busy);
но че-то виснет и вобще не реагирует ни на что |
это
вроде так нужно делать
repeat
until not(WebBrowser1.busy) Application.ProcessMessages;
но вообще-то нужно отлавливать событие onDocumentComplete или что-то такое
|
|
|
|
| |
adult - мое хобби
С нами с 17.10.02
Сообщения: 1124
Рейтинг: 262
|
| Добавлено: 23/09/03 в 01:51 |
| Vovasik писал: | | БратЪ писал: | смотрел я там - ниче похожего нет. но это не важно я уже сам разобрался.
теперь другая проблема. как заставить делфи подождать пока загрузится документа и уже после этго заполнять форму?
пробовал
repeat
until not(WebBrowser1.busy);
но че-то виснет и вобще не реагирует ни на что |
это
вроде так нужно делать
repeat
until not(WebBrowser1.busy) Application.ProcessMessages;
но вообще-то нужно отлавливать событие onDocumentComplete или что-то такое |
until not(WebBrowser1.busy) Application.ProcessMessages;
Это скорее надо применять тогда когда не удается отловить onDocumentComplete .
|
|
|
|
| |
С нами с 22.09.03
Сообщения: 209
Рейтинг: 10
|
| Добавлено: 24/09/03 в 07:48 |
adam:
я тут твой сабмитер скачал - рульная вещь  )) даже сам теперь ниче писать не буду... у тебя почти все что нужно есть. вот только еще если можно было бы в редакторе тгп в значения полей произвольный текст писать. у тебя как я понял только выбирать можно из того что во вкладке common.
и еще у тебя TEXT AREA - не поддерживаются
|
|
|
|
| |
adult - мое хобби
С нами с 17.10.02
Сообщения: 1124
Рейтинг: 262
|
| Добавлено: 24/09/03 в 10:41 |
произвольный текст не имеет смысла писать т.к. он непосредственно связан с базой
TEXT AREA поддерживается (красное поле) , по крайней мере у меня
|
|
|
|
| |
С нами с 22.09.03
Сообщения: 209
Рейтинг: 10
|
| Добавлено: 25/09/03 в 21:50 |
ну почему же не имеет. может в какой-то тгп есть свое оригинальное поле - которое во вкладке common отсутствует - тогда можно было бы в базе кэтому полю нужный текст прописать...
|
|
|
|
| |
adult - мое хобби
С нами с 17.10.02
Сообщения: 1124
Рейтинг: 262
|
| Добавлено: 26/09/03 в 02:30 |
| БратЪ писал: | | adam писал: | произвольный текст не имеет смысла писать т.к. он непосредственно связан с базой
TEXT AREA поддерживается (красное поле) , по крайней мере у меня |
ну почему же не имеет. может в какой-то тгп есть свое оригинальное поле - которое во вкладке common отсутствует - тогда можно было бы в базе кэтому полю нужный текст прописать... |
Я немного неправильно выразился. Смысл то имеет, реализовать трудно
не все так просто как кажется, поверь мне на слово
|
|
|
|
| |
Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте! |
