现在急需了解光栅图(点阵图)转换成 矢量图 的算法(代码)有谁知道了解的,请在帖子里回复,或者提供相关网址、书籍~我知道这不是一个简单的问题,不过请大家多少说一点谢谢~~
解决方案 »
- delphi7版本以及前有能够实现所见即所得的html编辑功能的吗?
- ■■■有人知道LPC线性预测编码算法■■■
- 如何读取image控件中的图片某点的Alpha值呢?这条语句如何写呢?
- fastreport中,如何知道打10条记录纸张高度是多少?
- 我想在表格中使多列含有checkbox,怎么做
- listbox
- 在DLL中怎样退回字符串类型啊?
- 紧急求助,关于三层结构中DCOM连接的问题
- 请问各位大哥,现在申请哪个网站的免费邮箱好一点?多谢了!
- 如何判断上网方式?
- 请教一个问题,reportmachine的数据集,是在Delphi中好,还是在Reportmachine中本身好?
- ◆Delphi控制台的清屏命令是什么?
比如图中有一些圆或直线,然后识别出这此图元(直线和圆等可用HOUGH变换检测出它的参数),根据这些参数就可以将点阵图转换成矢量图了。
比如图中有一些圆或直线,然后识别出这此图元(直线和圆等可用HOUGH变换检测出它的参数),根据这些参数就可以将点阵图转换成矢量图了。
procedure BmpToWmf (BmpFile,WmfFile:string);varMetaFile : TMetaFile;MFCanvas : TMetaFileCanvas;BMP : TBitmap;begin{Create temps}MetaFile := TMetaFile.Create;BMP := TBitmap.create;BMP.LoadFromFile(BmpFile);{Igualemos tama駉s}{Equalizing sizes}MetaFile.Height := BMP.Height;MetaFile.Width := BMP.Width;{Create a canvas for the Metafile}MFCanvas:=TMetafileCanvas.Create(MetaFile, 0);with MFCanvas dobegin{Draw the BMP into canvas}Draw(0, 0, BMP);{Free the Canvas}Free;end;{Free the BMP}BMP.Free;with MetaFile dobegin{Save the Metafile}SaveToFile(WmfFile);{Free it...}Free;end;