求助！

[lizexia]

在Delphi中怎样打开一个.bmp或者是.JPG文件？

[上海老李]

加一个IMAGE控件就可以设置其PICTURE等属性就是导入了BMP或JPG文件

[lizexia]

我指的是单独打开，并对他进行编辑，你现在在线吗？我可不可以直接问你？

[dawnming]

用image控件

[jpyc]

加一个IMAGE控件IMAGE1:

可以如下,(其他格式也许也可，试一下）记得加入 use jpeg.
var

MyJpeg: TJpegImage;

Image1: TImage;

begin

Image1:= TImage.Create(self);

MyJpeg:= TJpegImage.Create;

Image1.Picture.Bitmap.LoadFromFile('c:.BMP'); // Load the Bitmap from a file

MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpeg object

MyJpeg.CompressionQuality:=StrToInt('75');

MyJpeg.Compress;

MyJpeg.SaveToFile('c:.JPG'); // Save the JPEG to Disk

end;

var

MyJpeg: TJpegImage;

bmp: Tbitmap;

begin

bmp:=tbitmap.Create;

MyJpeg:= TJpegImage.Create;

myjpeg.LoadFromFile('c:.jpg');

bmp.Assign(myjpeg);

bmp.SaveToFile('c:.bmp'); // Save the JPEG to Disk

end;

**************************************************************************

///Bitmap 和 JPEG 格式间的快速转换

function Bmp2Jpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;

begin

Result := nil;

if Assigned(Bmp)

then begin

Result := TJpegImage.Create;

Result.Assign(Bmp); {It′s all folks...}

Result.CompressionQuality := Quality;

Result.JPEGNeeded; {Key method...}

Result.Compress;

end;

end;

function Jpg2Bmp(Jpg: TJpegImage): TBitmap;

begin

Result := nil;

if Assigned(Jpg)

then begin

Result := TBitmap.Create;

Jpg.DIBNeeded; {Key method...}

Result.Assign(Jpg); {It′s all folks...}

end;

end;

[jpyc]

简单的BMP：IMAGE1.picture.loadfromfile('位图名')

[jpyc]

JPG要用上边的方法转换一下，然后ASSIGN给IMAGE1：

http://218.56.11.178:8020/web/index.aspx

-》下载基地-》例程-基础应用-》显示JPG格式图片

[lizexia]

jpyc(九品御厨-为delphi学ASP.NE) :

Thanks!