Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBReech Edit и

Tutov Roman © (2002-03-07 10:37:00)
Не могу из клипборда вставить русский текст в компонент .
Он в кракозябры превращается. Игры со шрифтами не помогли .
Куда копать ?

Shaman_Naydak (2002-03-07 14:32:00) [1]
Короче.. есть, есть проблемы у работы с клипбоардом у виндов..
тут в чем прикол в 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, проверял!

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

roman tutov (2002-03-07 11:53:00) [2]
Вопрос интересый . А разве винда автоматом в 1251 не перекодирует ?

Юрий Зотов (2002-03-07 11:48:00) [3]
Похоже, текст в клипбоард помещался в Unicode?

roman tutov (2002-03-07 10:58:00) [4]
Та-же фигня.

iva (2002-03-07 10:56:00) [5]
Попробуй перед копированием в клипборд, переключиться на р.язык

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »