delphi 从流(jpeg流，png流)到Timage 的显示方法

最新推荐文章于 2025-05-22 10:02:25 发布
原创 最新推荐文章于 2025-05-22 10:02:25 发布 · 8.9k 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi

本文介绍如何使用Delphi中的TJpegImage和TPngImage组件从内存流加载JPEG和PNG图像，并将这些图像显示到TImage组件中。通过创建TMemoryStream实例并写入图像数据，然后设置流位置并利用TJpegImage和TPngImage的LoadFromStream方法加载图像。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

uses jpeg，pngimage

 


  jpg: TJpegImage;
  S: TStream;
  PngBit: TPngImage;

  img1: TImage;

    SetLength(A,流长度);
    S := TMemoryStream.Create;
    strCount := I;
    S.Write(A[0],strCount);
    S.Position := 0;//这一句是相当重要
    jpg := TJpegImage.Create;
    jpg.LoadFromStream(S);
    img1.Picture.Assign( jpg );


  PngBit := TPngImage.Create;
  PngBit.LoadFromStream(S);
  img1.Picture.Assign( PngBit );

Delphi 开发者，显示图片请忘掉VCL中的 TImage 吧
sensor_WU 博客
07-25 2691
本文详细介绍了Delphi 11 对于高分辨率显示的支持，详细介绍了使用的控件、方法、步骤。这样你开发的程序将不会在高分辨率下图标显示变小。无论什么分辨率，始终保持一致的UI.
Delphi内存流、文件流原理实例及应用.rar
07-10
Delphi文件流、内存流原理实例及应用，了解一下如何使用文件流和内存流生成一些程序，好像一些外壳程序就是使用的内存流，挺底层的，不是太了解，不便多说。
delphiTImageTPNGImage支持png图片格式扩展：增强Delphi图像处理能力
最新发布
gitblog_06733的博客
05-22 889
delphiTImageTPNGImage支持png图片格式扩展：增强Delphi图像处理能力 【下载地址】delphiTImageTPNGImage支持png图片格式扩展 这个开源项目为 Delphi 开发者提供了一种便捷的方式，通过扩展 TImage 控件使其支持 PNG 图片格式的显示。特别适用于 Delphi 2...
delphi用内存流方式获取页面验证码图片
IT男也疯狂
03-19 1545
procedure TForm1.Button2Click(Sender: TObject); var ms:TMemoryStream; jpg:TJpegImage; vp:string; begin ms:=TMemoryStream.Create; jpg:=TJpegimage.Create; vp:='http://ptlogin2.qq.com/getimage?aid=150001
delphi TImage 增加支持 png 图片格式 TPNGImage
03-08
Delphi 开发人员越来越少，我也来分享一下，需要对你们有用。
delphi显示jpg、png、gif图片
09-13 730
delphi显示jpg、png、gif图片 作者：admin 来源：未知 日期：2010-1-27 9:02:05 人气： 标签：  unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St
delphi下用Timage显示圆形的图像（还没有封装成控件）
wlcrm的博客
09-12 3601
可以不用再写代码了，直接上DEMO（参考附件） 第四个按钮是最后效果按钮。 （由于 不能加附件，看来直接上代码了）： unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, jpeg, ExtCt
delphi TImage （ TPNGImage）增加支持 png 图片格式
03-11
在Delphi编程环境中，TImage组件是用于显示图像的基本控件，它支持多种图像格式，如BMP、JPEG和GIF等。然而，在Delphi 2007及更早版本中，原生的TImage组件并不直接支持PNG（Portable Network Graphics）这种流行的...
delphi使用png图片的示例
04-14
然而，原生的Delphi Image组件并不直接支持PNG图像格式，这使得开发者需要寻找额外的方法来实现PNG图片的显示。在这个示例中，我们将探讨如何在Delphi项目中使用PNG图片，以及如何通过添加第三方控件来扩展Image组件...
DelphiPNGImage_delphi_image_image显示png_png_图片_
10-03
3. **利用VCL Styles**：从Delphi XE2开始，VCL引入了样式支持，这使得`TImage`控件能够显示PNG图片，但前提是你启用了VCL样式。一旦启用，`TImage`控件会自动处理PNG和其他矢量图形格式。 4. **TImage组件的...
TImage组件中显示png图片
03-18
在这个例子中，`TGpBitmap.Create`方法用于从指定路径加载PNG文件，然后`GetHBITMAP`方法获取GDI+位图的句柄，将其赋值给TBitmap的`Handle`属性，从而在TImage组件上显示PNG图片。需要注意的是，虽然`GetHBITMAP`...
BCB6能用的TPngImage和TGifImage组件
03-26
里面有PNGImage和GifImage两个组件，下载后稍微修改后的组件，C++ Builder6可以直接编译安装。 分别打开bpk编译安装后，把两个文件夹的位置添加到directory里面，然后拖动个Image到主界面，这个Image就支持载入png或者gif图像的了
TPNGImage 1.5
09-18
procedure BitmapFileToPNG(const Source, Dest: String); var Bitmap: TBitmap; PNG: TPNGObject; begin Bitmap := TBitmap.Create; PNG := TPNGObject.Create; {In case something goes wrong, free booth Bitmap and PNG} try Bitmap.LoadFromFile(Source); PNG.Assign(Bitmap); //Convert data into png PNG.SaveToFile(Dest); finally Bitmap.Free; PNG.Free; end end; Converting from PNG file to Windows bitmap file The above inverse. Loads a png and saves into a bitmap procedure PNGFileToBitmap(const Source, Dest: String); var Bitmap: TBitmap; PNG: TPNGObject; begin PNG := TPNGObject.Create; Bitmap := TBitmap.Create; {In case something goes wrong, free booth PNG and Bitmap} try PNG.LoadFromFile(Source); Bitmap.Assign(PNG); //Convert data into bitmap Bitmap.SaveToFile(Dest); finally PNG.Free; Bitmap.Free; end end; Converting from TImage to PNG file This method converts from TImage to PNG. It has full exception handling and allows converting from file formats other than TBitmap (since they allow assigning to a TBitmap) procedure TImageToPNG(Source: TImage; const Dest: String); var PNG: TPNGObject; BMP: TBitmap; begin PNG := TPNGObject.Create; {In case something goes wrong, free PNG} try //If the TImage contains a TBitmap, just assign from it if Source.Picture.Graphic is TBitmap then PNG.Assign(TBitmap(Source.Picture.Graphic)) //Convert bitmap data into png else begin //Otherwise try to assign first to a TBimap BMP := TBitmap.Create; try BMP.Assign(Source.Picture.Graphic); PNG.Assign(BMP); finally BMP.Free; end; end; //Save to PNG format PNG.SaveToFile(Dest); finally PNG.Free; end end;
TPNGImage 1.43 (PNG格式图像组件)
01-13
TPNGImage免费组件，用于读取、浏览、显示PNG格式图像的绝好组件！支持各版本的Delphi。
TPNGImage.v1.564.Full.Source.Delphi.BCB.ccrun.282267
03-20
TPNGImage.v1.564.Full.Source.Delphi.BCB.ccrun.282267 让BCB和Delphi支持PNG格式图片的控件
Delphi7 处理PNG图片
See___You的博客
10-20 2638
原型：Scanline[const Index: Integer]: Pointer;参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的RGB值的指针。参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的Alpha值的指针，指向长度等于PNG图片的宽度，当PNG图片没有透明度时返回null.原型：Pixels[const X, Y: Integer]: TColor;类型值是指定坐标的RGB值，值得注意，字节对应关系是从低字节到高字节是RGB。
关于delphi图片不能使用jpg的问题(涉及自绘会报错）
wlcrm的博客
09-12 2630
如果使用Delphi的TImage加载jpg图片或png图片，如果你修改canvas则会报错： can only modify an image if it contains a bitmap？ 那么你可以通过一个方式进行变通，然后就没有问题了，如何弄呢？ 看代码吧：（够长了点） unit Unit1; interface uses   Windows, Messages, SysUtils,...
delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
weixin_33804582的博客
10-29 1353
procedure TForm1.Button1Click(Sender: TObject);var  jpg: TJPEGImage; // 要use Jpeg单元begin  // 显示jpg大图片的方式  jpg := TJPEGImage.Create;  jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');  Image1.Picture.Bit...
Delphi中实现PNG图片显示的解决方案
DelphiPNGImage是一个第三方组件，它扩展了Delphi自带的TImage控件的功能，使其能够加载和显示PNG格式的图片。在Delphi中，默认的TImage控件不支持PNG格式，这可能对需要在窗体上展示PNG图片的应用程序造成了不便。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值