Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

кодировка 


Philya   (2001-12-21 18:00) [0]

var s:ansistring;
clip:TClipboard;
begin
clip := TClipboard.Create;
s:="по-русски";
clip.AsText := s;
SetClipboard(clip);
end;

после этого строка в буфере не читается, будучи скопированной например, в Notepad, Word или Excel.
при этом в другие программы, скажем, в ICQ или SQL-Navigator строчка вставляется нормально.

Что делать?



MBo   (2001-12-21 18:35) [1]

Для чего создается экземпляр ClipBoard?
Это не рекомендуется хелпом, если только нет особых причин. Все равно ведь в глобальный пишешь.
var s:ansistring;
begin
s:="по-русски";
clipboard.AsText := s;
end;
так все работает нормально (Win98)



Philya   (2001-12-24 15:50) [2]

пробовали под Win2K и XP - не работает.



Digitman   (2001-12-24 16:06) [3]

>Philya
ПРоблема действительно существует (столкнулся с ней именно при переносе приложения с Win9x на W2k). Именно - при программной вставке текста из буфера обмена в лист Excel вызовом метода Paste. Пока тоже не знаю решения, но, судя по всему, это "заморочка" самой ОС, а не MSOffice (с той же версией MSOffice на платформе Win9x вставка проходит без проблем)



Сомневающийся   (2001-12-24 16:51) [4]

Это "проблема" использования unicode-кодировке в NT платформах.
При переносе из NT на 9x платформы через клипбоард в Excel проблема лечиться,как вариант, использованием в Excel unicod (версии 2.xx) или "русифицированных" TTF-шрифтов (со сдвинутой конвертором русской таблицей).
В принципе, можно программно "сдвигать" кодировку и в CLipe перед Paste.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
1-42474           fliz                  2001-12-25 12:55  2002.01.14  
Запись в поток (SaveToStream) перестала работать после переноса проги на Вин2000.


1-42415           d()c666               2001-12-27 02:08  2002.01.14  
символ эквивалентный переходу на другую строку...


3-42338           Smile                 2001-12-10 09:59  2002.01.14  
Может быть глупый вопрос, но ....


4-42594           foks                  2001-11-11 09:28  2002.01.14  
function AppendMenu(Menu: HMenu; Flags, IDNewItem: PChar): Bool;


4-42599           Abajun                2001-11-13 11:57  2002.01.14  
Вызов функции по адресу