Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Скачать веб-страницу с помощью WebBrowser

Автор: mspuz 5.9.2011, 11:19

Добрый день. Имеем адрес - http://forum3.ru/cgi/shop/shop.pl?cmd=show_tovar&code=90431, необходимо сохранить html-исходник. Использовал следующую функцию:

Код


function SaveHTML(const FileName: String; WB: TWebBrowser): Boolean;
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
 Result := False;
 PersistStream := WB.Document as IPersistStreamInit;
 FileStream := TFileStream.Create(FileName, fmCreate);
 try
  Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
  SaveResult := PersistStream.Save(Stream, True);
  Result := not FAILED(SaveResult);
 finally
  FileStream.Free;
 end;
end;

Этот код меня никогда не подводил, но в этот раз сохраняет совсем не то. Не могу понять почему. Подскажите как это победить. Спасибо.

Автор: mspuz 5.9.2011, 15:07

Разобрался, оказывается символ "&" преобразуется в нижнее подчеркивание. Никак не могу победить это!!! Char(38) выдает ничего, хотя это код этого символа. Использую BDS 2006.
Хотя нет, дело оказалось не в этом. Просто на сайте, при открытии свойств товара создается отдельная "вкладка", но при этом главная страница как бы остается. Вот у меня WebBrowser и сохраняет главную страницу, хотя отображает то что нужно.