德爾福與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: "hello@hello.com", 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: \"hello@hello\", 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: \"hello@hello.com\", password: \"hello\"'+ 
     '  }}'+ 
     ' )' + 
     ' {' + 
     ' id' + 
     ' }' + 
     '}" }')); 
end;