| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

salexn ©   (2005-03-03 10:41:00) 

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

---

salexn   (2005-03-03 11:41:00) [1]

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

---

DesWind   (2005-03-03 11:35:00) [2]

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

---

salexn   (2005-03-03 11:17:00) [3]

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

---

DesWind   (2005-03-03 11:07:00) [4]


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;


---

Наверх