delphi jpg转bmp_CAD转WORD,WMF过渡即可

思路:转WMF图即可,这是个神奇的矢量图。

1.在CAD中,“文件”菜单——“输出”选项卡——存为WMF图元文件(这种文件是矢量图,可以被WORD识别和编辑)。

2.在WORD中,“插入”菜单——“图片”选项卡——插入WMF图。

3.在WORD中,“右键”WMF图——“编辑”选项卡——进行编辑加工。

e8264748c1980841c5b90ef8d81c3927.png

具体解释如下:

1.普及知识:常用图形图像文件格式

(1)一类是位图,它是一种光栅图形,称为图像文件。图像是指显示平面以二维矩阵表示,第三阶段的每一点称为一个像素,由像素点所取高度或颜色值不同所构成的二维画面。在编辑位图时针对的是像素点而不是形状,位图放大会产生失真,存储时占有较大空间。常用的图像文件格式有*.bmp,*.jpg,*.gif,*.tga,*.png等

(2)另一类是矢量图,矢量图是一种用计算机生成的图形文件。矢量图形直接存储了表示图形的几何参数和拓扑关第,放大不会失真,占有少量空间及内存。常用的图形文件格式有*.dwg,*.dxf,*.wmf,*.eps,*.emf,*.dwf等。

这里重点介绍WMF图形格式。WMF(Metafile)是windows中常见的一种图元文件格式,是矢量文件格式。是由简单的线条和封闭线条(图形)组成的矢量图,它具有文件短小、图案造型化的特点,可以任意缩放而不影响图像质量。整个图形常由各个独立的组成部分拼接而成,word中内部存储的图片或绘制的图表对象属于这种格式。无论放大还是缩小,图形的清晰度不变,WMF文件的扩展名为.wmf。这种格式无法被photoshop软件识别。

2. WMF图形格式转换法

(1)第一步:输出CAD中的图形为WMF文件。

在AutoCAD软件中,将背景颜色修改为“白色”。如图1、2所示。

c278b3fd52be69b5f54867f7f2558e47.png

图1 “选项”对话框

983885b3b37930fa761afa560fb47234.png

图2 “图形窗口颜色”对话框

点击菜单“文件”——“输出”,文件类型选择“图元文件(*.wmf)”。如图3所示。

c6b29c50fd61ac87581514bf54e84292.png

图3 “输出数据”选项卡

(2)第二步,将WMF文件插入到WORD中,并调整其大小。

直接将WMF图片文件拖入到WORD中,或者采用“插入”菜单中的“图片”。

右键图片,选择“编辑”,弹出对话框,提示:“这是一张导入的图片,而不是组合。是否将其转换为Microsoft Office图形对象?”,点击“是(Y)”,完成转换,并且可以在WORD中进行独立修改编辑加工。如图4所示。

20980ad96baa9ec58768f6da3c7b33d3.png
9feb0748b8e240be6ba43e5b5c767aa7.png

图4 “编辑图片”选项卡

1.所需的三个控件: ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接,请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间,所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷 名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如:SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格: ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数, ColNum为列数 (2)插入数据: ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值