Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.065 c
15-1156467422
lookin
2006-08-25 04:57
2006.09.17
Кто подскажет, где скачать "Я не знаю зачем..." Вертинского


2-1157013854
worldmen
2006-08-31 12:44
2006.09.17
Компонент RX 2.75


2-1156402995
Kacnep
2006-08-24 11:03
2006.09.17
Как определить Handle у Моего сервиса???


1-1154530693
zinetz_victor
2006-08-02 18:58
2006.09.17
Почему может падать Parent := panel1;


15-1156395719
Ega23
2006-08-24 09:01
2006.09.17
С Днём рождения! 24 августа