怎么用delphi显示image里的jpg格式，bmp格式不用设置就可以了，jpg要怎么弄？

Posted 2023-03-09

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
end;
end;
end;

end.

1、设置OpenDialog中的Filter:= 'JPG(*.JPG)|*.JPG;所有文件(*.*)|*.*'; --注：可以看到JPG文件和所有文件。
2、在需要处理JPG图片的单元文件内引用JPEG
3、使用TJPEGImage类处理JPG图像，它应该是TGraphic类的子类

例如：
procedure TForm1.Button3Click(Sender: TObject);
var
JPG: TJPEGImage;
begin
OpenDialog1.Filter:= 'JPG(*.JPG)|*.JPG;所有文件(*.*)|*.*';
if OpenDialog1.Execute then
begin
JPG:= TJPEGImage.Create;
JPG.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Assign(JPG);
JPG.Free;
end;
end; 参考技术A 在uses中添加 jpeg

uses jpeg;

添加后就能在默认image中显示jpg图片了，在OpenDialog1中选择jpg文件即可,filter不会弄的话，直接选择 所有文件*.*本回答被提问者采纳 参考技术B Delphi7等版本载入图像是支持BMP，jpg格式的，如果不行，你用photoshop打开jpg文件，另存为BMP文件不就可以了。 参考技术C if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);

这样就可以了追问

这样连打开jpg格式的图片都没找到？

追答

你opendialog1的filter属性设置的都是什么格式啊？？？
怎么可能找不到jpg格式的图片呢。
Delphi7--Delphi XE2我都试了，没问题。