图片地址:http://game.tom.com/checkcode.php应该是PNG格式,但是我用PngImage无法读取,用JPEG更不用说,这个是用pngImage的相关代码:procedure PNGToBitmap(const Source : TMemoryStream ; var Dest: TImage ); overload;
var
Bitmap: TBitmap;
PNG: TPNGObject;
begin
PNG := TPNGObject.Create;
Bitmap := TBitmap.Create;
{In case something goes wrong, free booth PNG and Bitmap}
try
PNG.LoadFromStream(Source);
Bitmap.Assign(PNG); //Convert data into bitmap
Dest.Picture.Assign(Bitmap);
finally
PNG.Free;
Bitmap.Free;
end
end;运行后弹出错误,报告说PNG无效。我不想用VCL控件,所以还请各位多多帮助。
var
Bitmap: TBitmap;
PNG: TPNGObject;
begin
PNG := TPNGObject.Create;
Bitmap := TBitmap.Create;
{In case something goes wrong, free booth PNG and Bitmap}
try
PNG.LoadFromStream(Source);
Bitmap.Assign(PNG); //Convert data into bitmap
Dest.Picture.Assign(Bitmap);
finally
PNG.Free;
Bitmap.Free;
end
end;运行后弹出错误,报告说PNG无效。我不想用VCL控件,所以还请各位多多帮助。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货