社区
GAME,图形处理/多媒体
帖子详情
求助!
lizexia
2003-09-15 10:07:10
在Delphi中怎样打开一个.bmp或者是.JPG文件?
...全文
37
7
打赏
收藏
求助!
在Delphi中怎样打开一个.bmp或者是.JPG文件?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lizexia
2003-09-24
打赏
举报
回复
jpyc(九品御厨-为delphi学ASP.NE) :
Thanks!
jpyc
2003-09-24
打赏
举报
回复
JPG要用上边的方法转换一下,然后ASSIGN给IMAGE1:
http://218.56.11.178:8020/web/index.aspx
-》下载基地-》例程-基础应用-》显示JPG格式图片
jpyc
2003-09-24
打赏
举报
回复
简单的BMP:IMAGE1.picture.loadfromfile('位图名')
jpyc
2003-09-24
打赏
举报
回复
加一个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;
dawnming
2003-09-15
打赏
举报
回复
用image控件
lizexia
2003-09-15
打赏
举报
回复
我指的是单独打开,并对他进行编辑,你现在在线吗?我可不可以直接问你?
上海老李
2003-09-15
打赏
举报
回复
加一个IMAGE控件就可以设置其PICTURE等属性就是导入了BMP或JPG文件
求助
!!!在python机器学习随机森林选参过程中遇到大问题
求助
!!!在python机器学习随机森林选参过程中遇到大问题
动态链表头节点报错!
求助
!
动态链表头节点报错!
求助
!
华为开发者大赛云计算专场
1.华为企业云API使用讲解 该课程介绍如何通过华为企业云API进行二次开发,并选取一个实战案例。后把遇到问题的
求助
渠道介绍给大家。
求助
!
求助
!
求助
!
网管!我2017年账上有钱,但是没有转成C币!请问怎么弄!
求助
!
求助
!
求助
!
求助
!!WinSCP连接sftp时被拒绝访问,输入密码也不行
求助
!!WinSCP连接sftp时被拒绝访问,输入密码也不行。 欢迎使用Markdown编辑器 你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。 新的改变 我们对Markdown编辑器进行了一些功能拓展与语法支持,除了标准的Markdown编辑器功能,我们增加了如下几点新功...
GAME,图形处理/多媒体
1,183
社区成员
14,336
社区内容
发帖
与我相关
我的任务
GAME,图形处理/多媒体
Delphi GAME,图形处理/多媒体
复制链接
扫一扫
分享
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章