Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Вниз

Проблема со шрифтами в TWebBrowser   Найти похожие ветки 

← →
user1024 ©   (2007-09-09 21:30) [0]

Здравствуйте!
Мне надо в программе сохранить HTML страницу из WebBrowser на диск. Использую следующий способ:
procedure SaveHTMLSourceToFile(const FileName: string;WB: TWebBrowser);
var
 PersistStream: IPersistStreamInit;
 FileStream: TFileStream;
 Stream: IStream;
 SaveResult: HRESULT;
begin
 PersistStream := WB.Document as IPersistStreamInit;
 FileStream := TFileStream.Create(FileName, fmCreate);
 try
   Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
   SaveResult := PersistStream.Save(Stream, True);
 finally
   FileStream.Free;
 end;
end;

Все работает, но к сожалению весь русский шрифт выглядит примрено вот так: Р№ завод уровень  

Подскажите, что можно сделать?

---

← →
clickmaker ©   (2007-09-10 17:04) [1]

а кодировка у страницы какая?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c