delphi - Delphi から oData サービスを利用する

Question

Delphi から oData Web サービスを利用するにはどうすればよいですか (新しい Bing Search Azure API を操作しようとしています)。Delphi でこれを行うための情報はほとんどありません。ここに投稿がありますが、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.