消耗德爾福

Question

OData服務

我如何使用來自德爾福的OData web服務（我試圖用新的Bing搜索API Azure的交互）？在Delphi中幾乎沒有這樣的信息。有一個文章here，但它並沒有幫助很多解釋如何從Delphi的角度來消費這種服務。誰能提供一個簡單的例子？

Answer 1

下面是使用Netflix的ODATA服務消費在Delphi XE OData服務的一個非常簡單的例子：

program oDataDemo; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, msxml, Variants, Activex; 

var 
    httpRequest: IXMLHttpRequest; 
    oDataServiceURI: String; 
    oDataFilter: String; 
    xmlResults: String; 
begin 
    try 
    oDataServiceURI := 'http://odata.netflix.com/v2/Catalog/Titles()'; 
    oDataFilter := '?$top=10'; 
    coinitialize(nil); 
    httpRequest := CoXMLHTTP.Create; 
    httpRequest.open('GET', UTF8Encode(oDataServiceURI + oDataFilter), false, EmptyParam, EmptyParam); 
    httpRequest.send(EmptyParam); 
    xmlResults := httpRequest.responseText; 
    WriteLn(xmlResults); 

    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end.