使用 F# Azure Storage Type Provider 探索 Azure

Azure Storage Type Provider 提供对 Azure 存储数据资源的静态类型访问： BLOB 、表以及队列。项目的维护者Isaac Abraham 最近和大家交流了如何使用type provider和这些数据资源交互。

对于所有数据资源来说，对type provider 的设置都是相同的：

 open FSharp.Azure.StorageTypeProvider
 
// Connect to a live account using a two-part name and key.
type Storage = AzureTypeProvider<"name", "key">
 

Blob

Azure Blob storage 是将文件数据存储在云端的一项服务。storage type provider 通过下面的示例提供对容器和文件的静态类型访问：

let container = Storage.Containers.samples
let theBlob = container.``folder/``.``childFile.txt``
printfn "Blob '%s' is %d bytes big." theBlob.Name theBlob.Size
 
let totalSize =
   [ container.``file1.txt``
     container.``file2.txt``
     container.``file3.txt``
     container.``sample.txt`` ]
   |> List.sumBy(fun blob -> blob.Size)
 
printfn "These files take up %d bytes." totalSize
 

表
Azure Table storage 将 NoSQL 键值存储托管于 Azure 上。NoSQL 数据库是无模式的，表的行不需要包含相同属性。Azure Table storage 支持在有限范围内的查询，可以通过查询键或者属性来得到相对应的行。它实现了OData 协议，这对查询非常重要。

storage type provider 可以提供基础的 CRUD 操作，对管理数据很有必要。有几种办法进行查询，以下的例子是一个简单的键查询：

let employeeTable = Storage.Tables.employee
let firstEmployee = employeeTable.Get(Row "1", Partition "women")
let allWomen = employeeTable.GetPartition("women")
 

type provider 提供了 IQueryable 实现来满足属性查询。然而，由于 Azure Table 支持的查询操作受限，这个解决方案也是有限制的。一种可能的选择是使用 type provider 自动生成的条件：

let longerQuery = employeeTable.Query()
 .``Where Years Working Is``.``Greater Than``(14)
 .``Where Name Is``.``Equal To``(“Fred”)
 .``Where Is Manager Is``.True()
 

队列
Azure Queue storage 是消息服务，基于 REST 方式访问。Queue storage 还支持管理异步任务和搭建过程工作流。

相比较于一个传统的队列 API，type provider 并没有太多优势，它不能提供模式或是拓展查询。然而，它为开发和调试提供了几个功能。使用 F# Interactive 就可以直接从 IDE 实现查询。

let queue = Azure.Queues.``sample-queue``
 
async {
   printfn "Enqueuing a message!"
   do! queue.Enqueue("Hello from Azure Type Provider")
   printfn "Queue length is %d." (queue.GetCurrentLength())
 
   // Get the message back off the queue
   let dequeuedMessage = (queue.Dequeue() |> Async.RunSynchronously).Value
   printfn "%A" dequeuedMessage
 
   printfn "Deleting the message."
   do! queue.DeleteMessage dequeuedMessage.Id
   printfn "Queue length is %d." (queue.GetCurrentLength())
} |> Async.RunSynchronously
 

Azure Storage Type Provider 是一个开源的项目，可以在GitHub 上获得。

查看英文原文： Exploring Azure with F# Azure Storage Type Provider

感谢张龙对本文的审校。

给InfoQ 中文站投稿或者参与内容翻译工作，请邮件至 editors@cn.infoq.com 。也欢迎大家通过新浪微博（ @InfoQ ， @丁晓昀），微信（微信号： InfoQChina ）关注我们。