Telegram Bot Отправка фото

@Zlodeyz · Регистрация: 01.04.2018

Author24 — интернет-сервис помощи студентам

Не могу отправить фото пишет Ошибка 400 Не верный запрос.

Delphi

procedure TForm5.Button3Click(Sender: TObject);
const BaseUrl = 'https://api.telegram.org/bot';
var
  PostData: TIdMultiPartFormDataStream;
  FileName:string;
  IdHTTP : TIdHTTP;
  ssl : TIdSSLIOHandlerSocketOpenSSL;
  request:string;
 
  config:myJSONItem;
  S:string;
   Info   : TStringList;
begin
  if OpenDialog1.Execute then
  FileName:=OpenDialog1.FileName;
  if FileName='' then Exit;
  PostData := TIdMultiPartFormDataStream.Create;
 
 
  IdHTTP := TIdHTTP.Create;
  SSL:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
 Try
  SSL.SSLOptions.Mode := sslmUnassigned;
  SSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2] ;
  SSL.SSLOptions.Method := sslvTLSv1_2; // принудительно выбираем
  IdHTTP.IOHandler:=SSL;
 
  IdHTTP.Request.CharSet:='utf8';
  IdHTTP.Request.ContentType:= 'multipart/form-data';
 
 
  PostData.AddFormField('Chat_id', Chat_id);
  PostData.AddFile('Photo', FileName, 'multipart/form-data');
  PostData.AddFormField('caption', 'TestFiles');
 
  request := BaseUrl+Key+'/sendphoto';
  Label1.Caption :=request;
 
  Memo1.Lines.LoadFromStream(PostData) ;
  S := IdHTTP.post(request,PostData);
 
 
 Finally
 
 ssl.Free;
 IdHTTP.Free;
 
 End;
 
 
End;

// Сам запрос выглядит в мемо так

----------101520142124711
Content-Disposition: form-data; name="Chat_id"
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

856040207
----------101520142124711
Content-Disposition: form-data; name="Photo"; filename="1600074944844.jpg"
Content-Type: multipart/form-data
Content-Transfer-Encoding: binary

яШябЋExif

Подскажите в чем ошибка?
PS
Читать , посылать сообщения умею, Chat_id верный

@AlexSky-coder · 16.10.2020, 09:21

Попробуй боту в личку закинуть все изображение, запоминаешь file_id, и потом пересылать куда надо.

@Zlodeyz · 16.10.2020, 11:53 **[ТС]**

Разобрался все параметры Chat_id, Photo должны быть с маленькой буквы. Только так работает

Добавлено через 2 минуты
Готовый вариант с поддержкой русских букв

Delphi

function SendFiles(FileName,Caption,TipFiles,chat_Id:string):bool;
//TipFiles = document,photo,audio,video,voice,sticker // маленькими буквами !!!!
 
const BaseUrl = 'https://api.telegram.org/bot';
var
  PostData: TIdMultiPartFormDataStream;
  IdHTTP : TIdHTTP;
  ssl : TIdSSLIOHandlerSocketOpenSSL;
  request:string;
 
  config:myJSONItem;
  S:string;
 
 
begin
 
  PostData := TIdMultiPartFormDataStream.Create;
 
  IdHTTP := TIdHTTP.Create;
  SSL:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
 Try
  SSL.SSLOptions.Mode := sslmUnassigned;
  SSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2] ;
  SSL.SSLOptions.Method := sslvTLSv1_2; // принудительно выбираем
  IdHTTP.IOHandler:=SSL;
 
  IdHTTP.Request.CharSet:='utf8';
  IdHTTP.Request.ContentType:= 'multipart/form-data';
 
  PostData.AddFormField('chat_id', Chat_id) ;   
 
   with PostData.AddFile(TipFiles, FileName ) do    // Путь к файлу
   Begin
   HeaderCharset := 'utf-8';
   HeaderEncoding := '8';
   End;
 
 
  PostData.AddFormField('caption', Caption ,'utf-8').ContentTransfer := '8bit';   // Описание  файла
 
 
  request := BaseUrl+Key+'/send'+TipFiles;
 
  config := myJSONItem.Create;
  config.Code  := IdHTTP.post(request,PostData);
 
  result := config['ok'].getBool;
 
 
 Finally
 config.Free;
 ssl.Free;
 IdHTTP.Free;
 
 End;
 
 
End;

@iqst · 04.02.2021, 20:35

как ты вызываешь функцию?

@Zlodeyz · 03.10.2021, 17:59 **[ТС]**

Pascal

procedure TForm5.Button3Click(Sender: TObject);
var
  FileName:string;
begin
  if OpenDialog1.Execute then
  FileName:=OpenDialog1.FileName;
  if FileName='' then Exit;
 
  if SendFiles(FileName,'','document',chat_Id) then  Memo1.Lines.Add('Файл успешно отправлен')
End;

@Ginchman · 13.02.2023, 08:33

Можешь зайти и сказать уже готовую самописную библиотеку с моего гита https://github.com/yaroslav-ar... ascal_lib/ . Есть функционал отправки получения сообщений, отправка файлов и геолокации.

@AlexSky-coder Да так, от скуки захожу. 145 / 124 / 44 Регистрация: 25.06.2017 Сообщений: 366 Записей в блоге: 4
	16.10.2020, 09:21	2
	Попробуй боту в личку закинуть все изображение, запоминаешь file_id, и потом пересылать куда надо. 0

@iqst 0 / 0 / 0 Регистрация: 05.12.2020 Сообщений: 5
	04.02.2021, 20:35	4
	как ты вызываешь функцию? 0

@Ginchman 0 / 0 / 0 Регистрация: 15.01.2018 Сообщений: 28
	13.02.2023, 08:33	6
	Можешь зайти и сказать уже готовую самописную библиотеку с моего гита https://github.com/yaroslav-ar... ascal_lib/ . Есть функционал отправки получения сообщений, отправка файлов и геолокации. 0