Web browser, wpisywanie kodu html

0

siemanko
mam sobie kodzik

WebBrowser1.Navigate(\'about:blank\');
WebBrowser1.OleObject.Document.Write(s);

przy czym "s" to zmienna typu string.
Niestety, kodzik działa tylko raz. To znaczy po ponownym wywołaniu wyświetla się pusta strona (sprawdziłem Odpluskiwaczem, "s" ma ciągle tą samą wartość [1] i na pewno nie ma prawa wyświetlać pustej strony)
[1] : zawartość "s" :

<b> test </b> 

proszę o pomoc!

0
WebBrowser1.OleObject.Document.body.innerHTML := s;

dopisane:
AklimX - tyle kodu po to tylko, żeby zrobić to samo, co robi jedna linijka...

0
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;

gwarantuje, ze dziala, bo sam z tego korzystam.
Źródło: http://delphi.about.com/cs/adptips2004/a/bltip0104_4.htm

1 użytkowników online, w tym zalogowanych: 0, gości: 1