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

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

end.
展开
 我来答
alctel112358
2012-02-13 · 超过30用户采纳过TA的回答
知道答主
回答量:97
采纳率:0%
帮助的人:86.5万
展开全部
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;
百度网友af56765
推荐于2017-12-16 · 超过27用户采纳过TA的回答
知道答主
回答量:52
采纳率:0%
帮助的人:65.7万
展开全部
在uses中添加 jpeg

uses jpeg;

添加后就能在默认image中显示jpg图片了,在OpenDialog1中选择jpg文件即可,filter不会弄的话,直接选择 所有文件*.*
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
andda
2012-02-13 · TA获得超过123个赞
知道答主
回答量:297
采纳率:0%
帮助的人:291万
展开全部
Delphi7等版本载入图像是支持BMP,jpg格式的,如果不行,你用photoshop打开jpg文件,另存为BMP文件不就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
mit1208
2012-02-12 · TA获得超过2347个赞
知道大有可为答主
回答量:2743
采纳率:0%
帮助的人:1851万
展开全部
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);

这样就可以了
追问
这样连打开jpg格式的图片都没找到?
追答
你opendialog1的filter属性设置的都是什么格式啊???
怎么可能找不到jpg格式的图片呢。
Delphi7--Delphi XE2我都试了,没问题。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式