zoukankan      html  css  js  c++  java
  • msgpack传文件

    msgpack传文件

    procedure TForm1.Button1Click(Sender: TObject);
    var
    ms, ms2: TMemoryStream;
    pack: TSimpleMsgPack;
    begin
    ms := TMemoryStream.Create;
    ms.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.exe');//流加载文件
    pack := TSimpleMsgPack.Create;
    pack.ForcePathObject('a').LoadBinaryFromStream(ms);//msgpack加载
    ms.Free;

    pack.EncodeToStream(); //msgpack转为流后,网络传输流

    pack.DecodeFromStream();//客户端收到流后,转化为msgpack

    ms2 := TMemoryStream.Create;
    pack.ForcePathObject('a').SaveBinaryToStream(ms2);
    pack.Free;
    ms2.SaveToFile(ExtractFilePath(Application.ExeName) + '2.exe');//流保存为本地文件
    ms2.Free;
    end;

     

  • 相关阅读:
    Linux ld命令
    Linux readelf命令
    linux ar命令
    Linux升级Ruby
    Linux dkpg命令
    Linux apt-get命令
    Linux xxd命令
    Linux objdump命令
    Linux ldconfig命令
    git 删除目录
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/9633007.html
Copyright © 2011-2022 走看看