Проблема кодировки при копировании через буфер, хелп!

← →
lipskiy © (2004-12-20 22:27) [0]

Замечаю эту проблему со многими программами, не только со своими - русский текст после копировани-вставки изменяет кодировку на типа такую - Ïðèìåð òåêñòà.
Как это починить?

Во-первых, как сделать в моих программах, чтобы копирование работало при любых текущих настройках системы.
Во-вторых, как нужно настроить систему, чтобы чужие программы правильно копировали текст.

У меня WinXP rus SP2. НО проблему это наблюдаю практически на любых виндах.

← →
Alexander Panov © (2004-12-20 22:29) [1]

Проблема во всех.
Пока, по-моему, нашли только такое решение - перед копированием в ClipBoard нужно переключиться на русскую раскладку клавиатуры.

← →
lipskiy © (2004-12-20 23:31) [2]

Спасибо! Все прокатило.
Если кому надо, вот решение (насобирал из разных мест и немного добавил):

function ChangeLayout(LANG: Integer): Boolean; var Layouts: array [0..16] of HKL; i, Count: Integer; begin Result:=False; Count:=GetKeyboardLayoutList(High(Layouts)+1, Layouts)-1; for i:=0 to Count do if (LoWord(Layouts[i]) and $FF) = LANG then Result:=ActivateKeyboardLayout(Layouts[i], 0)<>0; end; function GetLayout:Integer; begin result:= (GetKeyboardLayout(0) shr $10) and $FF; end; // собственно, эту процедуру используем: procedure CopyToClipBoard(Text:string); var lw:longword; begin lw:= GetLayout; ChangeLayout(LANG_RUSSIAN); Clipboard.AsText:= Text; ChangeLayout(lw); end;

Может че некорректно или некрасиво, но работает!

← →
Amoeba © (2004-12-21 11:33) [3]

Смотри статью, посвященную этой проблеме, на http:\\www.delphikingdom.com

← →
Fay © (2004-12-21 11:39) [4]

Обсуждалось на прошлой неделе.

А именно:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=780

http://delphimaster.net/view/1-1103147632/

Проблема кодировки при копировании через буфер, хелп! Найти похожие ветки