全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1908
推到 Plurk!
推到 Facebook!

请问怎样在timage加载EWF格式的图片后,还能在上面画线?

答題得分者是:RootKit
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-13 17:19:52 IP:116.226.xxx.xxx 訂閱
比如下面的代码,会报错:Can only modify an image if itcontains a bitmap;
image1.Picture.LoadFromFile('c:\14.ewf');
image1.Canvas.LineTo(x,y);

请问怎么才能实现在ewf格式上的图片上画线啊?
附图是一个EWF的图片,麻烦高手看看啊,谢谢啦!
上传后怎么不是emf的了?
从这里下载帮我看看好吗?
http://delphi.ktop.com.tw/download.php?download=upload/48a2a6112aaba_14.EMF

ewf
編輯記錄
rainxie 重新編輯於 2008-08-13 19:39:51, 註解 無‧
rainxie 重新編輯於 2008-08-13 19:40:58, 註解 無‧
RootKit
資深會員


發表:16
回覆:357
積分:419
註冊:2008-01-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-14 09:53:24 IP:61.222.xxx.xxx 訂閱
以有 Canvas 的Bitmap 做畫圖。
另外建立 TGraphic 載入 EMF
在畫至 Canvas 上
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-14 11:06:49 IP:116.226.xxx.xxx 訂閱
非常感谢您的回复!
我按照您的方法,但在载入EMF时报“abstract error”错误(红色地方),代码是这样的:

try
g1:=TGraphic.Create;
g1.LoadFromFile('c:\a.emf');
finally
g1.Free;
end;

我甚至把载入的图片格式换成bmp、jpg时错误也都是一样的,难道是TGraphic不识这些格式?您能帮我看看吗?太感谢了!期待!

===================引 用 RootKit 文 章===================
以有 Canvas 的Bitmap 做畫圖。
另外建立 TGraphic 載入 EMF
在畫至 Canvas 上
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-08-14 11:23:33 IP:116.226.xxx.xxx 訂閱
我用metaFile倒是不报错了,但是图片并没有被显示出来,执行下述代码窗口没有任何反应。

try
EMF:=TMetaFile.Create;
EMF.LoadFromFile('c:\14.emf');
image1.Picture.Bitmap.Canvas.Draw(0,0,emf);
finally
EMF.Free;
end;
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-08-14 11:29:49 IP:116.226.xxx.xxx 訂閱
建个bitmap才可以,呵呵呵,我太初级了:

try
bmp:=TBitmap.Create;
bmp.Width:=796;
bmp.Height:=597;
EMF:=TMetaFile.Create;
EMF.LoadFromFile('c:\14.emf');
bmp.Canvas.Draw(0,0,emf);
image1.Picture.Bitmap.Assign(bmp);
finally
EMF.Free;
bmp.Free;
end;
系統時間:2017-10-18 19:16:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!