德尔福与Graph.cool API？

Question

如何将接口Graph.cool用Delphi？

我想建立一个Win32/Win64的/ OSX客户

https://Graph.cool/有GraphQL（REST）API端点。

实施例： https://api.graph.cool/simple/v1/ENDPOINT

GraphQL执行与Facebook GraphQL的已知的例子是在： http://docwiki.embarcadero.com/RADStudio/Tokyo/en/REST_Client_Library

我的示例性查询：

mutation { 
    createUser(
    authProvider: { 
     email: { email: "[email protected]", password: "hello" 
     }} 
) 
    { 
    id 
    } 
} 

来创建用户帐户。

我试着用TRestClient，但似乎没有办法把一个非结构化的查询字符串。

Snipplet从DFM：

var 
    RESTRequest1: TRESTRequest; 
    RESTRequest1 := TRESTRequest.Create(Self); 
    RESTRequest1.Name := 'RESTRequest1'; 
    RESTRequest1.AcceptEncoding := ' '; 
    RESTRequest1.Client := RESTClient1; 
    RESTRequest1.Method := rmPOST; 
    with RESTRequest1.Params.Add do begin 
    name := 'query'; 
    Options := [poAutoCreated]; 
    Value := '{ "query": "mutation { createUser(authProvider: { email: { email: \"[email protected]\", password: \"hello\" } }) { id } }" }'; 
    ContentType := ctAPPLICATION_JAVASCRIPT; 
    end; 
    with RESTRequest1.Params.Add do begin 
    name := ' id '; 
    Options := [poAutoCreated]; 
    end; 
    RESTRequest1.Response := RESTResponse1; 
    RESTRequest1.SynchronizedEvents := False; 

我有：1）错误的请求，B）无效的Json查询。

任何想法，我会怎样接口到Graph.cool API？

Answer 1

简单的办法将是直接使用HttpClient的，像

function SendHttp(const ARequest: string): string; 
var 
    HttpClient: THttpClient; 
    Response: IHttpResponse; 
    ST: TStream; 
begin 
    HttpClient := THttpClient.Create; 
    try 
    HttpClient.ContentType := CONTENTTYPE_APPLICATION_JSON; 
    HttpClient.Accept := CONTENTTYPE_APPLICATION_JSON; 
    ST := TStringStream.Create(ARequest); 
    try 
     Response := HttpClient.Post('https://api.graph.cool/simple/v1/ENDPOINT', ST, nil, 
     TNetHeaders.Create(
     TNameValuePair.Create('Authorization', 'Bearer YOUR_AUTH_TOKEN') 
     )); 
     Result := Response.ContentAsString(); 
    finally 
     ST.Free; 
    end; 
    finally 
    HttpClient.Free; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Memo1.Lines.Add(SendHttp('{"query": "mutation {'+ 
     ' createUser('+ 
     ' authProvider: {' + 
     '  email: { email: \"[email protected]\", password: \"hello\"'+ 
     '  }}'+ 
     ' )' + 
     ' {' + 
     ' id' + 
     ' }' + 
     '}" }')); 
end;