怎么用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. 展开
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;
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;
展开全部
在uses中添加 jpeg
uses jpeg;
添加后就能在默认image中显示jpg图片了,在OpenDialog1中选择jpg文件即可,filter不会弄的话,直接选择 所有文件*.*
uses jpeg;
添加后就能在默认image中显示jpg图片了,在OpenDialog1中选择jpg文件即可,filter不会弄的话,直接选择 所有文件*.*
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Delphi7等版本载入图像是支持BMP,jpg格式的,如果不行,你用photoshop打开jpg文件,另存为BMP文件不就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
这样就可以了
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
这样就可以了
追问
这样连打开jpg格式的图片都没找到?
追答
你opendialog1的filter属性设置的都是什么格式啊???
怎么可能找不到jpg格式的图片呢。
Delphi7--Delphi XE2我都试了,没问题。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |