TWhatsApp

Source: source/classes/twhatsapp.prg

Hierarchy: TWhatsApp (standalone class, no inheritance)

TWhatsApp is a WhatsApp Cloud API client that communicates with Meta's Business Platform via HTTPS requests using the cURL library. It requires a Meta Business Account, a registered phone number ID, and a permanent system access token generated from the Meta App Dashboard. All message types are sent as JSON payloads through the Graph API.

Key DATA Members

DATA	Type	Default	Description
`cToken`	Character		Bearer access token for API authentication
`cPhoneId`	Character		Sender phone number ID (Meta numeric ID, not the phone number)
`cVersion`	Character	`"v18.0"`	Graph API version string
`cBaseUrl`	Character	`"https://graph.facebook.com"`	Base URL for all API calls
`cResponse`	Character		Raw JSON response from the last API call
`nError`	Numeric	`0`	cURL error code from the last operation
`nHttpCode`	Numeric	`0`	HTTP status code from the last response

Methods

Method	Description
`New( cToken, cPhoneId, cVersion )`	Constructor. Initializes cURL handle and stores credentials. Optionally sets API version.
`End()`	Clean up the cURL handle. Call when done with the object.
`SendText( cTo, cMsg, lPreviewUrl )`	Send a plain text message. `lPreviewUrl` enables link preview generation.
`SendTemplate( cTo, cName, cLang, aBodyParams )`	Send a pre-approved message template with optional body parameter values.
`SendImage( cTo, cLinkOrId, cCaption )`	Send an image by URL or previously uploaded media ID.
`SendDocument( cTo, cLinkOrId, cFilename, cCaption )`	Send a document by URL or media ID with optional filename and caption.
`SendAudio( cTo, cLinkOrId )`	Send an audio file by URL or media ID.
`SendVideo( cTo, cLinkOrId, cCaption )`	Send a video by URL or media ID with optional caption.
`SendLocation( cTo, nLat, nLong, cName, cAddress )`	Send a location pin with latitude, longitude, and optional name/address.
`UploadMedia( cFileName, cMimeType )`	Upload a media file to WhatsApp servers. Returns the media ID string, or nil on failure.
`DownloadMedia( cMediaId, cTargetFile )`	Download a media file from WhatsApp servers and save to disk. Returns .T. on success.
`GetMessageId()`	Extract the message ID from the last API response. Returns empty string on failure.
`GetError()`	Extract the error message from the last API response. Returns empty string if no error.

Example: Send Text Message

#include "FiveWin.ch"

function Main()

   local oWA := TWhatsApp():New( "EAAx...token", "123456789", "v18.0" )
   local cResp, cMsgId

   // Send a simple text message
   cResp := oWA:SendText( "5215512345678", "Hello from FiveWin!" )

   cMsgId := oWA:GetMessageId()
   if ! Empty( cMsgId )
      MsgInfo( "Message sent. ID: " + cMsgId )
   else
      MsgInfo( "Error: " + oWA:GetError() )
   endif

   oWA:End()

return nil

Example: Template Message

#include "FiveWin.ch"

function SendTemplate()

   local oWA  := TWhatsApp():New( "EAAx...token", "123456789" )
   local aParams := { "John", "FWH 26.05", "Monday" }

   // "welcome_message" must be pre-approved by Meta
   oWA:SendTemplate( "5215512345678", "welcome_message", "en_US", aParams )
   oWA:End()

return nil

Notes