Jump to content
Fivewin Brasil

Error MSXML2.ServerXMLHTTP/14 DISP_E_BADPARAMCOUNT: SEND

Van

By Van
in Programação

 Share

Recommended Posts

Van Newbie

Van

Posted
Posted

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. 

 

 

 

 

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted

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

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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


 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted
 

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, 

 

 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted

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

 

 

 

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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.

 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted
 

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... 

 

 

 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted
 

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. :mellow:

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... 

 

 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted

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... 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted
 

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. 

 

Link to comment
Share on other sites
Van Newbie

Van

Posted
  • Author
Posted
 

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... 

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...