Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi 7+ HTML !!! (https://forum.antichat.xyz/showthread.php?t=66662)

043nKRuT0y 07.04.2008 16:44
Delphi 7+ HTML !!!
 
Вопрос по Делфе .... Как в форму вставить Html страницу для отображения , тоесть страница находится удаленно а клиентская программа ее отображает !!! Што то на подобие Steam - клиента для Cs !!! Подкиньте знаний или
какойто макулатуры для чтения !!!

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

dos999 07.04.2008 17:57
Угу... самое простое пользоваться WebBrowser

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

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

!{ra!{e/\/ 10.04.2008 00:08
кидаешь на форму (с закладки Indy Clients) IdHTTP
хтмл код можно получить следующим образом
memo1.text:=IdHTTP1.get("http://ya.ru");
насчет отображение хтмл кода додумай сам можешь почитать тут

De-visible 10.04.2008 00:14
Загрузка кода HTML в TWebBrowser !
 
Код:
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


Время: 18:30