Consumir el servicio oData de Delphi

Question

¿Cómo puedo consumir un servicio web oData de Delphi (estoy intentando interactuar con la nueva API Bing Search Azure)? Casi no hay información para hacer esto en Delphi. Hay una publicación here, pero no ayuda mucho explicar cómo consumir dicho servicio desde el punto de vista de Delphi. ¿Alguien puede dar un ejemplo simple?

Answer 1

Aquí es un ejemplo muy simple de consumir un servicio oData en Delphi XE utilizar el servicio de Netflix 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.