When browsing the sources of the hbtelegram class
https://github.com/riztan/hbtelegram/bl ... _class.prg, it seems that we do not encode the image file bytes, but only provide the full path to the file that we upload to the server.
Code: Select all
METHOD sendPhoto (uChatId, cCaption, cImagePath, oMsg, hOptionals)
Okey. I've looked at this class in more detail, and it doesn't allow file uploads using multipart/form-data required for file upload from computer.
https://core.telegram.org/bots/api#sendphoto
You have to build the request yourself, it should look something like this:
Code: Select all
cChat_id := oMsg:chat:id /* Chat ID */
cCaption := "Any caption"
cPhotoFile := "c:\bot_javier\image.png"
boundary:='------' + hb_StrToHex ( hb_TtoC( hb_DateTime(), 'YYYYMMDDhhmmssfff' ) )
cFormBody:='--' + boundary + CRLF
cFormBody+='Content-Disposition: form-data; name="chat_id"' + CRLF + CRLF
cFormBody+= cChat_id + CRLF
cFormBody:='--' + boundary + CRLF
cFormBody+='Content-Disposition: form-data; name="caption"' + CRLF + CRLF
cFormBody+= cCaption + CRLF
cFormBody+='--' + boundary + CRLF
cFormBody+='Content-Disposition: form-data; name="photo"; filename="' + hb_FNameNameExt ( cPhotoFile ) + '"' + CRLF
SWITCH Upper(hb_FNameExt ( cPhotoFile ))
CASE "JPG"
cContentType:='image/jpeg'
EXIT
CASE "JPEG"
cContentType:='image/jpeg'
EXIT
CASE "BMP"
cContentType:='image/bmp'
EXIT
CASE "PNG"
cContentType:='image/png'
EXIT
OTHERWISE
cContentType:='image/jpeg'
END SWITCH
cFormBody += 'Content-Type: ' + cContentType + CRLF + CRLF
cFormBody += FILESTR( cPhotoFile ) + CRLF
cFormBody+='--' + boundary + '--' + CRLF
aHeaders := { "Content-Length: " + Str(Len(cFormBody)) , ;
"Content-Type: " + "multipart/form-data; boundary=" + boundary }
curl_global_init()
pCurl := curl_easy_init()
/* Specify the Header data */
curl_easy_setopt( pCurl, HB_CURLOPT_HTTPHEADER, aHeaders)
curl_easy_setopt( pCurl, HB_CURLOPT_URL, oBot:cUrl + "sendPhoto" )
curl_easy_setopt( pCurl, HB_CURLOPT_FOLLOWLOCATION, .T. )
curl_easy_setopt( pCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )
curl_easy_setopt( pCurl, HB_CURLOPT_DOWNLOAD )
curl_easy_setopt( pCurl, HB_CURLOPT_DL_BUFF_SETUP )
curl_easy_setopt( pCurl, HB_CURLOPT_POST, .T. )
curl_easy_setopt( pCurl, HB_CURLOPT_POSTFIELDSIZE, LEN( cFormBody ) )
curl_easy_setopt( pCurl, HB_CURLOPT_POSTFIELDS, cFormBody )
nResp := curl_easy_perform( pCurl ) /* Do everything */
/* Look at execute method class TLGRMBOT todo get response or catch errors */
I haven't tested so it's just a tip, I'm not using this class and I'm not going to be yet.
PS.
This class seems underdeveloped. See for example the :sendVoiceFile method. It uses the external curl command instead of the native libcurl commands.
