| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в WebBrowser загрузить HTML. [D7, XP]

allucard ©   (2007-05-22 08:34:00) 

Доброго дня.

Подскажите методом IdHTTP1.Post получаю HTML код в виде TStringStream.

Как его отобразить в компоненте WebBrowser?

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin

Login := 'login';
Password := 'pass';

LoginInfo := TStringList.Create;
Response := TStringStream.Create('');

 LoginInfo.Clear;
 LoginInfo.Add('Login=Login');
 LoginInfo.Add('Password=Pass');

IdHTTP1.Post(' http://www.site.com' ,LoginInfo, Response);
Memo1.Lines.Add(Response.DataString);

// WebBrowser1. ???

Response.Free;
LoginInfo.Free;
end;

Спасибо.

---

allucard   (2007-05-22 14:52:00) [1]

Как в загруженной странице в WebBrowser ввести данные в поля логин и пароль и нажать кнопку вход?

---

Плохиш   (2007-05-22 12:34:00) [2]

> allucard   (22.05.07 12:26) [5]
> Шведы жгут

Швейцарцы...

---

allucard   (2007-05-22 12:26:00) [3]

Шведы жгут

---

allucard   (2007-05-22 12:05:00) [4]

Спасибо всем.
Оно самое.

---

Плохиш   (2007-05-22 11:06:00) [5]

http://www.swissdelphicenter.ch/de/showcode.php?id=1096

---

allucard   (2007-05-22 10:06:00) [6]

Есть же у этого компонента свойство которое содержит HTML код?

---

G_M_S   (2007-05-22 09:42:00) [7]

Я обычно в таких случаях кэширую страницу в локальный файл, а потом открываю в WebBrowser методом Navigate. Это позволяет в последствии использовать кэшированные страницы или чего-нить в них подменять... Выглядит примерно так:

===================================================
 tmp : String;
 f     : TextFile;
begin
     ....(параметры и все такое)
     assignfile(f,ExtractFileDir(Application.ExeName)+'\dump.wml');
     rewrite(f);
     tmp := IdHTTP1.Post(' http://....ru/', ppar);
     writeln(f,tmp1);
     closefile(f);
     WebBrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\dump.wml');
===================================================

В принципе, тут кэширование в один файл, а вообще можно сделать что-то типа кэша в Опере, со списком вида URL=LocalFileName.

---

Наверх