Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código

_Créditos das imagens: ChatGPT **Título:** LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código **Introdução** Olá, entusiastas de Harbour/xBase e desafios de programação! Depois de explorarmos como mesclar duas listas ordenadas no [nosso post sobre o LeetCode 21](https://www.blacktdn.com.br/2025/03/blacktdn-leetcode-21-merge-two-sorted.html), vamos dar um passo adiante e enfrentar um problema um pouco mais complexo: o LeetCode 23 - Merge K Sorted Lists. Neste artigo, vamos desvendar uma implementação em Harbour/xBase para este desafio, demonstrando como podemos inteligentemente reutilizar a solução que já construímos para o problema 21. Veremos como a modularidade e a construção sobre soluções anteriores podem simplificar problemas mais complexos. **O Problema: LeetCode 23 - Merge K Sorted Lists** O desafio é o seguinte: dado um array (`aLists` em nossa implementação) contendo `k` listas encadeadas, onde cada lista já está ordenada em ordem cres...

Protheus :: apconnxcontrol.ocx, PowerShell e SendMessage para envio de Mensagem a Usuário Específico

No “post” anterior, Protheus :: apconnxcontrol.ocx & PowerShell – Forçando a Desconexão de Usuário, vimos como instalar o componente apconnxcontrol.ocx e consumi-lo via Windows PowerShell para “Forçar” a Desconexão de usuário específico. Veremos, agora, como usar o Método SendMessage para o envio de Mensagens.

Instale/Registre o compontente conforme descrito no “post” anterior. Através do PowerShell instancie um novo objeto COM e efetue a conexão ao Protheus.

#Instanciando um novo objeto com 
$TObj = New-Object -Com apconnxcontrol.apconnx;

#Definindo as variaveis para Conexao
$TEnv = "NDJ_01";
$TSrv = "127.0.0.1";
$TPort = 4321;
$TUser = "TOTVS";
$TPWD = "SIGA";

#Atribuindo as variaveis para Conexao às Propriedades do objeto
$TObj.Environment = $TEnv;
$TObj.Password = $TPWD;
$TObj.Port = $TPort;
$TObj.Server = $TSrv;
$TObj.User = $TUser;

#Conectando
$TObj.Connect();


image



Obtenha os usuários conectados







$TObj.GetUsers();









PS C:\Documents and Settings\marinaldo.jesus.NALDO-PC\Meus documentos> $TObj.GetUsers();
marinaldo.jesus;NALDO-PC;3712;
;2740;1769103725;naldo.jesus



image



image


e, agora, usando SendMessage (string, string, string, string, string) envie-lhe(s) uma mensagem.







$TObj.SendMessage('marinaldo.jesus','NALDO-PC','3712','','ola')




image



image



image


O exemplo acima foi executado no Protheus 10, mas serve também para a versão 11. Observe:


image 





$TObj.GetUsers();

image





$TObj.SendMessage('marinaldo.jesus','NALDO-NOTE-MVPC','1996','','message from PowerShell')

image

image

image

[]s
иαldσ dj

Comentários

Postar um comentário

Postagens mais visitadas