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




Вниз

DBReech Edit и 


Tutov Roman   (2002-03-07 10:37) [0]

Не могу из клипборда вставить русский текст в компонент .
Он в кракозябры превращается. Игры со шрифтами не помогли .
Куда копать ?



iva   (2002-03-07 10:56) [1]

Попробуй перед копированием в клипборд, переключиться на р.язык



roman tutov   (2002-03-07 10:58) [2]

Та-же фигня.



Юрий Зотов   (2002-03-07 11:48) [3]

Похоже, текст в клипбоард помещался в Unicode?



roman tutov   (2002-03-07 11:53) [4]

Вопрос интересый . А разве винда автоматом в 1251 не перекодирует ?



Shaman_Naydak   (2002-03-07 14:32) [5]

Короче.. есть, есть проблемы у работы с клипбоардом у виндов..
тут в чем прикол в Win 9X можно запхать и забрать строки только
Ansi - CF_TEXT и OEM - CF_OEMTEXT.
В семействе NT есть еще его любимый родной формат CF_UNICODETEXT.
И у меня сильное обоснованное подозрение, что все строки внутрях клибоарда хранятся в уникоде.
А у 2000-х вообще глюк с руссификацией.. нормально работать можно только через уникод..
А класс клипбоард в дельфях к сожалению работает только с СF_TEXT.
=> вот так сказать простенькие процедурки от меня, нивелирующие все это безобразие:
procedure PutStringIntoClipBoard(const Str: WideString);
var
Size: Integer;
Data: THandle;
DataPtr: Pointer;
begin
Size:=Length(Str);
if Size = 0 then exit;
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Clipboard.AsText:=Str
else
begin
Size:=Size shl 1 + 2;
Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
try
DataPtr := GlobalLock(Data);
try
Move(Pointer(Str)^, DataPtr^, Size);
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
raise;
end;
end;
end;

function GetStringFromClipboard: WideString;
var
Data: THandle;
begin
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Result:=Clipboard.AsText
else
begin
Clipboard.Open;
Data := GetClipboardData(CF_UNICODETEXT);
try
if Data <> 0 then
Result := PWideChar(GlobalLock(Data))
else
Result := "";
finally
if Data <> 0 then GlobalUnlock(Data);
Clipboard.Close;
end;
end;
end;

Железно работает под 2000 и 98, проверял!

А вот на чтение:




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




Наверх





Память: 0.72 MB
Время: 0.03 c
3-66780           fidget                2002-02-19 18:56  2002.03.21  
скорость работы MySQL+ODBC+ADO


1-66840           Squall                2002-03-07 17:02  2002.03.21  
КОМПАНЕНТА с XP STYLE!!! Где ДОСТАТЬ?


14-66990          maxi                  2002-02-06 17:49  2002.03.21  
Что такое UPX ?


1-66864           Kettle of delphi      2002-03-05 15:45  2002.03.21  
Про перехват системных сообщений...


14-66987          Фэ                    2002-02-07 22:49  2002.03.21  
О