Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

unicode & clipboard   Найти похожие ветки 

 
Вадим ©   (2003-03-23 23:37) [0]

Есть s: string. Необходимо копировать стустроку в буфер обмена в юникоде. Как это сделать. Если я правильно понял, то сначала надо ее конвертировать в юникод функцией StringToWideChar(), а дальше что делать? Как получившийся данные копировать в буфер обмена?

Спасибо!


 
Вадим ©   (2003-03-24 10:38) [1]

up

Если я плохо объяснил суть задачи, то попробую еще раз. Есть PWideChar. Как копировать это в буфер обмена?


 
NAlexey ©   (2003-03-24 10:53) [2]

Взял кажется с сайта "Королевство Delphi"

procedure BufferToClipboard(Buffer: String);
var
WideBuffer: WideString;
BuffSize: Cardinal;
Data: THandle;
DataPtr: Pointer;
begin
if Buffer <> "" then begin
WideBuffer := Buffer;
BuffSize := length(Buffer) * SizeOf(WideChar);
Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE+GMEM_ZEROINIT, BuffSize + 2);
try
DataPtr := GlobalLock(Data);
try
Move(PWideChar(WideBuffer)^, Pointer(Cardinal(DataPtr))^, BuffSize);
finally
GlobalUnlock(Data);
end;
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
except
GlobalFree(Data);
raise;
end;
end;
end;
<\CODE>



Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-70113
lejik
2003-04-30 09:07
2003.05.22
Автоинкремент в SQLServer


1-70325
Shadowofman
2003-05-08 17:27
2003.05.22
Совместная работа процедур KeyDown и OnTimer?


3-70185
Filat
2003-05-02 16:35
2003.05.22
FireBird - SYSDBA. А можно для клиента без последнего?


1-70222
ctapik-net
2003-05-11 14:34
2003.05.22
Проблема с порядком компонент в ToolBar


6-70416
Dimedrol
2003-03-24 11:35
2003.05.22
Как встроить полноценный Internet Explorer в программу ?