2

CloudFlareフレームワークでクライアントを作成したいと考えていますFiremonkey。ご存じない方のために説明すると、CloudFlare は、Web サイトを持っているすべての人にとって一種の CDN として機能します。利用可能な API があり、多くの Web API と同様にJSON、トークンベースのシステムで使用しています。API にアクセスするには、アカウントのメール アドレスとアカウント トークンの両方が必要です。これは HTTPS で実行されます。ご想像のとおり、HTTP または非 SSL 経由で API にアクセスしようとすると、単純に null の結果が返されます。

私が作成したいアプリケーションは、オールインワンの管理ツールとして機能し、Web ブラウザーを使用して CloudFlare の設定を管理する必要がなくなります。最も基本的な問題があります。SSL ポスト。Web ブラウザ経由で API リクエストを送信し、結果のリストを取得できます (例:https://www.cloudflare.com/api_json.html?a=stats&z=DOMAIN&u=EMAIL&tkn=TOKEN明らかな理由で個人情報が削除された) が、これらと同じ結果 (または API からの結果) を取得する方法がわかりませんさらに言えば）Firemonkeyで。

Overbyte ICS基本的なバンドル コンポーネントと同様に SSL をインストールしましたがIndy、これを使い始めるのに苦労しています。HTTPS/SSL 経由でパラメーターのリストを投稿する必要がありますがhttps://www.cloudflare.com/api_json.html、どこから始めればよいかほとんどわかりません。主にICSを使用して、SOに関するいくつかのさまざまな例を見てきましたが、複数のパラメーターを使用した投稿、フォーマット方法などに固有のものを見つけることができませんでした.

私が試した 1 つの例は、 ICS を使用して、パラメーターTSSLHttpCliを 1 つの文字列として書き込みa=stats&z=DOMAIN&u=EMAIL&tkn=TOKEN(つまり しかし、これは私に与えます。これは私が試したコードです（ただし、個人の詳細を一般的な値に置き換えました）。SendStreamTSSLHttpCli0,0https://www.cloudflare.com/api_json.html?PostConnection aborted on request

var
  Data : AnsiString;
  RcvStrm, SndStrm : TMemoryStream;
begin
  SndStrm := TMemoryStream.Create;
  RcvStrm := TMemoryStream.Create;
  Data := '?a=stats&z=MYDOMAIN&u=MYEMAIL&tkn=MYTOKEN';
  SslHttpCli.SendStream := SndStrm;
  SslHttpCli.SendStream.Write(Data[1],Length(Data));
  SslHttpCli.SendStream.Seek(0,0);
  Memo1.Lines.LoadFromStream(SndStrm);
  ShowMessage('Waiting!');
  SslHttpCli.RcvdStream := RcvStrm;
  SslHttpCli.URL := 'https://www.cloudflare.com/api_json.html';
  SslHttpCli.Post;
  Memo1.Lines.Clear;
  Memo1.Lines.LoadFromStream(RcvStrm);
  Memo1.Lines.Add('.....');
  RcvStrm.Free;
  SndStrm.Free;
  ShowMessage('Complete!');
end;

手順は単に視覚的な休憩を提供するためにあるので、ShowMessage毎回ストリームにあるデータを確認できます。が呼び出されると、予想どおりメモMemo1.Lines.LoadFromStream(SndStrm);の内容に単一の疑問符が表示されます。Data

を呼び出すとMemo1.Lines.LoadFromStream(RcvStrm);、API から返された結果が追加され、その下に 5 つのドットが追加されることが期待されます。ただし、これは発生せず、受信したメッセージが問題に関連していることは明らかです。データを正しく設定していないと思いますが、投稿する前にどのようにフォーマットすればよいか正確にはわかりません. Memo1.Lines.LoadFromStream(RcvStrm);手順がメモに呼び出されているかどうかを確認するために、以下のすべてを最後までコメントアウトしましたClearが、メモの内容は呼び出したときと同じままLoadFromStream(SndStrm)です。決勝戦ShowMessageも呼ばれません。

最初は AnsiString の代わりに String を使用しようとしましたが、これは単に文字列全体ではなく Data の最初の文字を出力するだけです。

機能しない理由は多数あります (API アクセスの詳細はすべて正しいため、コードの問題です) が、より多くの経験と知識を持った人が正しい方向に向けてくれる必要があります。

私のネットワーク コーディングの知識は限られており、これまで Delphi で基本的な SQL と FTP しか扱っていませんでした。このステップが完了したら、まだ解析済みの JSON を使用する必要がありますが、今のところ、この作業を開始できるように、この作業を手伝ってくれる人はいますか?

4

2 に答える 2

0

あなたは GET リクエストでこれを解決しているように見えましたが、あなたの POST リクエストには 2 つの差し迫った問題があることに気付きました。

  1. ランナーが提案したように、「?」を削除します。あなたのデータで。「?」GET リクエストで URL にパラメータを追加する場合にのみ使用されます。

  2. HTTP リクエストのコンテンツ タイプを設定することはありません ( である必要がありますapplication/x-www-form-urlencoded)。これは、次のコードで実行できます。

    SSLHttpCli.ContentTypePost := 'application/x-www-form-urlencoded';

ちょうど役立つ考え。https://www.cloudflare.com/docs/client-api.htmlを確認したところ、POST リクエストが受け入れられると記載されています。サーバーが他のコンテンツ タイプを持つ要求を拒否する可能性があります。

POST リクエストを介して別の API に接続する必要があり、Overbyte コンポーネントを使用したい場合は、ちょっと考えてみてください。

情報がお役に立てば幸いです！

于 2013-05-10T18:50:00.397 に答える