فرمانی برای ارسال متن و عکس به پیام رسان ایتا

[دلفــي]

سلام به همگی
من می خواهم با پیامرسان ایتا ارتباط برقرار کنم
یعنی من توکن و ای دی کانالم را دارم و میخواهم که پیام شامل عکس و متن و یا فیلم ارسال کنم هیچ راهی هم دراینترنت براش ندیدم
لطفا من را کمک کنید
سعی من اینه که تمام کار توسط خود دلفی انجام بشه

unit test;





interface





uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,

  IdTCPClient, IdHTTP, Vcl.StdCtrls,

  IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer,

  IdContext, IdMultipartFormData, IdHeaderList, IdMessageCoder,

  IdMessageCoderMIME, IdMessage, IdGlobalProtocols, System.DateUtils;





type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;





var

  Form1: TForm1;





implementation





{$R *.dfm}





procedure SendtoEita;

var

   token: string;

   chat_id: Integer;

   caption: string;

   title: string;

   request: TIdHTTP;

   IdMulti : TIdMultiPartFormDataStream;

   response: string;

   MyTimestamp: Int64;

 begin

   token := 'bot******:97f***fec-***767565******-8860-****676***';

   chat_id := 20****67;

   caption := 'Test Caption';

   title := 'API Tester';

   request := TIdHTTP.Create(nil);

   try

     request.Request.ContentType := 'multipart/form-data';

     try

       MyTimestamp := DateTimeToUnix(Now);

       IdMulti := TIdMultiPartFormDataStream.Create;

       IdMulti.AddFile('file', 'C:\TestFile.jpg');

       IdMulti.AddFormField('chat_id', IntToStr(chat_id));

       IdMulti.AddFormField('title', title);

       IdMulti.AddFormField('caption', caption);

       IdMulti.AddFormField('date', IntToStr(MyTimestamp+30));

       response := request.Post('https://eitaayar.ir/api/' + token + '/sendFile', IdMulti);

       ShowMessage(response);

     finally

       IdMulti.Free;

     end;

   finally

     request.Free;

   end;

 end;









procedure TForm1.Button1Click(Sender: TObject);

begin

 SendtoEita;

end;





end.

اینم از فایل های OpenSSL: