设为首页 加入收藏

TOP

封装了三个对TMemoryStream操作的函数,大牛莫笑
2017-10-10 12:07:19 】 浏览:3446
Tags:封装 三个 TMemoryStream 操作 函数 牛莫笑

//  TMemoryStream 转化为string字符串
function MemoryStreamToString(M: TMemoryStream): AnsiString;
begin
 SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char));
end;
//  TMemoryStream 写入string字符串
procedure MemoryAddStr(M:TMemoryStream;cStr:String);
begin
  if M=nil then
    M:=TMemoryStream.Create;
   M.Write(cStr[1],Length(cStr)*Sizeof(char));
end;
//  TMemoryStream 保存到文件
procedure MemoryStreamSaveToFile(M:TMemoryStream;cFileName:String);
 Var
   FStream:TFileStream;
 begin
   if FileExists(cFileName) then
     begin
       FStream:=TFileStream.Create(cFileName,fmOpenWrite or fmShareDenyWrite);
       FStream.Position:=FStream.Size;
     end else
       FStream:=TFileStream.Create(cFileName,fmCreate or fmShareDenyWrite);
   FStream.Write(M.Memory^,M.Position);
   FStream.Free;
 end;

 


封装了三个对TMemoryStream操作的函数,大牛莫笑 https://www.cppentry.com/bencandy.php?fid=86&id=130176

】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇技术笔记:Delphi多线程应用读写锁 下一篇aes加密算法的一个问题