解决方案 »
- 高手请进 delphi中如何屏蔽桌面、屏蔽菜单、屏蔽快捷键,谢
- IXMLDOMNodeList里怎么加入IXMLDOMNode的?
- 如何在界面上画出这样的表格,高手们进来看看吧!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 对查询结果假删除的问题
- 卖书!经典书籍全部低价!
- 消息传送
- 我安装了的ehlib2.6测试版本,现在我的程序运行时就打不开了,出现提示如下!
- 急寻资料:通过代理服务器上网,客户端取得代理服务器的信息!
- RXLIB里那个GIF控件的读入文件方法是什么?
- 怪,怪,怪:我的DELPHI5的主菜单不见了!
- 关于delphi XE5+mysql5.6.10出现乱码的问题。求解决办法
- access数据库中这么计算为什么报错?
但是我如何进行转换为图片格式?
class function TImgOper.Base64ToPhoto(aPhotoStr: string;
aImage: TImage): Boolean;
var
Ms: TMemoryStream;
Ss: TStringStream;
DecodeStr :DecodeFile;
FilePath:string;
begin
Result := false;
FilePath := 'C:\DecodeTemp.jpg';
try
Ms := TMemoryStream.Create;
try
Ss := TStringStream.Create(aPhotoStr);
try
DecodeStr := DecodeFile.Create;
try
DecodeStr.MimeDecodeStream(Ss,Ms); //解密字符到内存流中
Ms.Position := 0;
Ms.SaveToFile(FilePath);
aImage.Picture.LoadFromFile(FilePath);
finally
DecodeStr.Free;
end;
finally
Ss.Free;
end;
finally
Ms.Free;
end;
except on e:exception do
TSysOper.writeLog('将Base64字符串转化为图片信息,错误:' + e.Message);
end;
end;需要引用Encode和jpeg单元。尝试一下
好像是我搞错了,Encode单元是我们公司自己弄的一个单元文件!不是D自带的!你的可以从网上找找这个单元,因为我们也是从网上找的!
怎么转换为图片?将字符串转换成数字,用TFileStream或TMemoryStream直接写进去就是了
怎么转换为图片?
你发个XML文件给我来试下,以前搞过的,要找下。
这些文本确实是jpg格式的16进制数据,必须把十六进制转换为二进制流。
就可以得到图片。