Совместимость Clipboard и русских букв

← →
salexn (2005-03-03 10:41) [0]

Есть проблема. Я "запоминаю" некоторый текст из clipboard в DataSet. Просматриваю его в гриде - все ок, русские буквы отображаются корректно. затем делаю обратное, из DataSet в Clipboard и русские буквы превращаются в знаки вопроса. Как победить??

← →
DesWind © (2005-03-03 11:07) [1]

procedure SetClipboardTextRus(ClipBoard: TClipBoard; const Text: string); const RusLocale = SUBLANG_DEFAULT shl 10 or LANG_RUSSIAN; var Mem: THandle; P: Pointer; begin Clipboard.Open; Clipboard.AsText := Text; Mem := GlobalAlloc(GMEM_MOVEABLE, SizeOf(DWORD)); P := GlobalLock(Mem); DWORD(P^) := RusLocale; GlobalUnlock(Mem); Clipboard.SetAsHandle(CF_LOCALE, Mem); Clipboard.Close; end;

← →
salexn (2005-03-03 11:17) [2]

>DesWind
Спасибо!!!
А если другие языки??? Скажем украинсикй или китайский какой, все тоже нормально бут проходить или нет?

← →
DesWind © (2005-03-03 11:35) [3]

поробуй, должно

← →
salexn (2005-03-03 11:41) [4]

сожалению ни одного ни другого языка нет установленного :-)

Совместимость Clipboard и русских букв Найти похожие ветки