Funcionalidades Disponíveis
- Obter Todos os Grupos
- Listar Todos os Contatos do Grupo
- Enviar Mensagem para o Grupo
- Enviar uma Marcação Fantasma para o Grupo
Obter Todos os Grupos
Para obter uma lista de todos os grupos disponíveis, utilize a função ApiEuAtendo1.ObterGrupos.
Exemplo de Código
// Chamar a função para obter todos os grupos
ApiEuAtendo1.ObterGrupos;
// Evento disparado ao obter todos os grupos
procedure TForm9.ApiEuAtendo1ObterGrupos(Sender: TObject;
const Grupos: TGrupos);
var
i:Integer;
begin
i:=0;
memo1.Lines.Clear;
for I := 0 to Length(Grupos) - 1 do
begin
memo1.Lines.Add(grupos[I].ID);
memo1.Lines.Add(grupos[I].Owner);
memo1.Lines.Add(grupos[I].Desc);
memo1.Lines.Add(grupos[I].Subject);
memo1.Lines.Add('----------------------------');
end;
end;
Listar Todos os Contatos do Grupo
Para listar todos os contatos de um grupo específico, utilize a função ApiEuAtendo1.ObterMembrosGrupo(GroupJid, ErroMsg); passando o ID do grupo.
Exemplo de Código
procedure TForm9.Button14Click(Sender: TObject);
var
GroupJid, ErroMsg: string;
Membros: TGrupoMembros;
I: Integer;
MembroStr: string;
begin
memo1.Lines.Clear;
GroupJid := edtIdGrupo.Text; // Assume que edtGroupJid é um TEdit onde o ID do grupo é inserido
try
Membros := ApiEuAtendo1.ObterMembrosGrupo(GroupJid, ErroMsg);
if Length(Membros) > 0 then
begin
MembroStr := 'Membros do grupo: ' + sLineBreak;
for I := 0 to Length(Membros) - 1 do
begin
MembroStr := MembroStr + Format('ID: %s, Admin: %s', [Membros[I].ID, BoolToStr(Membros[I].Admin, True)]) + sLineBreak;
memo1.Lines.Add(MembroStr);
end;
end
else if ErroMsg <> '' then
ShowMessage('Erro ao obter membros do grupo: ' + ErroMsg)
else
ShowMessage('Nenhum membro encontrado para o grupo ' + GroupJid);
except
on E: Exception do
begin
ShowMessage('Erro ao obter membros do grupo: ' + E.Message);
end;
end;
end;
Enviar Mensagem para o Grupo
Para enviar uma mensagem para o grupo, utilize a função ApiEuAtendo1.EnviarMensagemParaGrupo, passando o ID do grupo e a mensagem.
Exemplo de Código
// Chamar a função para enviar uma mensagem para o grupo
procedure TForm9.EnviarMensagemParaGrupo;
var
ErrorMsg: string;
begin
if not ApiEuAtendo1.EnviarMensagemDeTexto(edtGroupID.Text, edtMensagem.Text, ErrorMsg) then
begin
ShowMessage('Erro ao enviar mensagem: ' + ErrorMsg);
end
else
begin
ShowMessage('Mensagem enviada com sucesso!');
end;
end;
Enviar uma Marcação Fantasma para o Grupo
A marcação fantasma é uma mensagem que é enviada sem que o remetente seja visível. Para enviar uma marcação fantasma, utilize a função ApiEuAtendo1.EnviarMarcacaoFantasma.
Exemplo de Código
// Chamar a função para enviar uma marcação fantasma para o grupo
procedure TForm9.Button19Click(Sender: TObject);
var
erro:String;
begin
if edtIdGrupo.Text <> '' then
ApiEuAtendo1.SendMessageGhostMentionToGroup(edtIdGrupo.Text,memoMensagemEnviar.Lines.text,erro);// SendMessageGhostMentionToGroup
if erro <> '' then
ShowMessage(erro);
end;
Tratamento de Erros
Certifique-se de que os IDs dos grupos e os contatos estejam corretos. Caso haja algum erro, a variável ErrorMsg
retornará uma descrição detalhada do erro para que você possa corrigi-lo.