TMemoryStream > Array of Byte
01.01.2007
Для преобразования 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;