现想用XML来保存位图数据,位图数据是怎么写入XML文件中的!
例如:
<root>
<bmp>
<name>pic1</name>
<data>位图数据</data>
</bmp>
</root>
我想用data节点来保存位图,问题是我该如何从位图文件中读出数据,又如何写入XML中?入者有分,有代码者多100分!
例如:
<root>
<bmp>
<name>pic1</name>
<data>位图数据</data>
</bmp>
</root>
我想用data节点来保存位图,问题是我该如何从位图文件中读出数据,又如何写入XML中?入者有分,有代码者多100分!
解决方案 »
- rave report 控件 中 我打印两份
- 怎么在image上画一个黑色方块,把image白色变成黑色
- 能否不用编程实现菜单自动生成以连续的数字为快捷键+mainmenu1.items.caption的菜单项
- 关于远程调用方式
- WebBrowser控件如何让其点击右键不弹出IE浏览器默认的右键菜单?
- 关于多表与sql的问题,在线守侯!!!
- 问题重贴,拜托拜托——websnap的数据集控件使用时出现的问题
- 哪里有制作中国式报表的控件,支持Delphi6的,急!
- 菜鸟提问:如何把.ocx文件添加到ActiveX面板上?对不起,只有10分了。
- 一个关于文件 Reset 的问题!
- 关于通过代理使用udp通信问题,
- 急寻mp3转 wav算法。
uses EncdDecd,Graphics,Classes;
function BitmapToString(Bitmap:TBitmap):String;
function StringToBitmap(str:String):TBitmap;
implementation
function BitmapToString(Bitmap:TBitmap):String;
var
BitmapStream:TMemoryStream;
strStream:TStringStream;
begin
BitmapStream:=TMemoryStream.Create;
strStream:=TStringStream.Create('');
Bitmap.SaveToStream(BitmapStream);
BitmapStream.Position:=0;
EncodeStream(BitmapStream,strStream);
Result:=strStream.DataString;
BitmapStream.Free;
strStream.Free;
end;function StringToBitmap(str:String):TBitmap;
var
BitmapStream:TMemoryStream;
strStream:TStringStream;
begin
strStream:=TStringStream.Create(str);
BitmapStream:=TMemoryStream.Create;
DecodeStream(strStream,BitmapStream);
BitmapStream.Position:=0;
result:=TBitmap.Create;
result.LoadFromStream(BitmapStream);
BitmapStream.Free;
strStream.Free;
end;
end.