|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
html в memo, иероглифы за место русских букв
Есть определённый сайт. Хочу отслеживать новые темы на форуме. Получать уведомление в программе, если появилась новая тема.
Загружаю страничку в webbrowser, тяну html страницы в memo Английские буквы отображаются нормально, а русские непонятными символми... HTML в Memo получаю так: Код:
function SaveHTML(Strings:TStrings;WB: TWebBrowser):boolean; var PersistStream: IPersistStreamInit; MS: TMemoryStream; Stream: IStream; SaveResult: HRESULT; begin PersistStream := WB.Document as IPersistStreamInit; MS := TMemoryStream.Create; Result:=false; try Stream := TStreamAdapter.Create(MS, soReference) as IStream; SaveResult := PersistStream.Save(Stream, True); if FAILED(SaveResult) then exit; Result:=true; MS.position:=0; Strings.LoadFromStream(MS); finally MS.Free; end; end; procedure TForm1.sSpeedButton1Click(Sender: TObject); var Site:string; begin Site := 'https://jahforum.org/forum/99-%D0%B2%D0%BE%D0%BF%D1%80%D0%BE%D1%81-%D0%BE%D1%82%D0%B2%D0%B5%D1%82/'; wb1.Navigate(Site); while Wb1.ReadyState<>4 do Application.ProcessMessages; SaveHTML(sMemo1.Lines,wb1); end; Пробовал делать так: Код:
procedure TForm1.sSpeedButton2Click(Sender: TObject); begin sMemo1.Lines.Text := Utf8ToAnsi(sMemo1.Lines.Text); end; Результат тот же. Еще пробовал Charset := RUSSAIN_CHARSET, не помогло. Если что, сайт httpS сам сайт jahforum org ПОМОГИТЕЕЕЕЕ) |