Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode :: Comparando Implementações Harbour e TLPP para o Desafio Longest Palindromic Substring

_Créditos das imagens: ChatGPT_ ### LeetCode :: Comparando Implementações Harbour e TLPP para o Desafio Longest Palindromic Substring Resolver o problema do [Longest Palindromic Substring](https://leetcode.com/problems/longest-palindromic-substring/description/) é um exercício clássico de programação, que desafia desenvolvedores a encontrar a maior substring palindrômica dentro de uma string. Recentemente, exploramos soluções tanto em Harbour quanto em TLPP (Total Language Protheus Programming). Neste artigo, comparamos as implementações nessas duas linguagens, destacando suas semelhanças, diferenças e funcionalidades específicas. #### Implementações em Harbour ##### Versão 5.1 Essa solução utiliza a técnica de expansão a partir do centro do palíndromo. Cada caractere ou par de caracteres consecutivos é considerado um possível "centro". O algoritmo expande em ambas as direções enquanto os caracteres forem iguais, retornando o maior palíndromo encontrado. ##### Versão 5....

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