Русские буквы в Memo, как?

[bakanaev]

Получаю через TWebBrowser страницу, исходный код записываю в Memo, но вместо русских слов идут каракули

Конфиденциальность

У меня Delphi XE2 (ENG) на Windows 7 RUS. Пробовал менять шрифт на Arial Unicode MS (поддерживает русские буквы), толку ноль.
Кто сталкивался откликнитесь

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

UTF8Encode, UTF8Decode функции

[Sm1Le]

http://www.programmersforum.ru/showp...11&postcount=5

Поиск рулед ... частый вопрос.

[bakanaev]

Оказалось проблема была не в мемо а в функции обработки исходного кода. Было так

function WB_GetHTMLCode(WebBrowser1: TWebBrowser): ANSIString;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  p: integer;
begin
  ps := WebBrowser1.Document as IPersistStreamInit;
  ss := TStringStream.Create('');
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    if Succeeded(ps.Save(sa, True)) then
    for p:=0 to length(ss.Datastring) do
        begin
        Result:=Result+ss.Datastring[p];
        end;
    result:=utf8toansi(result);
  finally
    ss.Free;
  end;
end

А надо было так

function WB_GetHTMLCode(WebBrowser1: TWebBrowser; SiteEncoding : TEncoding) : string;
var
   ms : TMemoryStream;
   sL : TStringList;
begin
   ms := TMemoryStream.Create;
   try
      (WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);
      ms.Position := 0;
      sL := TStringList.Create;
      try
         sL.LoadFromStream(ms, SiteEncoding);
         result := sL.Text;
      finally
         FreeAndNil(sL);
      end;
 
   finally
      FreeAndNil(ms);
   end;
end;

вызывается так

  s := WB_GetHTMLCode(WebBrowser1, TEncoding.GetEncoding(1251));
// или
//   s := WB_GetHTMLCode(WebBrowser1, TEncoding.Utf8);

Всем спасибо.
P.S Sm1Le, поиск рулет :D