[RoboStudent]

Доброго времени суток!

Подключил ClipBrd.pas. Делаю следующее:

PHP код:

Clipboard.AsText:=('тут слово'); 


Устанавливаю каретку в Memo (пробовал и не в Memo), заставляю сработать Paste эмуляцией нажатия Ctrl+V:

PHP код:

keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);
keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),0,0);
keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0); 


в итоге вставляются кракозяблы. Пробовал менять Crarset в Memo - толку нет. Проблема только с кириллицей.
Поискал на форумах, нашел только это:

"Зайти в реестре в HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\CodePage и поменять 1250=c_1250.nls на c_1251.nls"

Пробовал даже комп ребутнуть - никакого толку.

Кто поможет - молодец

[PhoeniX]

Версия Delphi, версия Windows?

[RoboStudent]

Прошу прощения, но я всё же понял, что с Edit-ом я не пробовал. Из него даже кириллица копируется хорошо. Видимо тип данных в Memo другой или как это еще назвать. К сожалению, мне пока что тяжело запомнить всё о типах и полностью разобраться в их работае, так как я PHP программист, а в PHP нет необходимости указывать явный тип данных в переменных. В общем, вопрос решился сам собой. Еще раз прошу прощения.

[RoboStudent]

Сообщение от DJ PhoeniX

Версия Delphi, версия Windows?

XP SP2 Pro, D7.
Может всё же подскажите, чтобы я впредь знал в чём беда с Memo?

[RoboStudent]

Вопрос решился полностью.
Метод:
Заменил Memo на RichEdit и перед копированием в буфер делаю это:

PHP код:

RichEdit1.SelAttributes.Charset:=RUSSIAN_CHARSET; 


В итоге текст вставляется как положено, потому что и копируется в подобающем виде.
Спасибо DelphiWorld =)

[NumLock]

еще на будущее: перед тем, как скопировать русский текст (для английского не помешает) в буфер обмена (Clipboard.AsText:=) переключи язык на русский:

Код:

LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE);
Clipboard.AsText:=

[RoboStudent]

Пробовал. 419 Рус, 409 Eng. Как-то странно - то оно работает, то не работает. Уже пробовал из файла с ansi кодировкой читать русский текст, и с KOI8-R и других - такая же беда. Покопаю еще, в принципе, работает частично, мне этого хватает, но всё больше склоняюсь к установке Rad, так как там с юникодом можно работать без проблем.