Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Совместимость 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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c