和大家讨论一个重要的问题。

Question

我现在的想法是这样的，我想通过delphi读取一个excel文件，变成二进制数组，转换成base64字串，放到xml文件中。进行传输。
希望大家给我提些建议，我这种方法如何操作才可行。

Answer 1

推荐下面的方法：1，压缩execel
2，base64 编码
3，传输
4，解码
5，解压缩得到 excel可能用到的类：TMemoryStream, zlib.TCompressionStream, zlib.TDecompressionStream - 压缩Indy 系列组件 -- 编解码传输

Answer 2

uses
  EncdDecd;procedure TForm1.Button1Click(Sender: TObject);
var
  StreamIn, StreamOut: TMemoryStream;
begin
  if OpenDialog1.Execute then
  begin
    StreamIn := TMemoryStream.Create;
    if Assigned(StreamIn) then
    try
      StreamIn.LoadFromFile(OpenDialog1.FileName);
      if StreamIn.Size > 0 then
      begin
        StreamOut := TMemoryStream.Create;
        if Assigned(SteamOut) then
        try
          DecodeStream(StreamIn, StreamOut); // 把 in 中的 数据转成 base64 之后存储到 out stream 中          //其他操作...        finally
          FreeAndNil(StreamOut);
        end;
      end;
    finally
      FreeAndNil(StreamIn);
    end;
  end;
end;
EncdDecd 这个delphi自带单元我也是第一次知道。提供对流和字符串的base64转换。四个函数，很方便。
delphi 很强啊，再感叹一下。

Answer 3

http://topic.csdn.net/t/20060425/12/4711818.html这里有 encddecd 的说明

Answer 4

修正：EncodeStream(StreamIn, StreamOut); // 把 in 中的 数据转成 base64 之后存储到 out stream 中