Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

Web-браузер   Найти похожие ветки 

← →
batya17 ©   (2006-08-27 03:59) [0]

Можно ли в Web-Браузер, добовлять строчки как в memo или richedit.

---

← →
Ketmar ©   (2006-08-27 04:00) [1]

нет. но можно по другому.

---

← →
batya17 ©   (2006-08-27 05:02) [2]

а как, позвольте спросить

---

← →
Ketmar ©   (2006-08-27 05:03) [3]

а не помню. подожди, придёт DiamondShark или ещё кто, скажут. %-)

---

← →
batya17 ©   (2006-08-27 05:07) [4]

жду.......

---

← →
anton773 ©   (2006-08-27 07:48) [5]

Загрузи из строки. Вот пример:procedure WBLoadHTML(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.FormCreate(Sender: TObject) ;
var
 sHTML : string;
begin
 sHTML := "<a href="http://delphimaster.ru">GOTO</a>" +
          "About Delphi Programming";
 WBLoadHTML(WebBrowser1,sHTML) ;
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.068 c