如何实现JPEG图像旋转90度(100分)

zjqpost · 2001-09-28

1.如何实现JPEG图像旋转90度?
2.如何实现JPEG图像文件转为BMP图像

toll · 2001-09-28

photoshop
1,menu--Image--Rotate Canvas--180
2,Save as 选中保存格式为 BMP即可

westboy2000 · 2001-09-28

将image1中的图像旋转90度放到image2中，
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin

//确定旋转后位图的大小
image2.Picture.Bitmap.Height:=image1.picture.width;
image2.Picture.Bitmap.Width:=image1.picture.height;
for i:=0 to image1.Heightdo

for j:=0 to image1.Widthdo

image2.canvas.Pixels[(－i+image1.Height),j]:=image1.canvas.Pixels[j,i];
end;

xiaoywh · 2001-09-28

bitmap1.Height := Bitmap2.Width;
bitmap1.Width := Bitmap2.Height;
for y := 0 to Bitmap2.Width - 1do

begin

New := bitmap1.ScanLine[y];
for x := 0 to Bitmap2.Height - 1do

begin

Current := Bitmap2.ScanLine[x];
New[x] := Current[y];
end;

end;

end;

cgh0717 · 2001-09-28

按以上方法就可以了，但是，我为什么不来早些？？？？

savenight · 2001-09-29

<<如何实现JPEG图像文件转为BMP图像
用流。

liao6373 · 2001-09-29

to cgh0717
是啊，为什么我也不来早些，旋转90度没什么，就是对角象素换换而已，如果旋转5度，10度……
那就比较麻烦了，最好能编一个旋转任意角度的算法，形如：
function RotateBitmap(ABitmap: TBitmap;
Angle: Integer): TBitmap;
你们说呢？

xwings · 2001-09-29

90 180 270 最快. 其他角度慢, 函数最好分开写, 速度优化的问题.

小火鸡 · 2001-10-04

太多方法了，只要是图片处理软件都可以轻松搞定！^_^

是啊，为什么我也不来早些，旋转90度没什么，就是对角象素换换而已，如果旋转5度，10度……
那就比较麻烦了，最好能编一个旋转任意角度的算法，形如：
function RotateBitmap(ABitmap: TBitmap;
Angle: Integer): TBitmap;
你们说呢？
用photoshop的自由旋转即可，用COREDRAW也可以，很简单的。

wjiachun · 2003-03-14

接受答案了.

如何实现JPEG图像旋转90度(100分)

zjqpost

Unregistered / Unconfirmed

toll

Unregistered / Unconfirmed

westboy2000

Unregistered / Unconfirmed

xiaoywh

Unregistered / Unconfirmed

cgh0717

Unregistered / Unconfirmed

savenight

Unregistered / Unconfirmed

liao6373

Unregistered / Unconfirmed

xwings

Unregistered / Unconfirmed

小火鸡

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads