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

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

Копирование текста в Clipboard [D6, Win2k]

Mishenka ©   (2005-09-05 17:23:00) 

При копировании русского текста в Clipboard методом AsText при в ставке в других приложениях текст изображается иероглифами, при том, что с английским всё нормально.  Как это исправить?

---

Mishenka   (2005-09-07 08:40:00) [1]

> Турист   (05.09.05 22:27) [4]

Спасибо, всё заработало!

---

Турист   (2005-09-05 22:27:00) [2]


uses
 Clipbrd;

type
 TClipboardAccess = class(TClipboard);

procedure CopyToClipboard(const aText: string);
var
 wText: WideString;
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then begin
   wText := aText;
   TClipboardAccess(Clipboard).SetBuffer(CF_UNICODETEXT, wText[1], (Length(wText) + 1) * 2)
 end else
   Clipboard.AsText := aText
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CopyToClipboard('Русский текст')
end;


---

Mishenka   (2005-09-05 21:52:00) [3]

> Digitman ©   (05.09.05 17:28) [1]

А можно обойтись без смены раскладок?

---

REA   (2005-09-05 17:47:00) [4]

Есть готовый компонент на королевстве.

---

Digitman   (2005-09-05 17:28:00) [5]

перед копированием установи русскую раскладку клавы
после вставки верни на место прежнюю раскладку

---

Наверх