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

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

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

Paste from ClipBoard

Dennis S © (2002-10-29 23:14:00)
Как вставить Image и Bitmap из ClipBoard-a в TImage???

if ClipBoard.AsHandle(что-то вроде, уже не момню... Delphi нет под рукой...) = CF_Bitmap then
pic1.Picture.Bitmap.LoadFromClipboardFormat(CF_BitMap,
ClipBoard.GetAsHandle(CF_Bitmap), 0);

Данный код работает, но не совсем корректно:
при копировании графики с web-страници - картинка не вставляется
и выдает сообщение о не корректном формате...
приэтом, если ее вставить сначала в Word, а затем уже в Word-е
ее скопировать заново - тогда срабатывает...

Может кто смогбы накидать "универсальный" цикл на распознание формата и вставку, а то я первый раз с ClipBoard-ом того...
:)

Dennis S (2002-11-01 14:19:00) [1]
Спасибо всем! :)

Image1.Picture.Assign(Clipboard);
Image1.Picture.Graphic.Assign(Clipboard);

работает... :))

LongIsland (2002-10-31 15:52:00) [2]
Самое любопытное, что у меня прекрасно работает мой вариант и вариант pasha676 просто безукоризненно, что бы не находилось в буфере (я имею ввиду формат рисунка). Берет и bmp, и jpg, и gif. Поэтому я в растерянности... :-(

pasha676 (2002-10-31 08:40:00) [3]
Ынтересно. У меня работает. Наверное из-за того что JPG, то надо наверное что то вроде попробывать
Image1.Picture.Assign(Clipboard)
или
Image1.Picture.Graphic(Clipboard)
Истина где-то рядом. Расскажи о результатах.

Dennis S (2002-10-31 02:55:00) [4]
Это уж вооще не тянет... :(

pasha676 (2002-10-30 12:57:00) [5]
Попробуй
if Clipboard.HasFormat(CF_PICTURE) then
Image1.Picture.Bitmap.Assign(Clipboard);

Помоему так проще. И еще в самом-то буфере точно картинка есть?

Dennis S (2002-10-30 12:20:00) [6]
2 LongIsland и всем-всем

Вот и я говорю, что после Word-a работает, а так нет и Jpeg вставлять не хочет, даже если:

if Clipboard.HasFormat(CF_PICTURE) then
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BitMap, ClipBoard.GetAsHandle(CF_Picture), 0);
или
if Clipboard.HasFormat(CF_PICTURE) then
Image1.Picture.LoadFromClipboardFormat(CF_Picture, ClipBoard.GetAsHandle(CF_Picture), 0);

:)

LongIsland (2002-10-30 10:28:00) [7]
if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BitMap, ClipBoard.GetAsHandle(CF_Bitmap), 0);

По-крайней мере у меня так работает:-) ДА! Только на модуль ClipBrd ссылку дай

Наверх

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