WhatsApp 发送消息

所有 API 调用必须使用访问令牌进行认证。 开发者可以使用在应用仪表盘 > WhatsApp > 入门指南中生成的访问令牌认证 API 调用

 

API 调用以字符串形式返回消息 ID。

文本消息

调用方法 SendMessageText 并传入以下参数：

 

• aTo：电话号码
• aText：消息的文本。

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageText('34605889421', 'Hello from sgcWebSockets!!!');

 

图像消息

调用方法 SendMessageImage 并传入以下参数：

 

• aTo：电话号码
• aLink：要发送的图像的 URL
• aCaption：图片标题（可选）。

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageImage('34605889421', 'https://www.media.com/image.png', 'logo');

 

 

文档消息

调用 SendMessageDocument 方法并传入以下参数：

 

• aTo：电话号码
• aLink：待发送文档所在的 URL
• aCaption：文档标题（可选）。
• aFileName：文件名（可选）。

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageDocument('34605889421', 'https://www.documents.com/file.txt', 'Document', 'file.txt');

 

音频消息

调用方法 SendMessageAudio 并传入以下参数：

 

• aTo：电话号码
• aLink：要发送的音频所在的 URL

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageAudio('34605889421', 'https://www.audio.com/audio.mp3');

 

视频消息

调用方法 SendMessageVideo 并传递以下参数：

 

• aTo：电话号码
• aLink：要发送的视频的 URL

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageVideo('34605889421', 'https://www.video.com/audio.mp4');

 

贴纸消息

调用方法 SendMessageSticker，并传入以下参数：

 

• aTo：电话号码
• aLink：要发送的贴纸所在的 URL

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageSticker('34605889421', 'https://www.stickers.com/sticker');

 

 

位置消息

调用 SendMessageLocation 方法，并传入以下参数：

 

• aTo：电话号码
• aLongitude：位置的经度。
• aLatitude： 位置的纬度。
• aName： 位置名称。
• aAddress：位置地址。仅在设置了 aName 时显示。

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageLocation('34605889421', '50.159305', '9.762686', 'My Location', 'My Address');

 

联系消息

调用方法 SendMessageContact 并传递以下参数：

 

• aTo：电话号码
• aName： 全名，通常显示的形式（必填）。
• aPhone：电话号码（可选）。
• aEmail：电子邮件地址（可选）。

 

oClient := TsgcWhatsApp_Client.Create(nil);
oClient.WhatsappOptions.PhoneNumberId := '107809351952205';
oClient.WhatsappOptions.Token := 'EAAO4OpgZAs98BAGj3nCFGr...ZB2t8mmLB2LRXJkte2Y5PMNh2';
oClient.SendMessageContact('34605889421', 'John Smith', '15550386570', 'john@mail.com');