ecmsoft

Olá Kapiaba. Segue ribbon.ch e tribbon.prg que eu estou usando. Segue tb uma imagem do que acontece na tela. #ifndef _RIBBON_CH #define _RIBBON_CH /*----------------------------------------------------------------------------// //RIBONBAR ------------------------------------------------------------------------------*/ #xcommand DEFINE RIBBONBAR [ <oRBar> ] ; [ <of:OF, WINDOW> <oWnd> ] ; [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ; [ <act: ACTION, EXECUTE, ON CHANGE> <uAction> ] ; [ OPTION <nOption> ] ; [ HEIGHT <nHeight> ] ; [ TOPMARGIN <nTopMargin> ]; [ COLOR <nClrPane> ] ; [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ; [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ; => ; [<oRBar> := ] TRibbonBar():New( <oWnd>, [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ; <nOption>, , <nHeight>, <nTopMargin>, <nClrPane>, <nClrBoxOut>, <nClrBoxIn>, <nClrBoxSelOut>, <nClrBoxSelIn> ) /*----------------------------------------------------------------------------// //GROUP ------------------------------------------------------------------------------*/ #xcommand ADD GROUP [ <oGr> ] ; [ <of: RIBBONBAR, RIBBON > <oRBar> ]; [ <to: TO OPTION> <nOption> ]; [ PROMPT <cCaption> ]; [ WIDTH <nWidth> ]; [ ACTION <uAction> ] ; [ BITMAP <cBitmap> ] ; =>; [ <oGr> := ] <oRBar>:AddGroup( <nWidth>, <cCaption>, <nOption>, [{|Self|<uAction>}], <cBitmap> ) /*----------------------------------------------------------------------------// //GROUP ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> RBGROUP [ <oGr> ] ; [ <of: OF, WINDOW, DIALOG > <oWnd> ]; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ ACTION <uAction> ] ; [ BITMAP <cBitmap> ] ; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradSel> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; [ CAPTIONGRAD <aGradCaption> ]; [ DISABLEGRAD <aGradDisable> ]; [ DISABLECAPION <aDisableCap> ]; [ TEXTCOLOR <nClrTxt> ]; =>; [ <oGr> := ] TRBGroup():New( <oWnd>, <nRow>, <nCol>, <nHeight>, <nWidth>, ,; <cCaption>, [{|Self|<uAction>}],; <nClrBoxIn>, <nClrBoxOut>, <aGradSel>, ,; <aGradCaption>, <aGradDisable>, <aDisableCap> , ,; <oFont>, <cBitmap>, [<.lTrans.>], <nClrTxt> ) /*----------------------------------------------------------------------------// //SEPARATOR ------------------------------------------------------------------------------*/ #xcommand ADD SEPARATOR TO GROUP <oGr> ; [ <to: TO, COLUMN, COL> <nCol> ]; =>; <oGr>:AddSeparator( <nCol> ) /*----------------------------------------------------------------------------// //BUTTON ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> ADD BUTTON [ <oBtn> ] ; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, GROUP> <oGr> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] <oGr>:AddButton( <nRow>, <nCol>, <nHeight>, <nWidth>, <cCaption>,; [{|Self|<uAction>}], [ Upper(<(type)>) ], <{WhenFunc}>, ; <cBitmap>, [<.lBorder.>], <.lRound.>, [ Upper(<(layout)>) ], ; [<oPopup>], [<.lGrouping.>], [<.lFirstElm.>], [<.lEndElm.>], <cMsg>, [<nRound>],; [<nClrBoxIn>], [<nClrBoxOut>] ) /*----------------------------------------------------------------------------// //BUTTON ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> RBBTN [ <oBtn> ] ; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, DIALOG, WINDOW> <oWnd> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <lAdjust: ADJUST> ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ TOOLTIP <cToolTip> ]; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradiant> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] TRBtn():New( <nRow>, <nCol>, <nWidth>, <nHeight>, <cBitmap>,; [{|Self|<uAction>}], <oWnd>, <cMsg>, <{WhenFunc}>, <.lAdjust.>, ,; <cCaption>, <oFont>, [<.lBorder.>], [<.lRound.>],; [ Upper(<(layout)>) ], , <cToolTip>, , ,[ Upper(<(type)>) ], ; [<oPopup>], , , , , , , , ,[<.lGrouping.>], [<.lFirstElm.>], ; [<.lEndElm.>], [<.lTrans.>], [<aGradiant>], [<nClrBoxIn>], [<nClrBoxOut>], [<nRound>] ) #xcommand REDEFINE RBBTN [ <oBtn> ] ; [ ID <nID> ]; [ PROMPT <cCaption> ]; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, DIALOG, WINDOW> <oWnd> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <lAdjust: ADJUST> ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ TOOLTIP <cToolTip> ]; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradiant> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] TRBtn():Redefine( <nID>, <cBitmap>,; [{|Self|<uAction>}], <oWnd>, <cMsg>, <{WhenFunc}>, <.lAdjust.>, ,; <cCaption>, <oFont>, [<.lBorder.>], [<.lRound.>],; [ Upper(<(layout)>) ], , <cToolTip>, , ,[ Upper(<(type)>) ], ; [<oPopup>], , , , , , , , ,[<.lGrouping.>], [<.lFirstElm.>], ; [<.lEndElm.>], [<.lTrans.>], [<aGradiant>], [<nClrBoxIn>], [<nClrBoxOut>], [<nRound>] ) /*----------------------------------------------------------------------------// //BACKSTAGE ------------------------------------------------------------------------------*/ #xcommand DEFINE BACKSTAGE <oBackStage>; [ MAINWIDTH <nWidth> ]; => ; <oBackStage> := TBackStage():New( , , , , , [<nWidth>] ) #xcommand DEFINE BSSELECT [ <oOption> ] [ <of: OF, BACKSTAGE> <oBackStage> ] ; [ PROMPT <cCaption> ]; [ HEIGHT <nHeight> ] ; [ ACTION <uAction> ] ; [ <clrtext: COLORTEXT> <nClrText>[,<nClrTextOver>] ] ; [ GRADIENT <aGradOver> ]; [ COLORS <nClrStart>[,<nClrEnd>] ]; [ BORDER <nBorderClr> ]; [ LEFTMARGIN <nLeftMargin> ]; =>; [ <oOption> := ] <oBackStage>:AddOption( <cCaption>, [<nClrText>], <aGradOver>, 1, ; <nHeight>, <nClrStart>, [<nClrEnd>], <nBorderClr>, , ; <nLeftMargin>, [<nClrTextOver>], ,[{|Self, oOpt, nLastSelect |<uAction>}] ) #xcommand DEFINE BSBUTTON [ <oOption> ] [ <of: OF, BACKSTAGE> <oBackStage> ] ; [ PROMPT <cCaption> ]; [ BITMAP <cBitmap> ] ; [ HEIGHT <nHeight> ] ; [ ACTION <uAction> ] ; [ <clrtext: COLORTEXT> <nClrText>[,<nClrTextOver>] ] ; [ GRADIENT <aGradOver> ]; [ BORDER <nBorderClr> ]; [ LEFTMARGIN <nLeftMargin> ]; =>; [ <oOption> := ] <oBackStage>:AddOption( <cCaption>, [<nClrText>], <aGradOver>, 2, ; <nHeight>, , , <nBorderClr>, <cBitmap>, ; <nLeftMargin>, [<nClrTextOver>], ,[{|Self, oOpt, nLastSelect |<uAction>}] ) #xcommand SET BACKSTAGE <oBackStage> TO <oRBar>; => ; <oRBar>:SetBackStage( <oBackStage> ) #xcommand DEFINE QUICKBUTTON [ <of: OF, RIBBON> <oRibbon> ] ; [ <file: BITMAP, IMAGE> <cBmp1> ; [,<cBmp2>[,<cBmp3>[,<cBmp4>] ] ] ] ; [ ACTION <uAction> ] ; [ <lNoGrad: NOGRAD> ]; =>; <oRibbon>:QuickRoundBtn( <cBmp1>, [<cBmp2>], [<cBmp3>], [<cBmp4>],; [{|Self|<uAction>}], !<.lNoGrad.> ) #xcommand DEFINE QUICKACCESS [<oQuickAcc>] [ <of: OF, RIBBON> <oRibbon> ] ; [ LEFTMARGIN <nLeftMargin> ]; [ <lNoGrad: NOGRAD> ]; =>; [ <oQuickAcc> := ] <oRibbon>:QuickAccess( <nLeftMargin>, !<.lNoGrad.> ) #xcommand ADD BUTTON [ <oBtn> ] [ QUICKACCESS <oQuickAcc> ]; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ WHEN <WhenFunc> ] ; =>; [ <oBtn> := ] <oQuickAcc>:AddButton( <cBitmap>, [{|Self|<uAction>}], ; <{WhenFunc}> ) #endif tribbon.prg

Até então, eu utilizava o backstage da classe TRibbon normalmente no windows 10. Depois de uma atualização do Windows 10, após abrir o menu backstage, nenhuma DIALOG fica com foco, mesmo que eu feche o backstage, as DIALOG´s continuam sem foco, e o cursor não aparece. Dei uma olhada na classe, mas não consegui identificar o que pode ser. Alguém já se deparou com isso ? FW v10.12 + xHb 1.2.1 (6717)

Alguem conseguiu utilizar a SAT.DLL do Emulador SAT com xHarbour ou harbour ?

Você conseguiu contornar esse problema ?? estou na mesma situação...

Olá, estou precisando utilizar as funcões ZIP do xHarbour (HB_ZIP(), HB_UNZIP(), etc.). Porem, estou precisando delas em uma DLL. Tentei criar a DLL com as funções, através da pasta CONTRIB do xHarbour mais não consegui por falta de experiencia em criar DLL. Se alguem tiver essa DLL, favor me enviar.

Estou precisando acessar um servidor FTP. Porém, ele só aceita conexão utilizando os recursos SSL/TSL. Eu utilizo a Classe tIPClientFtp() para fazer o acesso. FTP não seguro, abre normalmente, porém, FTP com criptografia, eu consigo conexão, mas ele não deixa logar, pelo fato das informações não estarem criptografadas. Alguem já passou por isso ? Alguma ideia alternativa ? Lembrando que o FireFox e o Crhome conseguem abrir, porém, o IE não consegue !

As mudanças que eu fiz na classe, são substanciais. Não posso publicar a classe, pois não é gratuita. Além, do mais, não sei se a versão da classe que tenho é a única, ou tem alguma mais nova. Se o Gilmer autorizar, eu posso publicar aqui no fórum.

Houve uma mudança no HTML da página do portal nacional. Eu tive que fazer uma alteração na classe do Gilmer para funcionar com o novo HTML.

Verifique se o SOAP ToolKIt 3.0 foi removido ou desativado ou bloqueado. Tente instalá-lo novamente.

Eu utilizei o NODOSIMP.EXE. Gostei das opções que ele oferece, como: Selecionar a impressora e Preview.

WHERE campo IS NULL AND campo=' '

Tenho um aplicativo compilado em xHarbour puro, que imprime texto na porta LPT1. Gostaria de imprimir esse mesmo texto em uma impressora LX-300 USB. Exemplo: SET DEVICE TO PRINTER @1,1 SAY cTexto SET PRINTER TO

Será que se você compactar o arquivo imagem (ZIP), depois gravar no BD. Na hora de ler, descompacta. Talvez o tamanho diminua.

Estou usando o MSSOAP Toolkit 3.0. Está funcionado uma beleza ! Porém, eu tenho que instalar o Kit em todos os computadores dos meus clientes para funcionar o meu programa. Gostaria de instalar os arquivos do Kit Soap, através do instalador da minha aplicação. Se eu souber quais arquivos do kit são necessários, e em que lugar eles devem ser instalados, eu poderia colocá-los no meu instalador. Assim, não precisaria instalar o kit depois instalar a minha aplicação. Ou seja, ficaria tudo no mesmo instalador. obs: Eu uso apenas a classe SoapClient30 do kit

Acho que não tem jeito. Essa função não restaura o arquivo com a data e a hora original. Alguem conhece outra função para descompactar/compactar aquivos ?

Estou utilizando a função hb_UnZipFile() do xHarbour 1.2.1, porém, quando descompacta o arquivo, ele fica com a data da descompactação, e não com a data e hora original do arquivo. Exemplo: aquivo.zip => {teste.prg 15/05/2013 07:15} Quando descompacto o arquivo teste.prg, ele fica com a data atual 18/10/13, e não com a data original 15/05/13 Alguém sabe me informar se existe outra forma de descompactar retornando a data e hora original do arquivo ?

Como faço para criar um ícone na área de trabalho via código ? fw10.12 xHarbour 1.2.1

Vou atualizar meu FiveWin

Estou tentando identificar se o Windows é 64 bits. Estou usando a função IsWin64() Fw 10.12. Meu Windows é 64 bits, mas só retorna .F. Alguem conseguiu usar essa função ?

Estou usando a classe tOleauto para acessar um site, enviar um formulário e receber um XML. Dentro do XML que recebo vem um texto com acentuação, porém, aparece uma interrogação "?" no lugar das letras acentuadas e ainda "come" a letra da palavra seguinte: Exemplo: Em alguns instantes a recarga ser?nserida em seu Oi. D?s,ligue para *144. O correto seria: Em alguns instantes a recarga será inserida em seu Oi. Dúvidas,ligue para *144. Se eu enviar o formulário diretamente no navegador, o XML retorna acentuado certinho. Será que o problema está na classe tOleauto() ?

Você criou o objeto Manifest no Pells C ? Se não criou, talvez seja esse o problema. Segue os passos: Dentro do seu Resource, crie um objeto Manifest. Botão direito->New->Manifest. Salve, depois compile novamente o seu projeto.

Seria bom você postar o buildx.bat e a parte inicial de seu codigo fonte, onde chama a rotina principal. Talvez o problema esteja em um desses.

Valeu, Sergio. Funcionou !!

Preciso saber, via sistema, se um serviço está instalado no Windows. Tem alguma função que faça isso ?

Estou usando o comando a baixo para abrir uma conexão http. Quando conecto pela primeira vez dá tudo certo, porém, na segunda vez, dá o erro: Error MSXML2.XMLHTTP/3 DISP_E_MEMBERNOTFOUND: SEND. Quando abro novamente o sistema, funciona, mas na segunda vez o erro se repete, como se ficasse algum "lixo" na memória que impedisse uma segunda conexão. Alguém já passou por isso ? try http := GETACTIVEOBJECT( 'MSXML2.XMLHTTP' ) catch try http := CREATEOBJECT( 'MSXML2.XMLHTTP' ) catch ? "Erro: Criação do objeto OLE : " + Ole2TxtError() Return(.f.) end end http:Open( "GET", "http://homologacao.anvisa.gov.br/sngpc/", .F. ) http:SetRequestHeader( "Accept", "*/*" ) http:SetRequestHeader( "Accept-Language", "pt-br" ) http:SetRequestHeader( "Accept-Encoding", "gzip, deflate" ) http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" ) http:SetRequestHeader( "Host" , "homologacao.anvisa.gov.br" ) http:SetRequestHeader( "Connection" , "Keep-Alive" ) http:send() response := http:statusText .....etc,etc,etc.....