DelphiでChatWorkApiを用いたpost

Question

Delphiを用いて、ChatWorkへのメッセージ投稿をしようと考えています。
コンポーネントとしてIndyのIdHTTPを使用しようと思っています。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm4 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
  PostURL: string;
  PostStream: TStringList;
  ResStream: TStringStream;
  PostData: string;
  Encoding: TEncoding;
  BytesLength: Integer;

  poststring:TStringList;
  strm:TStringStream;
  st:string;

  test: TStringList;

begin
  PostURL    := 'https://api.chatwork.com/v2/rooms/XXXXXXXX/messages';
  PostStream := TStringList.Create;
  ResStream  := TStringStream.Create('');

  //自動でエンコードしないようにする
  IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions - [hoForceEncodeParams];

  //名前
  PostStream.Add('body=TEST');
  Screen.Cursor := crHourGlass;

  Encoding := TEncoding.GetEncoding(932);
  BytesLength := Encoding.GetByteCount(PostStream[0]);
  test := TStringList.Create;
  test.Add('X-ChatWorkToken:XXXXXXXXXXXX');

  Encoding.Free;
  try
    try
      IdHTTP1.Request.Method := 'POST';
      IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
      IdHTTP1.Request.ContentLength := BytesLength;
      IdHTTP1.Request.CustomHeaders.AddStdValues(test);
      IdHTTP1.Post(PostURL, PostStream, ResStream);
    except
      //エラー内容はIdHTTP1.ResponseTextで受取る
    end;
  finally
    ShowMessage(IdHTTP1.ResponseText);
    //サーバからのデータを表示
    ShowMessage(ResStream.DataString);

    Screen.Cursor := crDefault;
    FreeAndNil(PostStream);
    FreeAndNil(ResStream);
  end;

end;

end.

VCLフォーム上にTButtonとIdHTTPを配置してクリックイベントが行われたら特定のルームにTESTというメッセージを通知しようと思っていますが401エラーが発生します。

パラメータが足りていない、またはポストのやり方が違うなどを考えていますがその場合どのように直せば良いのかで悩んでいます。DelphiでのChatWork通知のやり方が無かったので手探りの状態です。

ご助言のほどよろしくお願いします。
※ChatworkAPIは発行済みで、Delphiとは異なる言語でのPOSTは確認しています。

Answer 1

遅い回答ですが・・・。

401エラーという事ですが、APIトークンに間違いはないのですよね。

Delphiのバージョンは分からないので、手元にある Delphi 10.2(VCL)でのサンプルです。
細かい事は抜きにしてメッセージの投稿は出来ました。
APIドキュメントにはContentTypeの記載がなかったので不要なのかな？

procedure TForm1.btnPostHello(Sender: TObject);
var
  body : TStringList;
  msg : string;
begin
  body := TStringList.Create;
  try
    body.Add('body=こんにちは！');
    IdHttp.Request.CustomHeaders.Add('X-ChatWorkToken:<your_api_token>');
    msg := IdHttp.Post('https://api.chatwork.com/v2/rooms/<room_id>/messages', body);
    // msgには以下のような message_id が格納されています
    // {"message_id":"10278XXXXXXXXXX123"}
    Memo1.Lines.Add(msg);
  finally
    FreeAndNil(body);
  end;
end;

解決できると良いですが。

Comments

[eneko0513]

gfkさん
こんにちは、情報を頂きありがとうございました。
頂いたサンプルを元に無事にPOSTすることが出来ました。
ただ、私の環境がXE4のため一部改変は必要そうでした。

TIdSSLIOHandlerSocketOpenSSLを用いることで無事に動作させられました。
情報を頂きましてありがとうございました！

Answer 2

ありがとうございました。頂いた情報を元に無事にPOSTすることが出来ました。
DelphiXE4という古いバージョンのため、TIdSSLIOHandlerSocketOpenSSLを使用する
必要がありましたが対応できました。

情報を頂きありがとうございました。

procedure TForm11.Button1Click(Sender: TObject);
var
  body : TStringList;
  msg : string;
  FIdIOHandler : TIdSSLIOHandlerSocketOpenSSL;
begin
  body := TStringList.Create;
  try
    body.Add('body=こんにちは！');

    FIdIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    IdHTTP1.IOHandler := FIdIOHandler;
    IdHttp1.Request.CustomHeaders.Add('X-ChatWorkToken:XXXXXXX');
    msg := IdHttp1.Post('https://api.chatwork.com/v2/rooms/XXXXXXX/messages', body);
    // msgには以下のような message_id が格納されています
    // {"message_id":"10278XXXXXXXXXX123"}
    //MessageBox(msg);
  finally
    FreeAndNil(body);
  end;
end;

end.