[Feodor]

Использую процедуру для загрузки HTML кода в TwebBrowser, но есть одно но: на страницах есть изображения. Страница подгружается но теряет свой путь как я понял. Картинки прописаны относительно страницы, а адресс страницы становиться about:blank
Как это вылечить ? Очень не хочется постоянно сохранять страницу и потом удалять ((.

Код:

procedure TForm1.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;