Текущий архив: 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.048 c
