xml里面有段内容,这段内容是二进制数据吗?存储到数据库用什么类型? 数据库xml 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 存储数据的一种方式,使用base64编码过的。 这些是客户给的一个xml格式,应该是图片内容。但是我如何进行转换为图片格式? 不像是Base64编码的!这个如果是图片你的就得找给你的XML文件的人了!靠猜是不可能的了! 看样子确实是图片,但是没见过这种编码的,不像是base64编码,不过可以尝试一下!用Base64解密保存为jpg文件试一下! //将Base64字符串转化为图片信息--------------------------------------------------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单元。尝试一下 DecodeStr :DecodeFile;这个是什么? DecodeStr :DecodeFile;解密字符串类啊!在Encode单元里!好像是我搞错了,Encode单元是我们公司自己弄的一个单元文件!不是D自带的!你的可以从网上找找这个单元,因为我们也是从网上找的! XML的内容都是字符,0000111111,看上去象二进制度数据。但它就是字符串,是由那些“图片”一类数据转换面来的字符串。 要想转换成原来数据,必须使用相同的转换算法(可逆)。 怎么转换为图片?将字符串转换成数字,用TFileStream或TMemoryStream直接写进去就是了 怎么转换为图片?你发个XML文件给我来试下,以前搞过的,要找下。 谢谢各位、已经找到方法,这些文本确实是jpg格式的16进制数据,必须把十六进制转换为二进制流。就可以得到图片。 ACTIVEX中的线程结束的回调函数不响应,怎么回事? 请问如何隐藏程序进程 老问题:加速TLISTVIEW显示速度的问题。 如何用程序将DOC文件转换为BMP文件?只有10分了。 为什么我的信誉分这么低?郁闷中。。。。 一个很菜的问题 在线等 要编写whois服务器查询程序,请问有这样功能的组件吗?谢谢 ■□请问程序中如何设置分辨率800*600?急!再线等! 求: 缩略图控件或者是一些能有类似效果的控件 (最好有原码)! 用来查询的query不能用来显示? 关于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进制数据,必须把十六进制转换为二进制流。
就可以得到图片。