Van Posted April 24, 2019 Report Share Posted April 24, 2019 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 24, 2019 Report Share Posted April 24, 2019 Olá, mostre sempre como está fazendo, para facilitar para os d+. Algo assim? #IFDEF __XHARBOUR__ // xHarbour Try oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) Catch MsgInfo('Erro na Criação do Serviço') Return .f. End #ELSE Try oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") Catch MsgInfo('Erro na Criação do Serviço!', 'Atenção!') exit End #ENDIF Quote Link to comment Share on other sites More sharing options...
Van Posted April 24, 2019 Author Report Share Posted April 24, 2019 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 24, 2019 Report Share Posted April 24, 2019 Tente assim: FUNCTION Van_Server() LOCAL oServer //1) Criar o servidor #ifdef __XHARBOUR__ // xHarbour Try oServer := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End #else // Harbour Try oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" ) Catch MsgInfo( 'Erro na Criação do Serviço!', 'Atenção!' ) RETURN NIL End #endif Try //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() oServer:WaitForResponse( 10000 ) Catch MsgInfo( 'Erro na conexão com o site!', 'Atenção!' ) End // continua RETURN Nil Quote Link to comment Share on other sites More sharing options...
Van Posted April 24, 2019 Author Report Share Posted April 24, 2019 Oi, Kapiaba, vou tentar sim... Mas não entendo porque no meu computador tudo funciona perfeitamente e no outro não... :/ Alguma idéia? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 24, 2019 Report Share Posted April 24, 2019 kkkk, ai quereis d+, talvez, versão do Internet Explorer muito velha. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 24, 2019 Report Share Posted April 24, 2019 http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=18595&start=30 Quote Link to comment Share on other sites More sharing options...
Valdir Posted April 25, 2019 Report Share Posted April 25, 2019 Bom dia. Verifique se o computador está com todas as atualizações em dia. Está retornando que foi encontrado um parâmetro incorreto na formação do XML. Abraços. Quote Link to comment Share on other sites More sharing options...
Van Posted April 25, 2019 Author Report Share Posted April 25, 2019 Bom dia. Verifique se o computador está com todas as atualizações em dia. Está retornando que foi encontrado um parâmetro incorreto na formação do XML. Abraços. Bom dia, Valdir... Também estou apostando em atualizações ou algum ajuste de ambiente... Vou verificar com o cliente, também... Grata, Valdir 1 Quote Link to comment Share on other sites More sharing options...
Van Posted May 2, 2019 Author Report Share Posted May 2, 2019 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 2, 2019 Report Share Posted May 2, 2019 Duda: A senhora tem um CERTIFICADO DIGITAL válido na máquina? Quote Link to comment Share on other sites More sharing options...
Van Posted May 2, 2019 Author Report Share Posted May 2, 2019 Duda: A senhora tem um CERTIFICADO DIGITAL válido na máquina? Tenho sim... com vencimento em abril de 2020... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 2, 2019 Report Share Posted May 2, 2019 Qual a versão do seu FIVEWIN? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 2, 2019 Report Share Posted May 2, 2019 Veja se não é isso: #include "FiveWin.ch" FUNCTION testa_envio() LOCAL strXml := "", cResposta sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" //aaa = curdrive() + ":\" + ALLTRIM( CURDIR() ) + "\" // novas versoes AAA := GETCURDIR() //warquivo = aaa + "arquivoxmlcrdc.xml" warquivo = aaa + "crdc.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 msginfo(cresposta) #endif return .t. Quote Link to comment Share on other sites More sharing options...
Van Posted May 2, 2019 Author Report Share Posted May 2, 2019 Veja se não é isso: #include "FiveWin.ch" FUNCTION testa_envio() LOCAL strXml := "", cResposta sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" //aaa = curdrive() + ":\" + ALLTRIM( CURDIR() ) + "\" // novas versoes AAA := GETCURDIR() //warquivo = aaa + "arquivoxmlcrdc.xml" warquivo = aaa + "crdc.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 msginfo(cresposta) #endif return .t. 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... Quote Link to comment Share on other sites More sharing options...
Van Posted May 3, 2019 Author Report Share Posted May 3, 2019 já tentou: CreateObject("Msxml2.ServerXMLHTTP.3.0") CreateObject("msxml2.XMLHTTP.6.0") Sistem, bom dia ! Vou tentar e posto o resultado aqui. Obrigada. Quote Link to comment Share on other sites More sharing options...
Van Posted May 3, 2019 Author Report Share Posted May 3, 2019 já tentou: CreateObject("Msxml2.ServerXMLHTTP.3.0") CreateObject("msxml2.XMLHTTP.6.0") 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... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 3, 2019 Report Share Posted May 3, 2019 Qual a versão do seu FIVEWIN? Quote Link to comment Share on other sites More sharing options...
Van Posted May 3, 2019 Author Report Share Posted May 3, 2019 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... Quote Link to comment Share on other sites More sharing options...
Van Posted May 3, 2019 Author Report Share Posted May 3, 2019 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. Quote Link to comment Share on other sites More sharing options...
joao Posted May 3, 2019 Report Share Posted May 3, 2019 Boa tarde, Veja se ajuda : Executar novamente o comando Regsvr32 em um prompt de comando com privilégios elevados regsvr32 /u msxml6.dll regsvr32 msxml6.dll Quote Link to comment Share on other sites More sharing options...
Van Posted May 3, 2019 Author Report Share Posted May 3, 2019 Boa tarde, Veja se ajuda : Executar novamente o comando Regsvr32 em um prompt de comando com privilégios elevados regsvr32 /u msxml6.dll regsvr32 msxml6.dll 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. Quote Link to comment Share on other sites More sharing options...
joao Posted May 4, 2019 Report Share Posted May 4, 2019 Boa tarde , vc testou com MSXML2.ServerXMLHTTP.6.0 msxml6.dll Quote Link to comment Share on other sites More sharing options...
Van Posted May 6, 2019 Author Report Share Posted May 6, 2019 Boa tarde , vc testou com MSXML2.ServerXMLHTTP.6.0 msxml6.dll 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... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 6, 2019 Report Share Posted May 6, 2019 Van, esse XML de envio, é do que mesmo? Tem certeza que é nesse portal? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.