Delphi 7+ HTML !!!

[043nKRuT0y]

Вопрос по Делфе .... Как в форму вставить Html страницу для отображения , тоесть страница находится удаленно а клиентская программа ее отображает !!! Што то на подобие Steam - клиента для Cs !!! Подкиньте знаний или
какойто макулатуры для чтения !!!

[ZirroCool]

Если я не ошибаюсь те нужен компонент TWebBrowser

[dos999]

Угу... самое простое пользоваться WebBrowser

1. Кидаешь компонент WebBrowser с палитны Internet
2. что бы он отобразил страницу
WebBrowser1.Navigate(http://forum.antichat.ru);

[043nKRuT0y]

Пробовал я ету процедуру ... включил ее при создании формы , указал адрес страницы , запускаю проект оно долго грузится и выбивает страницу ошибки может еще чето надо или со стороны сервака чето настроить ..... подскажите !

[!{ra!{e/\/]

кидаешь на форму (с закладки Indy Clients) IdHTTP
хтмл код можно получить следующим образом
memo1.text:=IdHTTP1.get("http://ya.ru");
насчет отображение хтмл кода додумай сам можешь почитать тут (http://forum.sources.ru/index.php?showtopic=225009)

[De-visible]

uses
ActiveX;

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;

if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms) );
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(WebBrowser1, 'SwissDelphiCenter');
end;
Пример из DelphiWorld