那位富翁有图象处理代码?(100分)

  • 主题发起人 主题发起人 mycybyb
  • 开始时间 开始时间
M

mycybyb

Unregistered / Unconfirmed
GUEST, unregistred user!
那位大富翁有图象处理的代码,以及各种图象格式转换为位图的代码,急需!!!
 
你的email?
 
mycybyby@163.com
 
已经发送
 
虽然还没看,不过先谢谢了。
 
我也急需这个方面的代码,发一份我吧!谢谢了先!
 
我也急需这个方面的代码,发一份我吧!谢谢了先!sanfeng310@21cn.com
 
能发一份给我吗,谢谢
pengmai@chinaecai.com
 
能发一份给我吗,谢谢
rattf163@163.com
 
给我也来份。谢谢。
cinet@163.com
 
给我也来份好吗?

谢谢!

li_hong_de@163.com
 
图象处理,我们一般都用ImageEN控件,贴主要自己写什么?
 
我也要,谢谢先。
chenqw@xinhuanet.com
 
zmh25@sohu.com
给我一份
 
我正在到处寻找呢,给我也来一份吧,先谢了!
zzsu@sina.com
 
Please: xionglin@dgnantai.com.hk
Thanks!!
 
bill.robin@263.net
 
cafre@sina.com

thanks!
 
tiger9382@sina.com
我很急需啊!!!
 
矢量图转位图,
var
DummyImage : TImage;
//DummyMetaFile : TMetaFile;


begin
//Image1包含一个WMF 文件
Image1.picture.LoadFromFile('e:/my documents/my pictures/新建文件夹/sy01265_.wmf');

X := Image1.Picture.Width;
Y := Image1.Picture.Height;

DummyImage := TImage.Create(Self);
DummyImage.Width := X;
DummyImage.Height := Y;
DummyImage.Canvas.Draw(0,0,Image1.Picture.Graphic);

Image2.Picture := DummyImage.Picture;
//现在Image2包含bitmap文件
Image2.Picture.Savetofile('c:/aa.bmp');
DummyImage.Free;
end;
别忘了给我加分
 
后退
顶部