Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Значение Буфер обмена. 
:(
    Опции темы
hedge_hog
Дата 31.5.2007, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.5.2007

Репутация: нет
Всего: нет
Здравствуйте. Помогите решить такой вопрос. Как из буфер обмена вытащить значение и задать его переменной. Может есть какой-нибуть ClipboardValue. Искал в поисковике все задают вопросы как скопировать в буфер, а мне надо получить содержимое из него.

 Этот код вставляет из Буфера в указанное поле
SendMessage (ActiveControl.Handle,WM_Paste, 0, 0); 

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

Спасибо.
 

Это сообщение отредактировал(а) hedge_hog - 31.5.2007, 17:16
PM MAIL   Вверх
Insert
Дата 31.5.2007, 17:22 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: нет
Всего: 1
TClipboard in unit Clipbrd

T: TClipboard;
...
T := TClipboard.Create;
T.AsText - содержимое буфера

Это сообщение отредактировал(а) Insert - 31.5.2007, 17:25
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
former
Дата 31.5.2007, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
Пользуйся поиском: http://forum.vingrad.ru/forum/topic-114885/unread-1.html#


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
pseud
Дата 31.5.2007, 17:34 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(Insert @  31.5.2007,  17:22 Найти цитируемый пост)
T: TClipboard;
...
T := TClipboard.Create;
T.AsText - содержимое буфера


можно не заниматься ручным создание Клипбоарда, достаточно обратиться к Clipboard и если он еще не создан, то сам создастся. 
Вот код из Clipbrd
Код

function Clipboard: TClipboard;
begin
  if FClipboard = nil then
    FClipboard := TClipboard.Create;
  Result := FClipboard;
end;


поэтому hedge_hog
Код

  строковая_переменная :=  Clipboard.AsText;


это если по простому. Если нужно сложнее (объект через буфер передавать) - кода будет побольше.



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
hedge_hog
Дата 31.5.2007, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.5.2007

Репутация: нет
Всего: нет
Insert, Ты Бог. Огромное спасибо. Классный аватар. Только не  unit Clipbrd , а uses Clipbrd .

Добавлено через 2 минуты и 51 секунду
pseud, Всё ОК так и надо. Текст который закладывается в буфер строчка не превышающая 50 символов.
СпасиБо pseud .
PM MAIL   Вверх
former
Дата 31.5.2007, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
hedge_hog, если вопрос решён, не забывай помечать его, как прочитанный.


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0841 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.