[Nekromant Set'а]

Приветствую... У меня следующие вопросы по использованию компонента TWebBrowser:
1. Как программно перейти на указаный веб-адрес;
2. Как программно выделить флажки на странице;
3. Как программно выделить необходимые переключатели на странице;
4. Как программно нажать на кнопку на странице;
5. Как программно извлечь HTML код страницы;
6. Как программно отключить автоматическую загрузку картинок к странице;

[Decoding]

http://decoding.narod.ru/faq/compone...wser/main.html

[Nekromant Set'а]

Ответа на 2 и 3 вопрос я ненашёл... ответте на эти вопросы...

[Decoding]

В принципе, нет ничего сложного, если все сделать по аналогии вот с этим - http://decoding.narod.ru/faq/compone...er004.html#004. Посмотри еще раз тут - http://decoding.narod.ru/faq/compone...wser/main.html, два последних примера, это то, что тебе нужно. Тестировал я их на страницах со следующим содержанием

<FORM>
<input type=radio value=1 name=a><BR>
<input type=radio value=2 name=a><BR>
<input type=radio value=3 name=a><BR>
<input type=radio value=4 name=a>
</FORM>

и

<FORM>
<input type=checkbox value=1><BR>
<input type=checkbox value=2><BR>
<input type=checkbox value=3><BR>
<input type=checkbox value=4>
</FORM>

[The Shadow]

Можно еще вопрос, когда открывается новое окно, не могу узнать адрес страницы, которую надо открыть, как его узнать?

[Decoding]

Ты про это?

Код:

 
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
   Caption := URL;
end;

[The Shadow]

Нет. Я наверно неправильно сформулировал вопрос. Я не знаю как в событии OnNewWindow узнать адрес страницы. Кто-нибудь может подсказать?

[Rudy_KOT]

Дорогие гуру подскажите как заставить компоненту TWebBrowser работать через проски. очень надо) За ранее благодарен)

[dzr_gregory]

Полагаю что вот так: http://delphikingdom.ru/asp/viewitem.asp?catalogid=503

[karamba]

Уважаемые программисты помогите ламеру.
Задача следующая: мне необходимо с определенных WEB сайтов получать нужную информацию и записавать ее в соответствующие поля таблицы БД. У меня получилось это сделать загружая сайт в компонент WebBrowser, затем содержимое WebBrowser сохраняется в текстовый файл, потом из файла инфомация пересылается в переменную типа StringList и в ней уже осуществляется поиск нужной информации и запись ее в БД.
А можно это сделать как то по другому? Без WebBrowser и сохранения текстового файла на диске.

[The Shadow]

У IdHTTP есть метод Get(AURL: string; const AResponseContent: TStream) где AURL - URL страницы, AResponseContent - поток, в который сохраняются данные.

[s0Creator]

Вариант на TcpClient1

[karamba]

Сообщение от The Shadow

У IdHTTP есть метод Get(AURL: string; const AResponseContent: TStream) где AURL - URL страницы, AResponseContent - поток, в который сохраняются данные.

Я не могу разобраться как работать с TStream. Я пишу:

Код:

var
SL:TStringList;
ST:TStream;
begin
ST:=TStream.Create;
IdHTTP1.Get('C:\marathon\stavki.htm',ST);
SL:=TStringList.Create;
SL.LoadFromStream(ST);
SL.Free;
end;

Помогите...Как правильно делать?

[karamba]

Вот так вот надо:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Response: TStringStream;
begin
   Response := TStringStream.Create('');
   IdHTTP1.Get('http://www.ya.ru',Response);
   Memo1.Text:=Response.DataString;
 Response.Free;
end;

Спасибо всем за помощь!!!