При вставке в TEdit моего приложения текста из буфера обмена вместо русских букв отображаются знаки вопроса, что не есть правильно. Как сделать правильно? Если можно, кусок кода. Зарание спасибо.

Откуда скопирован текст?

Это баг самого XP.

Не знаю, у меня всё правильно вставляется, но одно время такой же косяк был (не помню как исправил), могу только посоветовать:
1. В свойствах Edit1 (TEdit) попробуй разные значения Font\Charset (по умолчанию там стоит Defaut_Charset)
2. Такой косяк возникает и с другими прогами, там делается следующий обход: при копировании и вставке русских символов должная стоять русская раскладка клавиатуры.

ТоляМБА не поможет, это чисто XP-шный баг. Где-то на форуме этот вопрос уже обсуждался.

Цитата(RAdmin @ 26.7.2005, 09:14)

ТоляМБА не поможет, это чисто XP-шный баг. Где-то на форуме этот вопрос уже обсуждался.

RAdmin, ну сегодня я утром дома посмотрел
Винда ХР русифицированная без сервис паков. Делфя 7 Enterprise, не русифицированная. Создал форму с эдитом, скомпилировал, запускил экзэшник: если из ворда копировать, то даже на английской раскладке русские буквы в эдит копируются без проблем, а если из блокнота копировать или имя файла из папки, то при англий ской раскладке действительно "??????? ?????", но если переключить на русскую раскладку, скопировать, вставить, то всё читается нормально.

Значит всё-таки грабли не в ХР или может в ней но в английской версии?

Bog d`An
Просто перед копированием в буфер переведи раскладку на RU

ТоляМБА Грабли в XP, так как текст в виде "???????" ты получишь даже при вставке его в блокнот.

см ответ Song-a

Цитата(Song @ 27.7.2005, 07:30)

Bog d`An Просто перед копированием в буфер переведи раскладку на RU

Это конечно выход
Теперь серьёзно: те же исходные но теперь текст уже в буфере.
Типа юзер что-то делает а прога пытается перехватить буфер обмена...


Это сообщение отредактировал(а) Bog d`An - 28.7.2005, 06:08

Поставить хук на копирование в буфер, и перед копирование менять раскладку активному окну.

Возможно даже будет работать
однак я в ХР для решения данной проблемы , где только можно , в ее настройках, ставил русские локали, и все работало. Хотя мож эт только у меня все так хорошо

Romikgy Это всё как пропрёт, у меня после установки SP2 этот баг то проявляется то нет, закономерность немогу понять.

Цитата

RAdmin Дата 28.7.2005, 08:51   Romikgy Это всё как пропрёт, у меня после установки SP2 этот баг то проявляется то нет, закономерность немогу понять.

эх... попрет не попрёт... а стабильность работы проге не помешает

Цитата

RAdmin Дата 28.7.2005, 07:36   Поставить хук на копирование в буфер, и перед копирование менять раскладку активному окну.

Хорошая идея! Не скажешь как сделать наиболее просто ловушку на буфер? В смысле оказать гуманитарную помощь куском кода

Как я понимаю, надо поставить общий хук и перехватывать сообщения о копировании в буфер? Тогда возникают вопросы:
1. Какие сообщения на это дело генерит винда?
2. Это сообщение генерится ДО копирования в буфер или ПОСЛЕ
3. Нельзя ли это сделать проще?

Ну и от себя: работающий код для переключения/определения раскладки.

Код

procedure SetLenguage(CodePage:String); var   Layout: array[0.. KL_NAMELENGTH] of char; begin   LoadKeyboardLayout(StrCopy(Layout,PChar(CodePage)),KLF_ACTIVATE);//На русский  00000419 // На английский 00000409 // На украинский 00000422 end; //------------------------------------------------------------------------------ Function GetLenguage:String; var   RA: Array[0..$FFF] of Char; begin  GetKeyboardLayoutName(RA) ;  Result:= StrPas(RA); end; //------------------------------------------------------------------------------

Сейчас скопировал этот кусок сюда с делфи - тот же глюк токо вместо знаков вопроса крокозяблики
ЗЫ: Лечится, как и было сказано Song`ом, переключением раскладки, спасибо...

Это сообщение отредактировал(а) Bog d`An - 1.8.2005, 04:45

А не в том ли проблема , что винда при копировании в буфер конвертит текст в юникод????

Конкретно с едит-контролами дельфей не могу добиться знаков вопроса
Так бы можно было пободаться

Цитата(Song @ 1.8.2005, 09:36)

Конкретно с едит-контролами дельфей не могу добиться знаков вопроса Так бы можно было пободаться

Яж говорю как пропрёт винду. У меня вопросы где-то раз в месяц.

===============================
Напутствие пыонэрам:

Ловить вам нужно не бабочек и не буфер а WM_COPY посланное в окно, далее
определить кодировку этого окна, а потом уже решать менять ему language или нет.

Это сообщение отредактировал(а) RAdmin - 1.8.2005, 12:35

Цитата(RAdmin @ 1.8.2005, 12:34)

Цитата(Song @ 1.8.2005, 09:36) Конкретно с едит-контролами дельфей не могу добиться знаков вопроса Так бы можно было пободаться Яж говорю как пропрёт винду. У меня вопросы где-то раз в месяц. =============================== Напутствие пыонэрам: Ловить вам нужно не бабочек и не буфер а WM_COPY посланное в окно, далее определить кодировку этого окна, а потом уже решать менять ему language или нет.

У меня XP проявляет достойное похвал постоянство на этот счёт

WM_COPY посылаетссся... поссылается... а куда? Не в моё же приложение

Есть ли более простой способ отследить это дело, кроме общего хука? Спасибо.

Bog d`An
Зато WM_PASTE в твоё.

Цитата(Song @ 2.8.2005, 07:46)

Bog d`An Зато WM_PASTE в твоё.

Копирую в буфер русский текст:
Вариант 1. При английской раскладке
а. Вставляю в TEdit - в результате знаки вопроса
б. Переключаю раскладку на русскую и вставляю в TEdit - в результате знаки вопроса
Вариант 2. ПЕРЕД КОПИРОВАНИЕМ переключаю раскладку (т.е. копирую при руской раскладке)
а. Вставляю в TEdit - в результате РУССКИЙ ТЕКСТ - THE BEST!!!
б. Переключаю раскладку на английскую и вставляю в TEdit - в результате РУССКИЙ ТЕКСТ - THE BEST!!!

И кто после этого ставит хук на вм_паст? А главное смысл? Тем более наЮга хук если паст в твоём приложении???

Добавлено @ 04:14

Цитата(Romikgy @ 1.8.2005, 08:14)

А не в том ли проблема , что винда при копировании в буфер конвертит текст в юникод????

Нельзя ли рассказать подробнее? pls

ЗЫ: "THE BEST!!!" - это не русский текст, а эмоция такая, вроде смайлика ":)"

ЗЗЫ: Может всё-таки кто-нибудь посоветует, как обойтись без общего хука?

ЗЗЗЫ: Той вместо такого, к-й сканит все сообщений винды на предмет вм_копи?

Это сообщение отредактировал(а) Bog d`An - 3.8.2005, 04:29

Bog d`An
у меня такого нет, поэтому не могу и лекарство поэксперементировать.
А что у тебя за система?

профессиональная свинья
Добавлено @ 07:47
с сервиспаком1 русифицированная
Добавлено @ 07:52
с сервиспаком1 русифицированная


Song, а у тебя?

Цитата(Bog @ 3.8.2005, 04:05)

Нельзя ли рассказать подробнее?

У меня стоит английская версия ХР без руссификации, в настройке--регионы и языки --
понял на русский регион, и самое главное в закладке advanced (у меня так, она третья) поменять на русский , вроде как я понял не-Юникод раскладки, как я понимаю, если винда не догоняет какая раскладка она ее представляет как юникод, отсюда и вопросики

SP2 native english

Цитата(Romikgy @ 3.8.2005, 08:24)

закладке advanced (у меня так, она третья) поменять на русский

у меня там тоже русский выбран
Добавлено @ 08:13
если русская раскладка, винда догоняет что за кодировка, если английская -//- нет?

Попробуй еще ниже , этого выбраного все таблицы перекодировок русского языка выбрать, более я и сам не знаю че знал то сказал, хотя и странная ситуёвина
Добавлено @ 08:22

Цитата(Bog @ 4.8.2005, 08:09)

если русская раскладка, винда догоняет что за кодировка, если английская -//- нет?

Может быть , где то винда прописала , что кирилица это кодировка анси , а англ. это юникод , у меня такого небыло, так догадки, мож шрифт по умолчанию поменять надо ???

Цитата(Romikgy @ 4.8.2005, 08:19)

Попробуй еще ниже , этого выбраного все таблицы перекодировок русского языка выбрать, более я и сам не знаю че знал то сказал, хотя и странная ситуёвина ... Может быть , где то винда прописала , что кирилица это кодировка анси , а англ. это юникод , у меня такого небыло, так догадки, мож шрифт по умолчанию поменять надо ???

Ладно, щас полезу ставить галочки на китайские языки

Шрифт по умолчению - напомни это где?

а как програмно эти галочки проставить кто-нибудь в курсе?

Цитата(Bog @ 5.8.2005, 06:59)

Шрифт по умолчению - напомни это где?

Я ж сказал , это чисто моя догадка!!! Но и по умолчанию что-то должно быть, это тоже 100%

Цитата(Bog @ 5.8.2005, 07:12)

а как програмно эти галочки проставить кто-нибудь в курсе?

Так что получилось????

Цитата(Romikgy @ 5.8.2005, 08:39)

Цитата (Bog d`An @ 5.8.2005, 06:59) Шрифт по умолчению - напомни это где? Я ж сказал , это чисто моя догадка!!! Но и по умолчанию что-то должно быть, это тоже 100% Цитата (Bog d`An @ 5.8.2005, 07:12) а как програмно эти галочки проставить кто-нибудь в курсе? Так что получилось????

Romikgy нет, не помогло
просто интерестно... было... Вопрос снимаю так как он не по теме... Оба...:

Цитата(Bog @ 5.8.2005, 06:59)

Шрифт по умолчению - напомни это где?

Цитата(Bog @ 5.8.2005, 07:12)

а как програмно эти галочки проставить кто-нибудь в курсе?

Информация для размышлений: при перетаскивании файлов в приложение

Код

type   TMainForm = class(TForm) ...   private     { Private declarations }     procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; //получение сообщений о переносе файла в окно приложения ... Procedure TMainForm.WMDropFiles(var Msg: TWMDropFiles); var   CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла   NumberFiles, counter: Cardinal; begin   CurList:=TStringList.Create;   try     NumberFiles:=DragQueryFile(Msg.Drop, $FFFFFFFF, CFileName, MAX_PATH); // получение количества файлов     for counter:=0 to Numberfiles-1 do     Begin       DragQueryFile(Msg.Drop, counter, CFileName, MAX_PATH);         MainForm.Memo1.Lines.Add(CFileName); //пути к файлам     End;     Msg.Result := 0;   finally     DragFinish(Msg.Drop); // отпустить файл   end; end; //------------------------------------------------------------------------------ ... procedure TMainForm.FormCreate(Sender: TObject); begin ...   DragAcceptFiles(Handle, True); ... end;

а также при перетаскивании на иконку приложения (передача как параметра комадной строки)

Код

... procedure TMainForm.FormCreate(Sender: TObject); Var    counter:Integer; begin ...     for Counter:=1 to ParamCount do      MainForm.Memo1.Lines.Add(ParamStr(Counter)); ... end;

РУССКИЕ БУКВЫ ОТОБРАЖАЮТСЯ ПРАВИЛЬНО. Теперь если скопировать текст из мемо при любой раскладке - то глюк пропадает - вставляется нормальный русский текст...

может кого этот факт натолкнёт на мысль?

А чего тут думать? Всё дело в юникодах.

Цитата(RAdmin @ 28.7.2005, 07:36)

Поставить хук на копирование в буфер, и перед копирование менять раскладку активному окну.

Наверное всё же прейдётсяя создавать глобальную ловушку...
поскольку это единственное предложенное решение

Ловишь WM_PASTE, берёшь ClipBoard.asText, преобразуешь его из юникодов, так чтобы убрать кракозябры. Далее посылаешь сообщение тому же контролу асинхронно для вставки исправленноно текста.

Вобщем вот то очём я писал. Не испытывал, ибо условия не позволяють.

Присоединённый файл ( Кол-во скачиваний: 8 )
 Hook.rar 0,50 Kb

ок, проведу испытания если справлюсь с этой непростой задачей %) отчитаюсь...

RAdmin, спасибо, но мне не всё понятно в твоём примере - например что за сообщение такое $0400 + 2

Код

... //SendMessage( MainWnd, $0400 + 2, wParam, k ); ...

и как на него отвечать
После прочтения ещё десятка страниц мануала от разных авторов, взял за основу статью Aleksey'я Pavlov'а (а точнее пример №3).
Так вот - или у меня руки кривые или не всё так просто и WM_COPY не обрабатывается
(я, конечно, предпочёл бы второй вариант )
Буду признателен, если ты посмотришь код...
Так как я ещё не разобрался как прикреплять к мессажам файлы, то вышлю тебе на почту, ок?
Если не лень дать адресок...

так... кажется уже разобрался с прикреплёнными файлами...
Итак вот моё "творчество"

Присоединённый файл ( Кол-во скачиваний: 10 )
 ClipboardHook.rar 11,77 Kb

а вот то, что я переработал... присутствует статейка по ловушкам...

Присоединённый файл ( Кол-во скачиваний: 9 )
 Aleksey_Pavlov.rar 40,74 Kb