Este diretório contém exemplos de como usar a API WhatsApp SaaS com Delphi.
TWhatsAppAPI para comunicação com a APIWhatsAppAPI.pas ao seu projetouses
WhatsAppAPI;
var
API: TWhatsAppAPI;
Response: string;
begin
// Criar instância
API := TWhatsAppAPI.Create(
'https://seu-dominio.com', // Base URL
'seu-token-aqui', // Token da instância
'seu-session-id-aqui' // Session ID
);
try
// Enviar mensagem de texto
Response := API.SendTextMessage(
'5511999999999@c.us', // Número do WhatsApp
'Olá! Mensagem de teste' // Mensagem
);
WriteLn(Response);
finally
API.Free;
end;
end;
Programa console simples que demonstra:
Como compilar:
dcc32 ExemploUso.dpr
Como executar:
ExemploUso.exe
Interface gráfica com:
Nota: Você precisará criar o arquivo .dfm correspondente ou usar o Form Designer do Delphi.
https://seu-dominio.com/dashboard.htmlO número deve estar no formato:
código_do_país + número + @c.us
Exemplos:
5511999999999@c.us (55 = código do Brasil)11234567890@c.us (1 = código dos EUA)Sempre verifique o campo success na resposta JSON:
var
JSON: TJSONObject;
begin
JSON := TJSONObject.ParseJSONValue(Response) as TJSONObject;
try
if JSON.GetValue<Boolean>('success', False) then
WriteLn('Sucesso!')
else
WriteLn('Erro: ' + JSON.GetValue<string>('message', ''));
finally
JSON.Free;
end;
end;
Certifique-se de que o TIdSSLIOHandlerSocketOpenSSL está configurado corretamente e que as DLLs do OpenSSL estão disponíveis.
SendTextMessage: Enviar mensagem de textoSendImage: Enviar imagem (arquivo local)SendImageFromURL: Enviar imagem por URLSendDocument: Enviar documento/arquivoSendLocation: Enviar localizaçãoGetSessionStatus: Verificar status da sessãoIsRegisteredUser: Verificar se número está no WhatsAppGetContacts: Obter lista de contatosGetChats: Obter lista de chatsPara mais informações, consulte:
/api-docs