WebBrowser HTML в файл.

[R@#]

с сохранением файла html разобрались. теперь не подскажете как загрузить html в webbrowser?

[Пепел Феникса]

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;

где HTMLCode тот строка/код, что нужно загрузить

или вот загрузка из файла:

procedure WB_LoadHTMLFromFile(WebBrowser: TWebBrowser; FileName: 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.LoadFromFile(FileName);
     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;

[Олвин]

Э... А разве нельзя так?

WebBrowser.Navigate('Путь к html-файлу');

[R@#]

И вот я опять не знаю что писать в параметры процедуры. Если кто знает подскажите...

[Пепел Феникса]

WB_LoadHTMLFromFile(WebBrowser: TWebBrowser; FileName: string;
смысл параметров такой же как в предыдущей процедуре(ну ведь явно написанно)
WB_LoadHTMLFromFile(WebBrowser1,<pa th>);

Webrowser1.Navigate(<path>);