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

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

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

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

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
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/ . Есть функционал отправки получения сообщений, отправка файлов и геолокации.

Новые блоги и статьи Все статьи Все блоги /
Как работает Node.js изнутри run.dev 29.03.2025 Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .	Моки в Python: Mock Object Library py-thonny 29.03.2025 Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .	JavaScript: Управление памятью и улучшение производительности run.dev 29.03.2025 В отличие от низкоуровневых языков программирования, JavaScript не требует ручного выделения и освобождения памяти. Здесь работает автоматический сборщик мусора, который определяет, какие объекты. . .	Мультитенантная архитектура со SpringBoot и PostgreSQL ArchitectMsa 29.03.2025 SaaS-приложения редко обслуживают одного клиента и обычно они должны поддерживать множество организаций, каждая из которых работает в своём изолированном пространстве. Мультитенантная архитектура. . .	std::span в C++: Производительность и лучшие практики NullReferenced 28.03.2025 std::span — одно из самых недооценённых нововведений стандарта C++20, которое радикально меняет подход к работе с непрерывными последовательностями данных. По сути, это невладеющее представление. . .
Многопоточность в C#: Threadpool UnmanagedCoder 28.03.2025 Пул потоков в C# — это коллекция заранее созданных и готовых к использованию потоков, которые находятся в распоряжении приложения. Вместо того чтобы создавать и уничтожать потоки для каждой небольшой. . .	Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .

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

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

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