Topic: How To use "WinHttp.WinHttpRequest.5.1" API Form Upload
In Postman test API post method Line Notify
text message and upload image
result
{"status":200,"message":"ok"}
Postman Code HTTP
POST /api/notify HTTP/1.1
Host: notify-api.line.me
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW
Authorization: Bearer 123456789
Content-Length: 296
------WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="message"
test
------WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="imageFile"; filename="/C:/Pic/D20230524T092936.png"
Content-Type: image/png
(data)
------WebKitFormBoundary7MA4YWxkTrZu0gW--
Postman Code curl
curl --location '[url]https://notify-api.line.me/api/notify[/url]' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--header 'Authorization: Bearer 123456789' \
--form 'message="test"' \
--form 'imageFile=@"/C:/Pic/D20230524T092936.png"'
IN MVD I'm Try use method "WinHttp.WinHttpRequest.5.1" Post And Upload Image File
IF Sendy Message Only It "OK"
but
IF Send Message + Upload Image Result Error
How To Edit Script ? Help Me Please
MyScript In MVD
var
WinHttpReq : Variant;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
url : String;
imageFile : String ;
token : String ;
body : Tstringlist ;
begin
body := Tstringlist.create ;
token := '123456789' ;
imageFile := 'imageFile=@"/C:/Pic/D20230524T092936.png"';
url := 'https://notify-api.line.me/api/notify' ;
WinHttpReq.Open('POST',url, False);
WinHttpReq.SetRequestHeader('ContentEncoding','UTF-8');
WinHttpReq.SetRequestHeader('Content-Type','application/x-www-form-urlencoded') ;
WinHttpReq.SetRequestHeader('Authorization','Bearer '+token) ;
Try
WinHttpReq.send('message="test"'+'\'+'imageFile=@"/C:/Pic/D20230524T092936.png"');
ShowMessage(WinHttpReq.ResponseText);
Except
Showmessage(ExceptionMessage) ;
End;
body.Free ;
end;
begin
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
end.
In
Easy For Beginner Student For Me