Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: DynCall no Protheus: Uma Nova Era na Integração com C/C++

_Créditos das imagens: ChatGPT 🚀 **DynCall no Protheus: Uma Nova Era na Integração com C/C++** Do meu ponto de vista, um dos recursos mais interessantes na nova versão do Protheus "Onça Preta" é a possibilidade de uso do **DynCall**. A linguagem AdvPL/TLPP, utilizada no Protheus, pode ser considerada um "superconjunto" de Clipper com FiveWin, mas com características e funcionalidades específicas voltadas para o ecossistema TOTVS. Um dos recursos marcantes do Clipper e de linguagens padrão xBase, como Harbour, é a possibilidade de incorporar código C/C++ diretamente no código-fonte. Até então, o Protheus não suportava isso nativamente. No entanto, com a introdução do **DynCall**, é possível simular essa integração ao carregar e executar funções de bibliotecas dinâmicas (DLLs) escritas em C ou C++. A seguir, comparamos os recursos das linguagens xBase padrão (exemplificadas pelo Harbour) com a implementação no Protheus via DynCall e apresentamos exemplos dos nov...

Conexão automática ao Claro3G

"Script" para Conexão automática ao Claro3G utilizando
Windows® PowerShell®
  • Baixe e instale o Windows® PowerShell®;
  • Altere a configuração do programa Mobile Partner® (utilizado para efetuar a conexão do Claro3G) conforme segue:

Selecione o Menu "Ferramentas\Opções"

na aba "Geral" marque as opções iniciar como na imagem acima e clique em "OK"

  • Copie o código/"script" abaixo e, utilizando um editor de textos de sua preferência (Notepad, Notepad++ ou Edit, etc.), salve-o com a extensão .ps1 (ex.: ConnectClaro3G.ps1);
//se nome do processo for 'Mobile Partner'

[string]$sA = get-process | select-string 'Mobile Partner';
[byte]$bAttempt = 0;
while ( ( ++$bAttempt -le 50 ) -and !( $sA -match 'Mobile Partner' ) )
{
start-sleep 2;
$sA = get-process | select-string 'Mobile Partner';
}
if ( $sA -match 'Mobile Partner' )
{
rasdial CLARO;
}

//ou se nome do processo for 'Claro'

[string]$sA = get-process | select-string 'Claro';
[byte]$bAttempt = 0;
while ( ( ++$bAttempt -le 50 ) -and !( $sA -match 'Claro' ) )
{
start-sleep 2;
$sA = get-process | select-string 'Claro';
}
if ( $sA -match 'Claro' )
{
rasdial CLARO;
}

  • Através do Windows® Explorer altere a propriedade do arquivo salvo conforme as figuras abaixo:
com o botão "direito" do "mouse" selecione propriedades
na opção "Abre com:" clique no botão "Alterar"
Escolha o programa "PowerShell.EXE"

crie um atalho em "Inicializar" para que o "Script" possa iniciar após a carga do Windows®

  • Para que o "script" possa ser executado faz-se necessário autoriza-lo através do Windows® PowerShell®, sendo assim, execute o Windows® PowerShell® e digite o seguinte comando: get-help about_signing. Esse comando irá listar as opções de "Diretivas de Assinatura e de Execução" de "Script", leia-as atentamente. Mas se quiser pular esse passo (eu não recomendo) digite o seguinte comando no Windows® PowerShell®: Set-ExecutionPolicy Unrestricted. Esse comando fará que qualquer "Script" seja executado em sua máquina (mas atente para os ítens de segurança listados à partir do comando get-help about_signing).
  • Pronto, seu Claro3G será executado e se conectará automaticamente assim que o sistema operacional acabar de ser carregado.


Comentários

Postagens mais visitadas