Delphi 7+ HTML !!!

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by 043nKRuT0y, 7 Apr 2008.

  1. 043nKRuT0y

    043nKRuT0y Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Вопрос по Делфе .... Как в форму вставить Html страницу для отображения , тоесть страница находится удаленно а клиентская программа ее отображает !!! Што то на подобие Steam - клиента для Cs !!! Подкиньте знаний или
    какойто макулатуры для чтения !!!
     
  2. ZirroCool

    ZirroCool Elder - Старейшина

    Joined:
    16 Sep 2006
    Messages:
    128
    Likes Received:
    55
    Reputations:
    20
    Если я не ошибаюсь те нужен компонент TWebBrowser
     
  3. dos999

    dos999 Elder - Старейшина

    Joined:
    15 Feb 2008
    Messages:
    137
    Likes Received:
    24
    Reputations:
    0
    Угу... самое простое пользоваться WebBrowser

    1. Кидаешь компонент WebBrowser с палитны Internet
    2. что бы он отобразил страницу
    WebBrowser1.Navigate(/);
     
    1 person likes this.
  4. 043nKRuT0y

    043nKRuT0y Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Пробовал я ету процедуру ... включил ее при создании формы , указал адрес страницы , запускаю проект оно долго грузится и выбивает страницу ошибки может еще чето надо или со стороны сервака чето настроить ..... подскажите !
     
  5. !{ra!{e/\/

    !{ra!{e/\/ Banned

    Joined:
    27 Aug 2007
    Messages:
    98
    Likes Received:
    50
    Reputations:
    3
    кидаешь на форму (с закладки Indy Clients) IdHTTP
    хтмл код можно получить следующим образом
    memo1.text:=IdHTTP1.get("http://ya.ru");
    насчет отображение хтмл кода додумай сам можешь почитать тут
     
    2 people like this.
  6. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Загрузка кода HTML в TWebBrowser !

    Code:
    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