Форум: "Начинающим";
Текущий архив: 2011.02.20;
Скачать: [xml.tar.bz2];
ВнизРусский шрифт в Memo Найти похожие ветки
← →
Демерго (2010-12-01 16:23) [0]Я переношу текст из webbrowser в memo и вместо русского шрифта получаются иероглифы. Можно это как-то исправить?
← →
Ega23 © (2010-12-01 16:24) [1]
> Можно это как-то исправить?
Можно. Перед тем, как копируешь из webbrowser переключай раскладку клавиатуры на русскую.
← →
Медвежонок Пятачок © (2010-12-01 16:25) [2]переключиться на русский перед копированием.
но иногда и это не поможет
← →
Демерго (2010-12-01 16:26) [3]дело в том что я переношу програмно а не вручную, вот код:
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;
← →
Медвежонок Пятачок © (2010-12-01 16:28) [4]и чего?
← →
Медвежонок Пятачок © (2010-12-01 16:29) [5]дело в том что я переношу програмно а не вручную
а когда в винде переключается раскладка, то это делается не программно.
Это маленький билгейц сидящий в клаве переключает ее вручную.
← →
Медвежонок Пятачок © (2010-12-01 16:31) [6]кроме того, переключение это когда через буфер.
а у тебя анси строки как приемник и юникод данные в браузере как источник.
а это уже совсем другая песня
← →
DiamondShark © (2010-12-01 16:31) [7]
> Result := Succeeded(ps.Save(sa, True));
А не в юникоде ли оно сохраняется?
← →
Ega23 © (2010-12-01 16:57) [8]
> А не в юникоде ли оно сохраняется?
Конечно.
← →
Игорь Шевченко © (2010-12-01 17:00) [9]use Delphi 2010, Luke
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.02.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c