Consuma servizio OData da Delphi

Question

Come posso utilizzare un servizio web OData di Delphi (sto tentando di interagire con la nuova API Azure di ricerca Bing)? Non c'è quasi nessuna informazione per farlo a Delfi. C'è un post here ma non aiuta molto a spiegare come consumare tale servizio dal punto di vista di Delphi. Qualcuno può fornire un semplice esempio?

Answer 1

Ecco un esempio molto semplice di consumare un servizio odata in Delphi XE utilizzando il servizio odata Netflix:

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.