TMemoryStream -> array of Byte и обратно
TMemoryStream -> array of Byte и обратно
TMemoryStream -> array of Byte и обратно Для преобразования TMemoryStream в array of Byte можно использовать следующий код: procedure TForm1.Button1Click(Sender: TObject); var M: TMemoryStream; Buff: array of Byte; begin M := TMemoryStream.Create; try M.LoadFromFile('c:\test.htm'); SetLength(Buff, M.Size); M.Position := 0; M.Read(Buff[0], M.Size); finally M.Free; end; end; Обратное преобразование осуществляется почти точно так же: procedure TForm1.Button2Click(Sender: TObject); const Start = 49; AnEnd = 57; ArLen = AnEnd - Start + 1; var M: TMemoryStream; Buff: array of Byte; I: Integer; begin SetLength(Buff, ArLen); for I := 0 to ArLen - 1 do Buff[I] := Start + I; M := TMemoryStream.Create; try M.Write(Buff[0], ArLen); M.SaveToFile('c:\test.txt'); finally M.Free; end; end;
