evertonlb

Resolvido... achei que não era possível, mas pode ser feito desta forma:
LOCAL cCodigo := "00001" LOCAL cNome := "Marcio Augusto" LOCAL cSexo := "M" LOCAL aResultado := Hash() aResultado := hb_JSonEncode( { "codigo"=>cCodigo, "nome"=>cNome, "sexo"=>cSexo }, .T. )  

Isso é um hash e dps transformado em JSON
esse codigo abaixo:
aResultado := hb_JSonEncode( { "codigo"=>cCodigo, "nome"=>cNome, "sexo"=>cSexo }, .T. ) é o mesmo que fazer isso:
hDados := Hash()   hDados[ "codigo"] := cCodigo hDados[ "nome"] := cNome hDados[ "sexo"] := cSexo   aResultado := hb_JSonEncode( hDados,  .T. )  
em aResultado é uma string do tipo json
{     "codigo": "00001",     "nome": "Marcio Augusto",     "sexo": "M" }  

E qdo for restaurado e cair na mão do programador?
Se ele vazar os dados vc se ferrou 
A poha não tem besteira, se vc acha isso é pq ainda não entendeu a lei.
Vc pode até achar q a lei é exagerada, desnecessário, cheia de frescura e mais uma série de coisas que até concordo, mas falar q só colocar senha na hora do backup resolve vc está bem por fora....

Se poder fuja do SQLRDD, use comandos SQL nativo, tem as lib do próprio xHarbour/harbour também pra uso com SQL direto, no Harbour tem o SQLMIX que aceita alguns comando xbase e o resto SQL.

Boa tarde. eu escolheria ficar nativo. nessa sua versão tem isso. dê uma olhada em todos os fontes maria*.prg, em mariainv.prg lhe dará todo o suporte necessário pra o CRUD.

Boas práticas de hj  é sobre pesquisa INCREMENTAL em TBrowse com uso BackGound -  Rotina em segundo plano.
Tenho interesse por processamento paralelo e BackGround, o primeiro não consegui ainda, sei que tem parâmetros para incluir na compilação, mas não deu certo, o segundo consegui, no caso a rotina abaixo está rodando tbrowse() em uma tabela 'temp' indexada por nome, ao precionar F3 abre get para digitar e o conteúdo GET vai "Refresh() ando"  no Browse.
Se curtiu tecle "Joinha" 
 
oTB:ForceStable() nKEY := Inkey(0) IF nKEY == K_ESC EXIT ELSEIF nKEY == K_F3 /*processamento em segundo plano*/ HB_IdleAdd( {|| HB_BackGroundRun() } ) nTask := HB_BackGroundAdd( {|| RefreshTB(oTB) }, 1000 ) SET BACKGROUND TASKS ON /*------------------------------*/ cChave := Space(35) //BOX3DOF(14,16,18,58) @ 14,16 clear to 18,58 DispBox(14,16,18,58,2,"n/b") @ 16,20 GET cChave PICT "@!" READ HB_BackGroundDel( nTask ) oTB:RefreshAll() Endif **---------------------------------------------------------------------- Function RefreshTB(oTB) //fica rodando BackGround **---------------------------------------------------------------------- Local cTela,oGet:=GetActive() Static cLast := '' If HB_IsObject(oGet) .and. cLast != oGet:buffer cTela := SaveScreen(14,16,18,58) TEMP->(DBSEEK(oGet:buffer,.T.)) oTB:RefreshAll() oTB:ForceStable() Restscreen(14,16,18,58,cTela) cLast := oGet:buffer oGet:SetFocus() Endif Return .t. xHarbour/Harbour, FiveWin, SqlRdd e Pelles C -  Editor xEdit

Ai povo.. a coisa qdo aperta a gente tem que se virar né?? Agora além de programar durante as noites e meia madrugada, estou trabalhando numa Telecom.. 
Temos uma solução bem legal pra envio de SMS, integra via API, e a ferramenta de envio conta com um CRM, qdo uma mensagem é enviada essa info vai pra uma time line, se quiser responder de dentro do "DisparoPro", pode ser feito com um box.. o lance vira um Chat praticamente. rsrsrsrsrsr  Não há custo algum de integração, claro.. a única coisa que vendemos são os SMS mesmo...  
se alguém tem algum interesse ou dúvida, (49)99984-3663 WhatsApp
 

E como fez com o WTS e Windows 10 ou Servers 2012, 2016, 2019? 
 

O problema sempre vai esbarrar que o DBF tem que transitar inteiro para a outra ponta da rede. Sendo locais conectados via internet isso vai tornar lento sempre.
A solução pra melhorar isso só se for SQL e usar comandos SQL e não como uma rdd (skip/loop/dbseek/etc)
 
 

Eu uso HAMACHI até hoje para fazer teste de conexões e às vezes apresentações. O Hamachi não é lento meu amigo, o caso aí é o DBF (conforme o eMotta disse). A solução dfinitiva é ir para SQL.

Amiguinhos
BTNGET.CH
/* * $Id: btnget.ch,v 1.1 2000/11/20 20:45:09 RRamirez Exp $ */ #ifndef TBTNGET_CH #define TBTNGET_CH #define CGET TBTNGET #define TBTNGET BTNGET #xcommand REDEFINE BTNGET [ <oGet> VAR ] <uVar> ; [ ID <nId> ] ; [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ VALID <ValidFunc> ] ; [ PICTURE <cPict> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ FONT <oFont> ] ; [ CURSOR <oCursor> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; [ <resource: BUTTON NAME, RESNAME, RESOURCE> <cResName> ]; [ <bact: BUTTON ACTION, ACTION> <uAction> ] ; => ; [ <oGet> := ] TBtnGet():ReDefine( <nId>, bSETGET(<uVar>), <oDlg>,; <nHelpId>, <cPict>, <{ValidFunc}>, <nClrFore>, <nClrBack>,; <oFont>, <oCursor>, <cMsg>, <.update.>, <{uWhen}>,; [ \{|nKey,nFlags,Self| <uChange> \}], <.readonly.>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, [<cResName>], [<{uAction}>]) #command @ <nRow>, <nCol> BTNGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ PICTURE <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <pass: PASSWORD> ] ; [ <lNoBorder: NO BORDER, NOBORDER> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ <resource: BUTTON NAME, RESNAME, RESOURCE> <cResName> ]; [ <bact: BUTTON ACTION, ACTION> <uAction> ] ; => ; [ <oGet> := ] TBtnGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; <.pass.>, [<.lNoBorder.>], <nHelpId>, [<cResName>],[\{|Self| <uAction>\}] ) #command @ <nRow>, <nCol> BTNGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ PICTURE <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; => ; [ <oGet> := ] TBtnGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; .f., .f., <nHelpId>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> ) #endif BTNGET CLASS
*-- PROGRAM FILE ------------------------------------------------------- * Application: Addon for FiveWin * Description: TBtnGet - Colored TGet class with button * File Name: tbtnget.prg * Author: Ricardo Ramirez Tester: Ricardo Ramirez * Date created: 1998-01-01 Date updated: þ2001-03-26 * Time created: 8:17:12PM Time updated: þ16:028:17M * Copyright: (c) 1998-2000 by Punto-Co * * $Id: btnget.prg,v 1.4 2001/08/10 18:12:21 RRamirez Exp $ * * Compliments of: * George Georguiev *----------------------------------------------------------------------- #include "FiveWin.ch" #define GWL_STYLE -16 #define GWL_EXSTYLE -20 #define DS_3DLOOK 4 #define SM_CYVSCROLL 20 CLASS TBtnGet FROM TGet DATA bAction, cResName, oBtn, lBtnORBmp DATA nClrPFoText, nClrPFoPane, nClrDef DATA nBmpWidth, bTmpValid DATA nClrFocusText, nClrFocusPane // added. There was erased from FW 2.2c METHOD ClassName() INLINE "TGET" METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, ; bValid, nClrFore, nClrBack, oFont, lDesign, oCursor, ; lPixel, cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; lReadOnly, lPassword, lNoBorder, nHelpId, cResName, ; bAction, lSpinner, bUp, bDown, bMin, bMax, nBmpWidth ) ; CONSTRUCTOR METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, ; nClrFore, nClrBack, oFont, oCursor, cMsg, lUpdate, ; bWhen, bChanged, lReadOnly, lSpinner, bUp, bDown, bMin, ; bMax, cResName, bAction ) CONSTRUCTOR METHOD Default() METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() METHOD SetIniClr() METHOD Move() METHOD CalcDims( nTop, nLeft, nWidth, nHeight ) END CLASS METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,; nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel, cMsg,; lUpdate, bWhen, lCenter, lRight, bChanged, lReadOnly,; lPassword, lNoBorder, nHelpId, cResName, bAction, lSpinner,; bUp, bDown, bMin, bMax, nBmpWidth ) CLASS TBtnGet Super:New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, ; bValid, nClrFore, nClrBack, oFont, lDesign, oCursor, ; lPixel, cMsg, lUpdate, bWhen, lCenter, lRight, bChanged, ; lReadOnly, lPassword, lNoBorder, nHelpId, lSpinner,; bUp, bDown, bMin, bMax ) DEFAULT nBmpWidth := 17 ::nStyle := nOr( ::nStyle, ES_MULTILINE ) ::bAction := bAction ::cResName := cResName ::lBtnORBmp := .F. ::nBmpWidth := nBmpWidth ::SetIniClr() Return Self METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, nClrFore,; nClrBack, oFont, oCursor, cMsg, lUpdate, bWhen, ; bChanged, lReadOnly, lSpinner, bUp, bDown, bMin, ; bMax, cResName, bAction, nBmpWidth ) CLASS TBtnGet Super:ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, ; nClrFore, nClrBack, oFont, oCursor, cMsg, lUpdate, ; bWhen, bChanged, lReadOnly, lSpinner, bUp, bDown, ; bMin, bMax ) DEFAULT nBmpWidth := 22 ::nStyle := nOr(::nStyle, ES_MULTILINE ) ::bAction := bAction ::cResName := cResName ::lBtnORBmp := .F. ::nBmpWidth := nBmpWidth ::SetIniClr() SetWindowLong( ::hWnd, GWL_STYLE, nOr( GetWindowLong( ::hWnd, GWL_STYLE ) , ES_MULTILINE ) ) Return Self METHOD Default() CLASS TBtnGet local nRectLen, l3Dlook Local nTop, nLeft, nWidth, nHeight IF empty( ::bAction ) Return Nil ENDIF IF !lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_MULTILINE ) //MsgStop("Sorry, but you need to define the ID " + ltrim( str( ::nId ) ) + " as MULTILINE ") endif if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ) , ES_MULTILINE ) //MsgInfo("Si soy") else //MsgInfo("no soy") Endif //SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ) , ES_MULTILINE ) ) nRectLen := ::CalcDims( @nTop, @nLeft, @nWidth, @nHeight ) ::oBtn := TBtnDown():New( nTop, nLeft, nWidth, nHeight, ; ::cResName,, ::cResName,, {|| Self:SetFocus(), ; eval( ::bAction ) }, Self,"",, .F., .F.,"", ,, , .F. ) ::bKeyDown := { | nKey | IIF( nKey == VK_F3, eval( ::bAction ), IIF( nKey == VK_F2, TheHelp( ::nId ), "" ) ) } ::oBtn:bGotFocus := {|| ::bTmpValid := ::bValid, ::bValid := nil, ; ::oWnd:nLastKey := 0 } ::oBtn:bLostFocus := {|| ::bValid := ::bTmpValid } ::oBtn:lTransparent:=.t. ::oBtn:SetColor( RGB(255,255,255), RGB(255,255,255) ) GetBtn( ::hWnd, nRectLen ) Return Nil METHOD SetIniClr() CLASS TBtnGet ::nClrFocusText := nRGB(0,0,0) ::nClrFocusPane := nRGB(255,255,255) // nRGB(243,250,200) ::nClrPFoText := ::nClrText ::nClrPFoPane := ::nClrPane // ::bGotFocus := {|| ::SetColor( ::nClrFocusText, ::nClrFocusPane) } ::bLostFocus := {|| ::SetColor( ::nClrPFoText , ::nClrPFoPane ) } Return Self METHOD Move( nTop, nLeft, nWidth, nHeight, lRepaint ) CLASS TBtnGet Local nRectLen Super:Move( nTop, nLeft, nWidth, nHeight, lRepaint ) IF ::oBtn != Nil nRectLen := ::CalcDims( @nTop, @nLeft, @nWidth, @nHeight ) ::oBtn:Move( nTop, nLeft, nWidth, nHeight ) ENDIF Return Nil METHOD CalcDims( nTop, nLeft, nWidth, nHeight ) CLASS TBtnGet Local nRectLen nRectLen := ::nBmpWidth + 4 IF lAnd( GetWindowLong( ::oWnd:hWnd, GWL_STYLE ), DS_3DLOOK ) IF empty( ::cResName ) nLeft := ::nWidth() - 16 nWidth := 22 else nLeft := ::nWidth() - 26 nWidth := 22 endif nTop := 0 nHeight := ::nHeight() - 4 else IF empty( ::cResName ) nLeft := ::nWidth() - 15 nWidth := 14 Else nLeft := ::nWidth() - 25 nWidth := 22 ENDIF nTop := 1 nHeight := ::nHeight() - 2 ENDIF IF empty( ::cResName ) nRectLen -= 9 endif if ::oVScroll != Nil nLeft -= GetSysMetrics( SM_CYVSCROLL ) nLeft++ endif Return nRectLen Exemplo:

#include "btnget.ch" ... function main()         DEFINE DIALOG oDlgPainel RESOURCE "dlgPainel" //BRUSH oBrush //TRANSPARENT // STYLE WS_POPUP         REDEFINE BTNGET   oCtrl9014 VAR dCtrl9014 ID 9014 WHEN lCtrl9007 ;             RESOURCE "calen" OF oDlgPainel SPINNER ;             ON UP   (++dCtrl9014,oCtrl9014:Refresh(),nCtrl9009:=3,oCtrl9009:Refresh(),oCtrl9101:Enable()) ;             ON DOWN (--dCtrl9014,oCtrl9014:Refresh(),nCtrl9009:=3,oCtrl9009:Refresh(),oCtrl9101:Enable()) ;             ACTION (aRect       := GetCoors(oCtrl9014:hWnd),;                     dCtrl9014   := FwCalendar(dCtrl9014,aRect[1],aRect[4],oDlgPainel),;                     oCtrl9014:Refresh()) ...

Atualização, antes tinha um estouro no vetor de consulta de saldo, agora a consulta ta bacana, verifica as respostas dos SMS, abre uma janela com os filtros de telefone e data na hora da consulta, e verifica se a Internet está ativa.. Acho que tudo o que precisam para ver a DisparoPro funcionando integrada, está ai.
https://www.4shared.com/s/fRO5Md409ea 
Att.
Everton

praticamente do mesmo jeito.... basta colocar comando ACTION (sua função) BITMAP "sua Bitmap para botao"

Pessoal, é meu trabalho vender SMS, então peço a gentileza de que na hora de fazerem os cadastros e recargas, falarem comigo antes..
Por favor!
 
Att. 
Everton
 

Pessoal, é meu trabalho vender SMS, então peço a gentileza de que na hora de fazerem os cadastros e recargas, falarem comigo antes..
Por favor!
 
Att. 
Everton
 

Bom dia meus amigos...  Com uma ajuda do kapiaba e Vagner Nunes, que me deu um baita norte, concluí a integração com a DisparoPro..  To com os códigos ainda muito sujos.. vou dar uma limpada e comentar para deixar mais inteligível... Mas tá mandando SMS e pegando os retornos que é uma belezura. Até pensei em fazer uma LIB para ajudar quem não tem o xHb ou Hb atualizados. Nunca fiz isso, outro aprendizado!!  Depois posto umas imagens!..  Se alguém quiser os fontes, me passa o e-mail ( evertonlb@gmail.com )  que eu envio hj a noite!
Att.
Everton  
 
 
 
 

Agora sim...  Tá ai a cara!!
https://screenshot.net/pt/xlpkptx
 

Bom dia meus amigos...  Com uma ajuda do kapiaba e Vagner Nunes, que me deu um baita norte, concluí a integração com a DisparoPro..  To com os códigos ainda muito sujos.. vou dar uma limpada e comentar para deixar mais inteligível... Mas tá mandando SMS e pegando os retornos que é uma belezura. Até pensei em fazer uma LIB para ajudar quem não tem o xHb ou Hb atualizados. Nunca fiz isso, outro aprendizado!!  Depois posto umas imagens!..  Se alguém quiser os fontes, me passa o e-mail ( evertonlb@gmail.com )  que eu envio hj a noite!
Att.
Everton  
 
 
 
 

Se não conseguir agora... kkkkkkkkkkkkkkkkkk
xHarbour Language Reference Guide
https://code.google.com/archive/p/santysoft/downloads
http://www.marinas-gui.org/projects/harbour_manual/
http://www.fivetechsoft.com/harbour-docs/harbour.html
https://pt.scribd.com/doc/61362967/xHarbour-Language-Reference-Guide
https://www.xharbour.com/store/p33/OrderDocs.html
https://sourceforge.net/p/xharbour/mailman/message/16233246/
 
 

Harbour
https://drive.google.com/open?id=1xsL27I3uM6z7B2EjMArcIybSqi7e2sF6
xharbour
https://drive.google.com/open?id=1lpK3Jily_Nfsdj_-JOdqRsCOO_r801KK
 
 

To mexendo.. pretendo fazer umas funções facilitando o envio e retorno dos SMS.. assim que estiver pronto eu libero os PRG´s.
 

Perdi não.. achei um erro no FW.. quem perdeu foi o Linhares! hahahaha
Cara.. to compilando! kkkkk 
Agora começo com o tal JSon...   

ON RESIZE oBmp:Center()  --   Isso que me atrapalhava...
 

Johny, johny... "Cérebro de minhoca"?  Não subestime a capacidade do colega.. é feio assim! kkkkkk   
Não travou o programa nem o mouse.. e muito menos meu cérebro de minhoca!!!  O mouse anda.. e clica em outras coisas ao redor do programa.. as tecas funcionam e com o TAB eu navego do software.. se eu colocar o BMP atras de um Group somente, NESTE group o mouse não clica.. mas nos outros get´s, e Btn ele clica normalmente... e em todas essas situações meu cérebro de minhoca continua funcionando...  Falando em "cérebro de minhoca" .. lembrei de você há alguns dias! kkkkkkkkkk

kkkk.. na boa... to mexendo no envio de SMS