如何将剪贴板里面的图片导出来保存为图片(50分)

张

张利中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #1

剪贴板里面有一幅图片，如何导出来保存为一个jpg图片？

 

K

kite20020304

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #2

Image1.picture.Bitmap.LoadFromClipBoardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0);
Image1.Picture.SaveToFile('C:/test.bmp');

 

张

张利中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #3

剪贴板里面是一个jpg图片，如何导出来保存为jpg文件？？

 

J

johny8209

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #4

用kite20020304的方法就可以了，如果要使用jpg文件的话，Image1.Picture.SaveToFile('C:/test.jpg');
或者引用jpeg单元，创建一个jpeg文件，再从临时bmp(如楼上所说的Image1)文件中加载就可以了．

 

K

kite20020304

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #5

Image1.picture.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0);
Image1.picture.SaveToFile('C:/test.jpg');

 

张

张利中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #6

Image1.picture.Bitmap.LoadFromClipBoardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0);运行时出现“不支持这种对象”的出错信息,无法导出剪贴板中的jpg图像

 

K

kite20020304

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #7

Image1.picture.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0); //去掉 .Bitbmp
Image1.picture.SaveToFile('C:/test.jpg');

 

张

张利中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #8

是这样的，在word表格中插入了一个jpg格式图片，现在想把该图片显示在image中,采用
下面的代码，请指教
var
filepath,rangelevariant;
sp:shape;
begin
filepath:='d:/224.doc';
try
WordApplication1.Connect;
WordApplication1.Visible:=false;

WordDocument1.ConnectTo(WordApplication1.Documents.Open(filepath,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));

WordDocument1.Tables.Item(1).cell(1,2).range.copy;//将指定单元格中的图片保存到剪贴板中
不知道怎么把剪贴板中的图片显示在image中,请教

 

张

张利中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-12

• #9

当采用image1.picture.assign(Clipboard)显示剪贴板中的图片时,
图片变形了,请各位告诉我如何解决??
或者说能否把word表格中的图片直接显示在image控件中??