pengenalan
Dalam tutorial ini, kami akan mencipta contoh mudah untuk menghantar mesej melalui API WhatsApp menggunakan OCaml.
Mesej API WhatsApp Pertama Menggunakan OCaml
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/chat" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&body=WhatsApp API on UltraMsg.com works good&priority=10&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Imej
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/image" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&image=https://file-example.s3-accelerate.amazonaws.com/images/test.jpg&caption=image Caption&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Dokumen
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/document" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&filename=hello.pdf&document=https://file-example.s3-accelerate.amazonaws.com/documents/cv.pdf&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Audio
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/audio" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&audio=https://file-example.s3-accelerate.amazonaws.com/audio/2.mp3&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Suara
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/voice" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&audio=https://file-example.s3-accelerate.amazonaws.com/voice/oog_example.ogg&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Video
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/video" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&video=https://file-example.s3-accelerate.amazonaws.com/video/test.mp4&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Pautan
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/link" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&link=https://en.wikipedia.org/wiki/COVID-19&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Kenalan
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/contact" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&[email protected]&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Lokasi
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/location" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&address=ABC company \n Sixth floor , office 38&lat=25.197197&lng=55.2721877&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Hantar Vcard
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/vcard" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&vcard= BEGIN:VCARD\nVERSION:3.0\nN:lastname;firstname\nFN:firstname lastname\nTEL;TYPE=CELL;waid=14000000001:14000000002\nNICKNAME:nickname\nBDAY:01.01.1987\nX-GENDER:M\nNOTE:note\nADR;TYPE=home:;;;;;;\nADR;TYPE=work_:;;;;;;\nEND:VCARD&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)akhirnya, anda boleh melihat Dokumentasi dan Soalan Lazim API Whatsapp Penuh .