在delphi中该怎样对jpg图片进行一些常见的图像处理？

Ryan1005 2003-11-25 10:53:21

如题，比如说对比度增强，亮度增强之类的。

...全文

99 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

nzh517 2003-11-26

打赏
举报

我不会耶，，，

可以先把JPG图片转成BMP，再进行对比度及高度等的调节，调节完后再压成JPG

Ryan1005 2003-11-26

打赏
举报

to :nzh517(沙中泥) amartapple() 我觉得这样做太过麻烦，所以才想问问有没有直接的办法。
to : xiaoshitou1980(小石头),那段程序我试了，不行的。

amartapple 2003-11-26

打赏
举报

同意 nzh517(沙中泥) 的做法,我就是这么作的

xiaoshitou1980 2003-11-26

打赏
举报

for example

1.如何实现JPEG图像旋转90度?

将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.Height do
for j:=0 to image1.Width do
image2.canvas.Pixels[(－i+image1.Height),j]:=image1.canvas.Pixels[j,i];
end;

delphizd 2003-11-26