在電報機器人上發送本地托管的照片

Question

我正在使用 api.telegram.bot 並requests發送消息和圖像。

requests.get(url + 'sendMessage', params=dict(chat_id=send_to_user_id,text="Messo"))

這工作正常。 我的電報用戶能夠收到消息“Messo”。

現在，我正在嘗試使用 sendPhoto 發送我在本地驅動器上托管的圖像。

path = "kings/test_screenie1.png"
requests.get(url + 'sendPhoto', params=dict(chat_id=send_to_user_id, photo=open(path,'rb')))

我沒有收到任何異常，但是，我的用戶沒有收到圖像。 我在 Jupyter 筆記本中得到的 output 是： <Response [414]>

運行此代碼的 My.ipynb 文件位於： /Users/abc/Desktop/webproject/play0.ipynb

我的圖像文件位於： /Users/abc/Desktop/webproject/kings/test_screenie1.png

我在 Mac OS 上運行它。

Answer 1

請試試這個：

requests.post(url + 'sendPhoto', data={'chat_id': send_to_user_id}, files={'photo': open('/Users/abc/Desktop/webproject/kings/test_screenie1.png', 'rb')})

我已經在我的漫游器上進行了本地測試，這種方法對我有效。

希望為您服務。

Answer 2

子電報_pruebas_photo()

Const URL = "https://api.telegram.org/bot"
Const TOKEN = "5657164377:AAFyybu06zS5_o3ge__gT2XJCh3tqhHIbww"
Const METHOD_NAME = "/sendPhoto?"
Const CHAT_ID = "714106364"

Const FOLDER = "C:\Users\Pertfect\Pictures\"
Const JPG_FILE = "monkey.png"

Dim data As Object, key
Set data = CreateObject("Scripting.Dictionary")
data.Add "chat_id", CHAT_ID

' generate boundary
Dim BOUNDARY, s As String, n As Integer
For n = 1 To 16: s = s & Chr(65 + Int(Rnd * 25)): Next
BOUNDARY = s & CDbl(Now)

Dim part As String, ado As Object
For Each key In data.keys
    part = part & "--" & BOUNDARY & vbCrLf
    part = part & "Content-Disposition: form-data; name=""" & key & """" & vbCrLf & vbCrLf
    part = part & data(key) & vbCrLf
Next
' filename
part = part & "--" & BOUNDARY & vbCrLf
part = part & "Content-Disposition: form-data; name=""photo""; filename=""" & JPG_FILE & """" & vbCrLf & vbCrLf

' read jpg file as binary
Dim jpg
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1 'binary
ado.Open
ado.LoadFromFile FOLDER & JPG_FILE
ado.Position = 0
jpg = ado.read
ado.Close

' combine part, jpg , end
ado.Open
ado.Position = 0
ado.Type = 1 ' binary
ado.Write ToBytes(part)
ado.Write jpg
ado.Write ToBytes(vbCrLf & "--" & BOUNDARY & "--")
ado.Position = 0

Dim req As Object, reqURL As String
Set req = CreateObject("MSXML2.XMLHTTP")
reqURL = URL & TOKEN & METHOD_NAME
With req
    .Open "POST", reqURL, False
    .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & BOUNDARY
    .send ado.read
    MsgBox .responseText
End With

結束子

Function ToBytes(str As String) As Variant

Dim ado As Object
Set ado = CreateObject("ADODB.Stream")
ado.Open
ado.Type = 2 ' text
ado.Charset = "_autodetect"
ado.WriteText str
ado.Position = 0
ado.Type = 1
ToBytes = ado.read
ado.Close

結束 Function