Send Message Whatsapp With Lazarus
With this component we can easily send WA messages using Pascal language.
procedure TFrmMain.BtnSendClick(Sender: TObject);
begin
if wa1.Conected then
begin
wa1.SendMsg(enohp.Text, NormalizeString(mpesan.Text));
end;
end;
Views: 19
