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

mspuz

Дата 5.9.2011, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

Добрый день. Имеем адрес - http://forum3.ru/cgi/shop/shop.pl?cmd=show...&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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) mspuz - 6.9.2011, 12:54

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »