Кодировка при получении кода с webbrowser

[Fahman]

Доброго времени суток, есть Webbrowser и с него я получаю исходный код таким образом

       function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var ps: IPersistStreamInit;
      ss: TStringStream;
      sa: IStream;
      s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

И загружаю его в MEMO для обработки...

WB_GetHTMLCode(Webbrowser2, Memo1.Lines);

В исходном коде есть русские слова и проблема с кодировкой... Хотя если взять этот исходный код таким образом

Memo1.text:=Utf8ToAnsi(IdHTTP1.Get(''));

то все нормально отображает...
Подскажите как взять исходный код чтоб был таким же как я и брал методом гет? то есть с кодировкой UtftoAnsi?

[Stilet]

if Result then ACode.Add(Utf8ToAnsi(ss.Datastring));

не?

[Человек_Борща]

Подскажите как взять исходный код чтоб был таким же как я и брал методом гет?

Никак. Веб-браузер банально его модифицирует, поправляет и меняет за счет javascript на странице.

Сравните то что приходит от Get http://google.com и что реально есть в исходном коде страницы.

[Fahman]

Сообщение от Stilet

if Result then ACode.Add(Utf8ToAnsi(ss.Datastring));

не?

Ес офкорс))) Это то что надо, спасибо все нормально)

Просто нет слов

Сообщение от Человек_Борща

Никак. Веб-браузер банально его модифицирует, поправляет и меняет за счет javascript на странице.

Сравните то что приходит от Get http://google.com и что реально есть в исходном коде страницы.

Метод от Stilet
говорит обратное.... =)