Paste from ClipBoard

← →
Dennis S © (2002-10-29 23:14) [0]

Как вставить 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-ом того...
:)

← →
LongIsland © (2002-10-30 10:28) [1]

if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BitMap, ClipBoard.GetAsHandle(CF_Bitmap), 0);

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

← →
Dennis S © (2002-10-30 12:20) [2]

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);

:)

← →
pasha676 (2002-10-30 12:57) [3]

Попробуй
if Clipboard.HasFormat(CF_PICTURE) then
Image1.Picture.Bitmap.Assign(Clipboard);

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

← →
Dennis S © (2002-10-31 02:55) [4]

Это уж вооще не тянет... :(

← →
pasha676 (2002-10-31 08:40) [5]

Ынтересно. У меня работает. Наверное из-за того что JPG, то надо наверное что то вроде попробывать
Image1.Picture.Assign(Clipboard)
или
Image1.Picture.Graphic(Clipboard)
Истина где-то рядом. Расскажи о результатах.

Самое любопытное, что у меня прекрасно работает мой вариант и вариант pasha676 просто безукоризненно, что бы не находилось в буфере (я имею ввиду формат рисунка). Берет и bmp, и jpg, и gif. Поэтому я в растерянности... :-(

Спасибо всем! :)

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

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

Paste from ClipBoard Найти похожие ветки