TMemoryStream → Array of Byte

Материал из DRKB

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;
    if M.Size > 0 then
      M.Read(Buff[0], M.Size);
  finally
    M.Free;
  end;
end;


Author: Rouse_
ID: 00251