delphi xe 二进制流读写

Posted 2020-10-13 哎哟喂草

避免乱入坑  留个记录~

 1 m_pBin,m_pBink: array[0..19] of byte;
 2 
 3 m_pbinx: PAnsiChar;
 4 len: Integer ;
 5 mStream: TStream;
 6 begin
 7 m_pbinx:= ‘1234567890abcdefgopq‘;
 8 Move(m_pbinx^, m_pBin, 20);
 9 len:= Length(m_pBin);
10 mStream:= TMemoryStream.create;
11 mStream.Position:= 0;
12 mStream.Write(@m_pBin, len);
13 mStream.Position := 0;
14 mStream.Read(m_pBink, 20);
15 
16 mStream.Free;