Показать сообщение отдельно
  #1  
Старый 19.06.2018, 22:15
Tech N9ne Tech N9ne вне форума
Прохожий
 
Регистрация: 18.05.2018
Сообщения: 31
Версия Delphi: Delphi 7
Репутация: 10
Вопрос 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

ПОМОГИТЕЕЕЕЕ)

Ответить с цитированием