Форум: "Основная";
Поиск по всему сайту: 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.038 c
3-66747           Merlin                2002-02-21 01:46  2002.03.21  
Чисто теоретический вопрос


3-66769           Markov D.             2002-02-21 19:00  2002.03.21  
Midas / SocketConnection


3-66785           bas                   2002-02-22 16:26  2002.03.21  
Запрсы в


3-66757           Ольга                 2002-02-21 13:54  2002.03.21  
SQL


14-67011          oblom                 2002-02-05 14:51  2002.03.21  
Максимальное ускорение запуска windows