Иногда так бывает, что надо скопировать текст/код, содержащий кириллические буквы, из редактора кода или текстовых полей разработанного приложения. Проблема состоит в том, что, когда такой текст вставляется в другие текстовые редакторы, кириллические символы вставляются в неверной кодировке. Например, такой код:
// комментарии
procedure TForm1.FormCreate(Sender: TObject);
begin
showMessage('Всё хорошо')
end;
end.Может быть вставлен в таком виде:
Несколько решений:
Первое:
Перед тем, как копировать текст, переключите язык ввода на русский. Всё должно скопироваться и вставиться нормально.
Второе:
Переключение языка ввода перед копированием текста – пожалуй, рабочий вариант во всех случаях. Но он не всегда удобен в том плане, что конечному пользователю надо сообщать дополнительно (либо в справочной документации, либо на форме самого приложения) о необходимости переключения языка ввода. Можно переключать язык ввода автоматически перед работой с буфером обмена (далее - БО), но, как я говорил ранее, проблема возникает и тогда, когда происходит копирование из стороннего приложения в наше. Если способ отследить такое и существует, мне он неизвестен. Потом, переключение языка ввода без ведома пользователя - в некотором роде моветон, с моей точки зрения, поэтому такой способ здесь не рассматривается.
Сейчас я расскажу о способе решения проблемы, который был найден мной в ходе разработки своей небольшой программы.
Во-первых, вам нужно подключить модуль RusClipboard.pas (согласно информации в Интернете, автор - Игорь Цысь (Igoreha), igoreha@i.com.ua)
Код модуля:
Код модуля RusClipboard.pas
unit RusClipboard;
interface
uses Clipbrd;
type
TRusClipboard = class(TClipboard)
private
procedure SetCodePage(const CodePage: longint);
public
procedure Open; override;
procedure Close; override;
end;
implementation
uses Windows;
{ TRusClipboard }
procedure TRusClipboard.Close;
begin
SetCodePage($0419);
inherited;
end;
procedure TRusClipboard.Open;
begin
inherited;
SetCodePage($0419);
end;
procedure TRusClipboard.SetCodePage(const CodePage: longint);
var
Data: THandle;
DataPtr: Pointer;
begin
// Назначить кодовую страницу для буфера обмена
Data:= GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, 4);
try
DataPtr := GlobalLock(Data);
try
Move(CodePage, DataPtr^, 4);
SetClipboardData(CF_LOCALE, Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
end;
end;
var
NewClipboard: TClipboard;
OldClipboard: TClipboard;
initialization
NewClipboard := TRusClipboard.Create;
OldClipboard := SetClipboard(NewClipboard);
OldClipboard.Free;
end. Внимание: далее в тексте добавленные стоки отмечены конструкцией <----
Говорят, его надо просто подключить к проекту. В секции uses укажите имя модуля – rusClipboard. Но у меня так не работало. Здесь может быть неясно, как его использовать. Хорошо, что я сразу догадался использовать класс, написанный в этом модуле – TRusClipboard. Значит, вторым шагом после подключения модуля будет создание переменной типа TRusClipboard в секции private класса вашей формы:
type
TForm1 = class(TForm)
...
private
{ Private declarations }
clipboard: TRusClipboard; // <----
public
{ Public declarations }
end;В обработчике создания формы надо выделить для него память
procedure TForm1.FormCreate(Sender: TObject);
begin
clipboard:=TRusClipboard.Create; // <---
end;А в обработчике закрытия формы память освободить:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
clipboard.Free; // <---
end;Решая проблему кодировки при копировании символов, я заметил, что всё копируется нормально, если при помещении информации в БО просто обратиться к свойству asText переменной БО, то есть, clipboard.asText. Из этого следует, что нам нужен обработчик помещения (текстовой) информации в БО. В отличие от двух предыдущих, средства Delphi 7 не позволяют автоматически подготовить для него код, поэтому его надо написать самому. Для этого в секции private класса нашей формы надо записать заголовок обработчика:
type
TForm1 = class(TForm)
...
private
{ Private declarations }
clipboard: TRusClipboard;
procedure drawClipboard(var AMsg: TWMDrawClipboard); message WM_DRAWCLIPBOARD; // <---
public
{ Public declarations }
end;Справа от заголовка процедуры располагается ключевое слово message, за которым следует имя обрабатываемого сообщения. Это означает, что эта процедура будет являться обработчиком сообщения о помещении в буфер обмена информации. Далее, в разделе implementation необходимо написать реализацию этого обработчика. Здесь я рекомендую поставить курсор на строку с заголовком этого обработчика и воспользоваться комбинацией клавиш CTRL+SHIFT+C. В этом случае IDE создаст для вас заготовку для обработчика автоматически. Как я говорил ранее, при помещении текста в БО, надо обратиться к свойству asText переменной clipboard. Таким образом, реализация обработчика будет иметь следующий код:
procedure TForm1.drawClipboard(var AMsg: TWMDrawClipboard);
begin
clipboard.AsText; // <---
end;Я не разбирался, как работает класс БО в Delphi, и частности его дочерний TRusClipboard, поэтому для меня это – танцы с бубном, особенно, если учесть, что, asText – это не подпрограмма.
Чтобы это работало, нам надо разместить окно нашего приложения в цепочке наблюдателей БО. Для этого сначала мы создадим приватное поле с типом HWND:
type
TForm1 = class(TForm)
...
private
{ Private declarations }
clipboard: TRusClipboard;
nextWindowHandle: HWND; // <---
procedure drawClipboard(var AMsg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;
public
{ Public declarations }
end;а в обработчике создания формы вызовем функцию setClipboardViewer, которой передадим дескриптор главного окна программы. Эта функция размещает окно, дескриптор которого мы передаём, в цепочке наблюдателей БО, и возвращает дескриптор следующего окна в цепочке. Имеем:
procedure TForm1.FormCreate(Sender: TObject);
begin
clipboard:=TRusClipboard.Create;
nextWindowHandle:=SetClipboardViewer(handle); // <---
end;Обратите внимание на порядок строк в этом обработчике. Размещать окно в цепочке необходимо ПОСЛЕ выделения памяти для БО.
В обработчике закрытия формы нам надо изъять помещённое ранее окно из цепочки наблюдателей. Для этого вызывается функция changeClipboardChain. Она принимает два аргумента, первый из которых – дескриптор извлекаемого окна, а второй дескриптор замещающего окна. Мы его получали ранее, это окно, следующее за нашем в цепочке. Имеем:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
changeClipboardChain(handle, nextWindowHandle); // <---
clipboard.Free;
end;Я считаю, что возвращаемый результат этой функции нам не нужен в данном случае, поэтому я его ничему не присваиваю.
Все эти операции достаточно выполнить в модуле основной формы. Во всех остальных формах вашего проекта работа с БО также будет происходить корректно.
Важное замечание
Как я заметил, неприятность выше описанного метода заключается в том, что иногда при помещении текста в буфер обмена, появляется ошибка “Не могу открыть буфер обмена” (“can’t open clipboard” или как-то так), при этом текст копируется без проблем.
Чтобы избежать появления этой ошибки, я советую тело обработчика помещения текста в буфер обмена обернуть в try/except.
В секции except писать ничего не надо - текст копируется нормально, но задача состоит в том, чтобы избежать появления сообщения об ошибке.
Возможно, это быдлокод, но лучшего / более красивого решения я пока не могу предложить.
Таким образом, этот код будет выглядеть так:
procedure TForm1.drawClipboard(var AMsg: TWMDrawClipboard);
begin
try
clipboard.AsText;
except
end;
end;
Демонстрацию работы данного способа я размещаю как в приложении, так и во внешней ссылке.
Ссылка на демо-проект на яндексДиске: https://yadi.sk/d/uLvsgE_AARpLrA
Ключевые слова для поиска темы
Текст код из Делфи Delphi вставляется криво крокозябрами кракозябрами в испорченной неверной кодировке