Есть определённый сайт. Хочу отслеживать новые темы на форуме. Получать уведомление в программе, если появилась новая тема.
Загружаю страничку в
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, не помогло.
Если что, сайт http
S
сам сайт jahforum org
ПОМОГИТЕЕЕЕЕ)