کار با API ربات تلگرام در دلفی 7

[mjdeveloper]

دوستان سلام
این هم کد ارسال تصویر با ربات تلگرام

Use IdMultipartFormData

procedure TForm1.SendPostData;var

  Stream: TStringStream;

  Params: TIdMultipartFormDataStream;

  msg : WideString;

  LHandler: TIdSSLIOHandlerSocket;

  IDUser : string;

begin

  API := edtAPI.Text;

  IDUser := Edit1.Text;

  msg := '/sendPhoto';

  Stream := TStringStream.Create('');

  try

   Params := TIdMultipartFormDataStream.Create;

   try

    Params.AddFile('photo', 'E:\image.png','');

    Params.AddFormField('chat_id',IDUser);

    Params.AddFormField('caption','this is a image caption!');

    try

        LHandler := TIdSSLIOHandlerSocket.Create(nil);

        //IdHTTP1.ReadTimeout := 300000;

        IdHTTP1.IOHandler:=LHandler;

        LHandler.SSLOptions.Method := sslvTLSv1;

        LHandler.SSLOptions.Mode := sslmUnassigned;

        IdHTTP1.HandleRedirects := true;

        //idhttp1.Request.ContentType := Params.RequestContentType;

        memoRequest.Text := BaseUrl + API + msg;

        IdHTTP1.Post(BaseUrl + API + msg, Params, Stream);

    except

     on E: Exception do

       ShowMessage('Error encountered during POST: ' + E.Message);

    end;

    ShowMessage(Stream.DataString);

   finally

    Params.Free;

   end;

  finally

   Stream.Free;

  end;

end;