高分求教：怎样将图片、word、excel文和其他二进制文件，转换成B64的格式，放在XML中 ( 积分: 300 )

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #1

1、怎样将图片、word、excel文和其他二进制文件，转换成B64的格式，放在XML中,请附上源码。
2、怎样用XMLDocument控件将<A><B><C>AAAAA</C></B></A>格式自动转换成
<A>
<B>
<C>AAAAA</C>
</B>
</A>

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #2

1、怎样将图片、word、excel文和其他二进制文件，转换成B64的格式，放在XML中,请附上源码。
2、怎样用XMLDocument控件将<A><B><C>AAAAA</C></B></A>格式自动转换成
<A>
<B>
<C>AAAAA</C>
</B>
</A>

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #3

有高手吗

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #4

第一个问题:
uses
EncdDecd;
function EncodeFile(const FileName:string):string;
var
InStream:TFileStream;
OutStream:TStringStream;
begin
Result:='';
InStream:=TFileStream.Create(FileName,fmOpenRead);
try
OutStream:=TStringStream.Create('');
try
EncodeStream(InStream,OutStream);
Result:=OutStream.DataString;
finally
OutStream.Free;
end;
finally
InStream.Free;
end;
end;

第二个问题:
无需转换,你用IE打开就可以看到.

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #5

怎样将它读出来，我想测试一下，能附源码，一起给分好吗？

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #6

先给第二到题的分数

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #7

接受答案了.

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-01

• #8

procedure TForm1.Button1Click(Sender: TObject);
begin
XMLDocument1.XML.Text:='<?xml version="1.0"
encoding="big5"?><A><B>AAA</B></A>';
XMLDocument1.Active:=True;
XMLDocument1.ChildNodes.FindNode('A').ChildNodes.FindNode('B').Text:='ABC';
ShowMessage(XMLDocument1.ChildNodes.FindNode('A').ChildNodes.FindNode('B').Text);
end;