Van

Oi, Ricardo, boa tarde ! Agradeço pela resposta. Finalmente localizamos o problema no meu cliente. A empresa que fará a assinatura, havia me passado a informação errada, de que essa porta 8443 do webservice, não checava a certificação, por ser uma porta para testes, portanto, não achamos que o problema poderia estar aí. Ao limpar os certificados expirados e deixar somente os certificados válidos, tudo começou a funcionar conforme o esperado. Agradeço as orientações, paciência e sugestões de todos.

Rapazes, bom dia ! Grata pelas sugestões e dicas

Oi, Kapiaba e Sistem... Muito obrigada pela imensa boa vontade em me ajudar... O programa já funcionou antes, então acredito que o problema não esteja na versão do fivewin... Vou batalhar um pouco mais na questão do ambiente e suas atualizações... Vocês são gente muito boa... obrigada mesmo... e vamos deixar a rotina aí pro caso de alguém precisar...

bad boy... rs Mas, o arquivo está lá no diretório, e o #include está no programa principal... Acabei de printar o conteúdo a ser enviado antes do send()... Ou é alguma outra coisa que eu não vi??? aiai... rs...

Exatamente... Então o problema não está na rotina e sim no ambiente... O que pode estar interferindo para que eu não consiga mandar o arquivo ??? em todas as máquinas que testei obtive o erro... Van´s case... rs...

Sim... Usuário e senha que foram usados na homologação...

Kapiaba, não deu certo... Sistem, o status voltou como 1 antes do Send() e em seguida já saiu pelo catch (mensagem de erro no SEND) Estou anexando o XML de testes nesta postagem caso alguém queira dar uma olhada Minha rotina está assim neste momento: //================================================================= static function testa_envio() LOCAL strXml := "" local strret cResposta = "" sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" aaa = curdrive() + ":\" + ALLTRIM(CURDIR()) + "\" warquivo = aaa + "arquivoxmlcrdc.xml" oTxt := TTxtFile():New( warquivo ) nLinhas := oTxt:nTLines oTxt:Gotop() cLinha := oTxt:cLine for x=1 to nlinhas cLinha += alltrim(oTxt:cLine) oTxt:Skip(1) next oTxt:Close() sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado //============================================================== // rotina sugerida no fórum //1) Criar o servidor Try oServer := CreateObject("Msxml2.ServerXMLHTTP") Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End //2) Abrir o servidor oServer:Open( "POST", cWebService, .F. ) //3) Adicionar o request header oServer:SetRequestHeader("Content-Type","application/json") oServer:SetRequestHeader( "Username" , "&sUser") oServer:SetRequestHeader( "Password" , "&sPassword") msginfo(oServer:readyState) //<<<<<<====== voltou com status = 1 try oServer:Send( sConteudo ) // <<<<<======= envia o XML While oServer:readyState != 4 // <<<<<======= nem entrou aqui.. já saiu pelo catch oServer:WaitForResponse(500) end cResposta := oServer:responseText // <<<<<======= resposta do webservice msginfo(cresposta) catch MsgInfo( 'Erro no Send' ) end Return .t. arquivoxmlCRDC.xml

Oi, Kapiaba... Sim, a URL está correta. É o envio de operações de fomento para assinatura digital.... Eu já fiz todo o processo de homologação com essa empresa. e tudo funcionou direitinho. Quando fui implantar no cliente obtive o erro (da primeira postagem)... Vim testar novamente no meu computador e deu o erro aqui também... Por isso estou tão sem rumo, era algo que estava funcionando e agora não está mais e eu não tenho idéia do porquê. A rotina é bastante simples, mas, resolveu engasgar no SEND(). Será que tem alguma forma de obter algum detalhamento do erro que está acontecendo? PS - Por desencargo de consciência, tentei enviar um XML para a URL em produção e o erro persistiu.

João, boa tarde ! Acabei de testar e nada... não dá erro na criação do serviço e nem nos requestheader... só dá erro no Send... Tentei, novamente hoje pela manhã, em um computador com o MSXML2.ServerXMLHTTP.4.0 e deu o mesmo problema. Já conferi a minha rotina milhares de vezes... não consigo ver erro algum... Desanimando aqui... não sei mais o que tentar...

Oi, João, Fiz e obteve êxito nos dois comandos, mas, o problema persiste. O problema está no Send()... o objeto está sendo criado normalmente e os requests também não dão erro... será que existe alguma outra forma de tentar enviar o XML ? Grata pela sugestão.

Oi, Sistem, Verifiquei as opções de internet agora, estão como o seu quadro. O programa foi testado no meu cliente que também usa o windows 7 / SP1 e em outro computador com o windows 10, obtendo o mesmo erro. Parece que o meu programa bichou de repente... Tudo estava funcionando perfeitamente antes... Por isso estou tão confusa. O problema está no Send()... todo o resto passa sem problema.

Oi, Kapiaba, #define FWVERSION "FWHX 2.6 April 2005" #define FWDESCRIPTION "FiveWin for xHarbour" É antiguinho, mas, não creio que o problema esteja na versão do Fivewin, pois como comentei anteriormente, tudo já funcionou aqui. Consegui inclusive finalizar todos os testes com a empresa que irei consumir o webservice. É alguma outra coisa que está pegando...

Amigos, boa tarde ! Postanto o resultado dos testes: Com o MDAC 2.7 SP1 - alterei o objeto para CreateObject("Msxml2.ServerXMLHTTP.3.0"), o programa não dá erro na criação porém continuei obtendo o erro: Error occurred at: 03/05/19, 11:25:21 Error description: Error Msxml2.ServerXMLHTTP.3.0/14 DISP_E_BADPARAMCOUNT: SEND Instalei o MSXML 4.0 Parser SP3 - alterei o objeto para CreateObject("Msxml2.ServerXMLHTTP.4.0"), conforme orientação no site da Microsoft, o programa não dá erro na criação, porém o erro persiste: Error occurred at: 03/05/19, 11:57:30 Error description: Error Msxml2.ServerXMLHTTP.4.0/14 DISP_E_BADPARAMCOUNT: SEND O que mais me intriga é que tudo já funcionou, anteriormente, no meu computador. Será que há algum ajuste de configuração de internet que deva ser verificado? O que pode ter interferido para que começasse a dar esse erro ? Caso alguém tenha mais alguma idéia, fico muito grata, pois estou bem perdida... rs...

Sistem, bom dia ! Vou tentar e posto o resultado aqui. Obrigada.

Oi, Kapiaba, o #include "Fivewin.ch" está no programa principal que chama essa rotina... Mas, acredito que não seja isso porque o programa já funcionou anteriormente. Eu acho que o problema está em atualizações a serem feitas... só não sei mais o que deve ser atualizado...

Tenho sim... com vencimento em abril de 2020...

Amigos, boa tarde ! Continuo com dificuldades para resolver o problema no envio do XML. O pior é que agora, o que funcionava no meu computador, também está dando erro. Perdi todas as referências que tinha para o funcionamento da rotina. Segue abaixo a rotina que estou utilizando, após sugestão do Kapiaba e logo abaixo, o log do erro que estou obtendo. Não sei mais o que olhar, atualizar, verificar... rs... Agradeço por qualquer orientação / sugestão. //=================================== rotina que envia os dados =================================== static function testa_envio() LOCAL strXml := "" sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" aaa = curdrive() + ":\" + ALLTRIM(CURDIR()) + "\" warquivo = aaa + "arquivoxmlcrdc.xml" oTxt := TTxtFile():New( warquivo ) nLinhas := oTxt:nTLines oTxt:Gotop() cLinha := oTxt:cLine for x=1 to nlinhas cLinha += alltrim(oTxt:cLine) oTxt:Skip(1) next oTxt:Close() sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado // rotina do fórum #ifdef __XHARBOUR__ // xHarbour Try oServer := CreateObject( "MSXML2.XMLHTTP" ) Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End //2) Abrir o servidor oServer:Open( "POST", cWebService, .F. ) //3) Adicionar o request header oServer:SetRequestHeader("Content-Type","application/json") oServer:SetRequestHeader( "Username" , "&sUser") oServer:SetRequestHeader( "Password" , "&sPassword") oServer:Send(sconteudo) cResposta := oServer:responseText // <<<<<======= resposta do webservice #endif msginfo(cresposta) return .t. //============================= Aqui, o log do erro obtido: ======================================== Application =========== Path and name: C:\abin\Ninety\jsf\jsf_fw\Dados\SISFIN.exe (32 bits) Size: 5,099,520 bytes Time from start: 0 hours 0 mins 6 secs Error occurred at: 02/05/19, 15:56:10 Error description: Error MSXML2.XMLHTTP/3 DISP_E_MEMBERNOTFOUND: SEND Args: [ 1] = C <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Header/><soapenv:Body><for:formalizarOperacao><!--Optional:--><envioOperacao xmlns="http://iduplicata.wba.com.br/formalizacao/" id="20181605"><operacao><numero>20181605</numero><diferencialCompra>63.17</diferencialCompra><diferencialCompraComposto>63.17</diferencialCompraComposto><valorBruto>305.00</valorBruto><valorLiquido>283.40</valorLiquido><valorPago>283.40</valorPago><valorRetencao>0.00</valorRetencao><valorRegresso>0.00</valorRegresso><valorCreditos>0.00</valorCreditos><valorRecompra>0.00</valorRecompra><contrato><numeroContrato>552935</numeroContrato><sequenciaContrato>56</sequenciaContrato><firmadoEm>2017-05-12T00:00:00-03:00</firmadoEm><assinadoEm>2017-05-12T00:00:00-03:00</assinadoEm><numeroContratoAditivo>56</numeroContratoAditivo></contrato><taxas><adValorem>0.60</adValorem><outrasTaxas>0.00</outrasTaxas></taxas><impostos><PIS>0.00</PIS><COFINS>0.00</COFINS><CSLL>0.00</CSLL><IOF>4.01</IOF><aliquotaIOFRetido>4.01</aliquotaIOFRetido><IOFAoDia>0.51</IOFAoDia><aliquotaIOFRetidoAoDia>0.06</aliquotaIOFRetidoAoDia><IRRF>0.00</IRRF><ISS>0.00</ISS><CPMF>0.00</CPMF></impostos><pagamentos><pagamento><numeroBanco>237</numeroBanco><nomeBanco>BANCO BRADESCO S.A.</nomeBanco><codigoAgencia>201</codigoAgencia><numeroContaCorrente>19752</numeroContaCorrente><CNPJContaCorrente>64763774000157</CNPJContaCorrente><valor>818.33</valor></pagamento></pagamentos><tarifas><servicoBancario>0.00</servicoBancario><cheques>0.00</cheques><titulos>9.00</titulos></tarifas><tarifasEsporadicas><tarifaEsporadica><codigoOperacao>TT</codigoOperacao><descricao>TARIFA DE TED</descricao><valor>15.00</valor></tarifaEsporadica></tarifasEsporadicas></operacao><consultora><CNPJ>96425574000180</CNPJ><nome>BZA</nome><enderecoConsultora><logradouro>RANGEL PESTANA</logradouro><numero>828</numero><bairro>CENTRO</bairro><cidade>JUNDIAI</cidade><UF>SP</UF><CEP>13201000</CEP><pais>BRASIL</pais></enderecoConsultora><IE>ISENTO</IE><IM>ISENTO</IM><email>rodrigoteste@testedirectcred.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></consultora><cedente><CNPJ>01859325000197</CNPJ><nome>Cedente teste bilhetagem</nome><enderecoCedente><pais>BRASIL</pais></enderecoCedente><IE>224046448117</IE><email>fabianoteste@testepisosazulejos.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></cedente><titulos><titulo tipo="DUPLICATA"><numero>20181205</numero><chaveNfe/><numeroNotaFiscal>651674882</numeroNotaFiscal><serieNotaFiscal>001</serieNotaFiscal><numeroControleParticipante>017784/0001</numeroControleParticipante><pracaPagamento>BOTUCATU</pracaPagamento><descontoComercial>0.00</descontoComercial><dataLimiteDesconto>2018-10-10T00:00:00-03:00</dataLimiteDesconto><abatimento>0.00</abatimento><dataVencimento>2018-07-15T00:00:00-03:00</dataVencimento><dataEmissao>2018-09-30T00:00:00-03:00</dataEmissao><valor>305.00</valor><valorLiquido>283.40</valorLiquido><sacado><CNPJ>00178029890</CNPJ><nome>JOSE JAIR FRONER</nome><enderecoSacado><logradouro>RUA 37,10</logradouro><numero>1</numero><bairro>ALVORADA DA BARRA</bairro><cidade>BOTUCATU</cidade><UF>SP</UF><CEP>18617890</CEP><pais>BRASIL</pais></enderecoSacado><IE>ISENTO</IE><IM>ISENTO</IM></sacado></titulo></titulos><titulosRecompra/></envioOperacao></for:formalizarOperacao></soapenv:Body></soapenv:Envelope> Stack Calls =========== Called from TOLEAUTO:SEND(0) Called from TESTA_ENVIO(104) Called from TESTCRDC(44) Called from (b)BUILDMENU(989) Called from TMENU:COMMAND(407) Called from TWINDOW:COMMAND(929) Called from TMDIFRAME:COMMAND(225) Called from TMDIFRAME:HANDLEEVENT(0) Called from _FWH(3109) Called from WINRUN(0) Called from TMDIFRAME:ACTIVATE(878) Called from MAIN(246) System ====== CPU type: Pentium IV 1866 Mhz Hardware memory: 2048 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 0.99.3 Intl. (SimpLex) Windows version: 6.1, Build 7601 Service Pack 1 Windows total applications running: 35 1 2 Iniciar 3 MSCTFIME UI 4 Default IME 5 Lista de Atalhos 6 Network Flyout 7 Alternância de tarefas 8 CiceroUIWndFrame 9 TF_FloatingLangBar_WndTitle 10 SISFIN - [Versão 1.0] - 11 go - JSF 12 Prompt de Comando 13 FiveTech Software tech support forums • View topic - Sending and Receiving XML Data - Opera 14 SleepDetectorServiceWindowClass 15 BluetoothNotificationAreaIconWindowClass 16 MS_WebcheckMonitor 17 apptitle 18 Menu Iniciar 19 CCleaner - FREE FOR HOME USE 20 HiddenFaxWindow 21 Media Center SSO 22 Medidor de Bateria 23 Task Host Window 24 MCI command handling window 25 DDE Server Window 26 DWM Notification Window 27 Windows 7 28 GDI+ Window 29 TaskEng - Processo de Mecanismo do Agendador de Tarefas 30 AvgSecureLineTrayIcon 31 CAvgTrayIcon 32 ACBrMonitorPLUS 1.2.0.12 33 Error - Bloco de notas 34 MED CX - unregistered - [C:\abin\Ninety\jsf\jsf_fw\Sistemas\prgs\testCRDC.prg] 35 Program Manager Variables in use ================ Procedure Type Value ========================== TOLEAUTO:SEND Param 1: C "<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Header/><soapenv:Body><for:formalizarOperacao><!--Optional:--><envioOperacao xmlns="http://iduplicata.wba.com.br/formalizacao/" id="20181605"><operacao><numero>20181605</numero><diferencialCompra>63.17</diferencialCompra><diferencialCompraComposto>63.17</diferencialCompraComposto><valorBruto>305.00</valorBruto><valorLiquido>283.40</valorLiquido><valorPago>283.40</valorPago><valorRetencao>0.00</valorRetencao><valorRegresso>0.00</valorRegresso><valorCreditos>0.00</valorCreditos><valorRecompra>0.00</valorRecompra><contrato><numeroContrato>552935</numeroContrato><sequenciaContrato>56</sequenciaContrato><firmadoEm>2017-05-12T00:00:00-03:00</firmadoEm><assinadoEm>2017-05-12T00:00:00-03:00</assinadoEm><numeroContratoAditivo>56</numeroContratoAditivo></contrato><taxas><adValorem>0.60</adValorem><outrasTaxas>0.00</outrasTaxas></taxas><impostos><PIS>0.00</PIS><COFINS>0.00</COFINS><CSLL>0.00</CSLL><IOF>4.01</IOF><aliquotaIOFRetido>4.01</aliquotaIOFRetido><IOFAoDia>0.51</IOFAoDia><aliquotaIOFRetidoAoDia>0.06</aliquotaIOFRetidoAoDia><IRRF>0.00</IRRF><ISS>0.00</ISS><CPMF>0.00</CPMF></impostos><pagamentos><pagamento><numeroBanco>237</numeroBanco><nomeBanco>BANCO BRADESCO S.A.</nomeBanco><codigoAgencia>201</codigoAgencia><numeroContaCorrente>19752</numeroContaCorrente><CNPJContaCorrente>64763774000157</CNPJContaCorrente><valor>818.33</valor></pagamento></pagamentos><tarifas><servicoBancario>0.00</servicoBancario><cheques>0.00</cheques><titulos>9.00</titulos></tarifas><tarifasEsporadicas><tarifaEsporadica><codigoOperacao>TT</codigoOperacao><descricao>TARIFA DE TED</descricao><valor>15.00</valor></tarifaEsporadica></tarifasEsporadicas></operacao><consultora><CNPJ>96425574000180</CNPJ><nome>BZA</nome><enderecoConsultora><logradouro>RANGEL PESTANA</logradouro><numero>828</numero><bairro>CENTRO</bairro><cidade>JUNDIAI</cidade><UF>SP</UF><CEP>13201000</CEP><pais>BRASIL</pais></enderecoConsultora><IE>ISENTO</IE><IM>ISENTO</IM><email>rodrigoteste@testedirectcred.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></consultora><cedente><CNPJ>01859325000197</CNPJ><nome>Cedente teste bilhetagem</nome><enderecoCedente><pais>BRASIL</pais></enderecoCedente><IE>224046448117</IE><email>fabianoteste@testepisosazulejos.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></cedente><titulos><titulo tipo="DUPLICATA"><numero>20181205</numero><chaveNfe/><numeroNotaFiscal>651674882</numeroNotaFiscal><serieNotaFiscal>001</serieNotaFiscal><numeroControleParticipante>017784/0001</numeroControleParticipante><pracaPagamento>BOTUCATU</pracaPagamento><descontoComercial>0.00</descontoComercial><dataLimiteDesconto>2018-10-10T00:00:00-03:00</dataLimiteDesconto><abatimento>0.00</abatimento><dataVencimento>2018-07-15T00:00:00-03:00</dataVencimento><dataEmissao>2018-09-30T00:00:00-03:00</dataEmissao><valor>305.00</valor><valorLiquido>283.40</valorLiquido><sacado><CNPJ>00178029890</CNPJ><nome>JOSE JAIR FRONER</nome><enderecoSacado><logradouro>RUA 37,10</logradouro><numero>1</numero><bairro>ALVORADA DA BARRA</bairro><cidade>BOTUCATU</cidade><UF>SP</UF><CEP>18617890</CEP><pais>BRASIL</pais></enderecoSacado><IE>ISENTO</IE><IM>ISENTO</IM></sacado></titulo></titulos><titulosRecompra/></envioOperacao></for:formalizarOperacao></soapenv:Body></soapenv:Envelope>" TESTA_ENVIO Local 1: C "" TESTCRDC (b)BUILDMENU Param 1: O Class: TMENUITEM TMENU:COMMAND Param 1: N 20176 Local 1: O Class: TMENU Local 2: O Class: TMENUITEM TWINDOW:COMMAND Param 1: N 20176 Param 2: N 0 Local 1: O Class: TMDIFRAME Local 2: N 0 Local 3: N 20176 Local 4: N 0 TMDIFRAME:COMMAND Param 1: N 20176 Param 2: N 0 Local 1: O Class: TMDIFRAME Local 2: L .F. TMDIFRAME:HANDLEEVENT Param 1: N 273 Param 2: N 20176 Param 3: N 0 _FWH Param 1: N 0 Param 2: N 273 Param 3: N 20176 Param 4: N 0 Param 5: N 1 Local 1: O Class: TMDIFRAME WINRUN Param 1: N 852574 TMDIFRAME:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: B {|| ... } Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: B {|| ... } Param 18: U Param 19: U Local 1: O Class: TMDIFRAME Local 2: U Local 3: U MAIN Local 1: C "F" Local 2: C "PDFCreator" Local 3: L .F. Linked RDDs =========== DBF DBFDBT DBFNTX MYSQL DataBases in use ================ Classes in use: =============== 1 HBCLASS 2 HBOBJECT 3 TSISTEMA 4 TFONT 5 TCURSOR 6 TWINDOW 7 TCONTROL 8 TICON 9 TBRUSH 10 TMDIFRAME 11 TMENU 12 TMENUITEM 13 TMDICLIENT 14 TBAR 15 TRECT 16 TBTNBMP 17 TMSGBAR 18 TMSGITEM 19 TTIMER 20 TDIALOG 21 TSAY 22 TGET 23 TBTNGET 24 GET 25 TCLIPGET 26 TBUTTON 27 TFILE 28 TTXTFILE 29 TOLEAUTO 30 ERROR Memory Analysis =============== 326 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes

Bom dia, Valdir... Também estou apostando em atualizações ou algum ajuste de ambiente... Vou verificar com o cliente, também... Grata,

Oi, Kapiaba, vou tentar sim... Mas não entendo porque no meu computador tudo funciona perfeitamente e no outro não... :/ Alguma idéia?

Na verdade, a minha dúvida é com relação ao ambiente, pois no meu computador tudo está funcionando perfeitamente. Será que é preciso fazer algum ajuste no computador do meu cliente, nas opções de internet, ou pode ter a interferência de algum anti-vírus ??? Grata, Minha rotina: //1) Criar o servidor http := CreateObject( "MSXML2.ServerXMLHTTP" ) //2) Abrir o servidor http:Open( "POST", cWebService, .F. ) // <<<<======== contém a URL //3) Adicionar o request header http:SetRequestHeader("Content-Type","application/json") http:SetRequestHeader( "Username" , "&sUser") // <<<<<=== envia usuário http:SetRequestHeader( "Password" , "&sPassword") // <<<<<=== envia senha //4) Enviar a requisição: http:send( sConteudo ) // <<<<<======= envia o arquivo //5) Obter a resposta: cResposta := http:responseText // <<<<<======= resposta do webservice

Amigos, estou me deparando com a seguinte situação: Ao consumir um webservice no meu computador, tudo funciona perfeitamente (windows 7/32 SP1). O mesmo programa no computador do cliente, também com windows 7/32 SP1 está dando o seguinte erro: Error MSXML2.ServerXMLHTTP/14 DISP_E_BADPARAMCOUNT: SEND Ou seja, o XML não está "saindo" do meu cliente. Alguém tem sugestões do que precisa ser "ajustado" ou corrigido ? Acredito que seja algum ajuste de configuração de internet, ou algo por esse caminho, pois aqui tudo funciona perfeitamente... o XML é enviado e obtenho resposta do webservice normalmente. Estou sem idéia de por onde começar... Agradeço qualquer orientação.

Amigos, obrigada... atualizei a TIP.LIB e consegui fazer a conversão corretamente. Vocês são ótimos... muito grata...

Boa tarde ! Tentei usar essa rotina para codificar um arquivo PDF em base64 e já na compilação deu o erro: Error: Unresolved external '_hb_retc_null' referenced from C:\Empresa\SISTEMAS\LIB\TIP.LIB|base64 Alguma idéia de como resolver esse erro na compilação ? Grata.