Edu

Thanks Cristoval but I'm not using Visual Studio. I'm using Fivewin 16.08, xharbour 1.2.3 and BCC 7.0. It's possible work with hbcurl ? If positive, what configurations I need to do? Best regards.

Kapi, Baixei a lib do link que vc enviou mas deu outro erro. Executando: ILINK32 @B32.BC Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc. Error: 'LIB\HBCURL.LIB' contains invalid OMF record, type 0x21 (possibly COFF) Sabe o que pode estar causando este erro?

Obrigado Kapi! Mas eu já tenho a lib. Eu não consigo compilar. Erros: Executando: ILINK32 @B32.BC Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc. Error: Unresolved external '_curl_global_init_mem' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_global_cleanup' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_formfree' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_cleanup' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_reset' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_duphandle' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_init' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_hb_gcMark' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_hb_gcAllocate' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_pause' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_perform' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_send' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_recv' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_hb_storclen_buffer' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_formadd' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_slist_append' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_hb_parnldef' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_setopt' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_getinfo' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_slist_free_all' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_escape' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_unescape' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_version' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_version_info' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_easy_strerror' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_getdate' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_escape' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_unescape' referenced from LIB\HBCURL.LIB|core Error: Unresolved external '_curl_free' referenced from LIB\HBCURL.LIB|core

Boa tarde amigos. Vi no link que usa a hbcurl.lib do harbour, como faço para usá-la no xharbour? Grato.

Bom dia amigo! Segue alguns links uteis. http://www.ousob.com/ng/clguide/ http://linguagemclipper.com.br/node/xharbour http://www.toyanet.com.br/bitgaragem.php https://vivaclipper.wordpress.com/ https://harbour.github.io/contribs http://harbour.edu.pl/index.html http://www.fivetechsoft.com/harbour-docs/api.html http://wiki.fivetechsoft.com/doku.php http://forums.fivetechsupport.com/ Abraço.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=27136&hilit=bPaintText http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22506&p=119910&hilit=bpainttext#p119910

Boa tarde! Basta importar no projeto a shell32.lib que irá resolver! Abraço.

ADutheil, linkei a libcurl.lib no projeto e efetuei #include "hbcurl.ch" mas não consigo compilar. O que está faltando?

Resolvido! Obrigado fladimir. Tive que importar no projeto o arquivo ct.lib e efetuar o include de "directry.ch".

Obrigado pela dica mas esta função não foi reconhecida no meu compilador. Existe algum include.ch que precisa ser importado no projeto?

Boa tarde amigos! Criei uma rotina para alterar arquivos XML. A rotina está legal, mas a data de criação do arquivo está sendo alterada. Existe alguma forma de resolver isso, ou seja, alterar o arquivo sem mexer na data de criação do mesmo? Obs.: Estou usando as funções Memoread() e Memowrit().

João. Acho que não funcionaria pois não tenho como saber qual o tamanho do hexadecimal e nessa função está testando bit a bit. Ex: Caracter: Ç em hexadecimal é : xC7. Caracter: º em hexadecimal é: xBA.

Bom dia! Alguém sabe como posso testar se há caracteres hexadecimal numa string? Tentei com a função IsXDigit(), mas retorna erro: Unrecoverable error 9023: hb_xgrab requested to allocate zero bytes. Grato.

Verifique se o arquivo não está sendo gravado com as tags de envelopamento. Ex: <soap:Envelope...>

Bom dia! Nada específico. Compilei com Fwh1109, xHarbour 1.2.3 e bcc 5.8.2. Abraço.

Boa tarde amigos! Consegui fazer funcionar esta pesquisa, se for de interesse de alguém... ************************************** Function PesquisaNCM() * pesquisa NCM via API Cosmos : https://cosmos.bluesoft.com.br local oHttp, cUrl, aResult local cGTIN:= Space(13) MsgGet("Pesquisa NCM Cosmos", "Informe o código GTIN", @cGTIN) if Empty(cGTIN) return nil endif cUrl:= "https://api.cosmos.bluesoft.com.br/gtins/"+ cGTIN + ".json" oHttp:= CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) oHttp:Open( "GET", cUrl, .f. ) oHttp:setRequestHeader('Content-Type' , 'application/json') oHttp:setRequestHeader('X-Cosmos-Token', 'yIgeHB34Qv6RO18QWsftQw') oHttp:Send() IF oHttp:status != 200 MsgStop( Alltrim(Str(oHttp:status)) +" - "+ oHttp:statusText , "Erro na requisição") RETURN NIL ENDIF x := hb_jsondecode( oHttp:ResponseBody, @aResult ) xbrowse(aResult, "Resultado") return nil

Bom dia! Uma alternativa é fazer um While até achar a ultima tag. oNode := oXmlDocument:FindFirst( "item" ) DO WHILE oNode != NIL oNode := oXmlDocument:FindNext() ENDDO cConteudo:= oNode:cData // obtem o conteudo da ultima tag encontrada

Muito Bom!!!

Bom dia! Ideias interessantes com xbrowse: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33662&hilit=graph http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29200&p=164678&hilit=xbrowse+chart#p164678 Espero ter ajudado!

Outra ideia é vc tentar fazer o seguinte: Gerar o QR Code da senha criptografada em base64 e fazer a leitura do QR Code somente pela webcam. Existe algumas API's que fazem isso. Exemplo: http://zbar.sourceforge.net/index.html Eu nunca trabalhei este tipo de API, mas pesquisando a gente consegue.

Melhorias da função: FUNCTION SetPosXbr(Digitado, xPos, oLbx1) * Funcao de pesquisa sensitiva no xBrowse com Array LOCAL nPalavra:= UPPER(ALLTRIM(Digitado)) if Empty(wDigitado) oBrw:Gotop() Return .T. endif if LastKey() == 127 // se foi pressionado backspace oBrw:Skip(-1) Return .T. endif nPos := ASCAN(aPrinProd ,{|X| IF(nPalavra $ Substr(X[xPos], 1, LEN(nPalavra)) , .T. , .F. )}) IF nPos > 0 oLbx1:nArrayAt:= nPos ENDIF oLbx1:Refresh() oLbx1:Update() RETURN .T.

Eu fiz uns testes com o MS Word e funcionou! Porém a janela que abre as sugestões perde o foco. Se alquém quiser contribuir... Segue o código. ******************************************************************************** Function CorretorOrtografico() * Integração com corretor ortografico do MS Word Local cText:= SPACE(100) Local objWord, oDlg define dialog oDlg Resource "CORRETOR" TITLE "Corretor Ortográfico" redefine get oGet10 VAR cText ID 10 of oDlg UPDATE * verificar ortografia redefine button oBt20 ID 20 of oDlg ACTION( CheckSpelling(@cText), oGet10:Refresh() ) * sair redefine button oBt21 ID 21 of oDlg ACTION oDlg:End() activate dialog oDlg Centered return nil ******************************************************************************** Function CheckSpelling(cText) objWord:= CreateObject("Word.Application") // objWord:Visible:= .f. * Cria um documento em branco objWord:Documents:Add() * Adiciona o texto no novo documento em branco objWord:Selection:TypeText(cText) * Aciona a ação de verificação ortográfica objWord:Documents:Item(objWord:Documents:Count):CheckSpelling() * Retorna o texto corrigido para o textbox cText := objWord:Documents:Item(objWord:Documents:Count):Content:Text * Fecha o documento sem salvar as alterações no documento em branco que foi criado objWord:Documents:Close(0) * Fecha a instância do word objWord:Quit() * Destrói o objeto word objWord := Nil return nil

Há a possibilidade de utilizar o corretor ortográfico do MS Word. Veja: http://rafaelfranklinmaia.blogspot.com.br/2009/10/corretor-ortografico-do-word-em.html

Tenta tirar a cláusula ORDER BY.

O LEFT JOIN é o comando certo pra vc fazer isso. Estranho o max() não ter funcionado. Qual banco de dados vc está usando?