В web приложении на delphi (компоненты Intraweb) нужно из редактора IwMemo скопировать данные в буфер обмена нажатием на кнопку.
Код:
1 2 3 4 5 6 | var
CLIP: TClipboard;
begin
clip:=TClipboard . Create;
CLIP . SetTextBuf ( PWideChar (IWMemo2 . lines . GetText));
end ;
|
Админ: Пользуемся тегами при оформлении кода! Пятидневный бан
При запуске в редакторе Delphi (версия XE) код прекрасно отрабатывает.
В случае если запускаю как Web приложение (службой Windows) текст находящийся в редакторе IwMemo не копируется в буфер обмена.