关于jpeg的编程!!!!!!!!!!!!!!11(200分)

  • 主题发起人 主题发起人 浅草
  • 开始时间 开始时间

浅草

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:有道难题向大家求助!!!!!!!!!
题目如下:
将一副jpeg格式的图像置乱,即将图形的数据区读出,再像拼图游戏一样打乱它,再还原!!!!!!!!!!!!!!!!!!!!!!
最好有原程序完整代码!!!!!!!!用C,或VB,Dephi都可!!!!!!!!
谢谢!!!!!!!!!!!
 
这个实际是把一个大的trect分解为多个trect的过程
然后用copyrect在一个tcanvas上依次画就是了
 
贴段代码,仅供参考
procedure TForm1.Button1Click(Sender: TObject);
var
newbitmap:tbitmap;
x,y,newx,newy:integer;
chunkx,chunky:integer;
begin
newbitmap:=tbitmap.create;
newbitmap.height:=image1.picture.bitmap.height;
newbitmap.width:=image1.picture.bitmap.width;
chunkx:=newbitmap.Width div 4;
chunky:=newbitmap.height div 4;
for x:=0 to 3 do
for y:=0 to 3 do
begin
newx:=random(3);
newy:=random(3);
newbitmap.canvas.copyrect(rect(x*chunkx,y*chunky,(x+1)*chunkx,(y+1)*chunky),
image1.picture.bitmap.canvas,rect(newx*chunkx,newy*chunky,(newx+1)*chunkx,(newy+1)*chunky));
end;
image2.Picture.graphic:=newbitmap;
newbitmap.free;
end;


 
我需要详细的过程,并附有注解!!!!!!!!!!因有急用!
 
好的,马上搞定,等我!!
 
你的Email是什么?
 
喂...
再多"!!!"也没用吧?

你的Email是什么?!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
要不要我发来?
 
我的e-mail 是lovewh1999@263.net
 
Atomic:
请给我也发一份,在此谢过了。
E_mail:xuhongwei@netease.com
 
多人接受答案了。
 
后退
顶部