pcsoft.us.windevCopyright 2026, PC SOFT6 Jun 2016 12:16:06 Z6 Jun 2016 12:16:06 ZGreetings everyone, I'm trying to migrate a vb.net project I realized, it seems it's much more difficult than I thought ... In the project, I'm trying to consume a web service to send a zipped xml file, in response, the response is a zipped xml file, it shows if the file I sent is accepted or not. I'm calling this web service : https://www.sunat.gob.pe/ol-ti-itcpgem-beta/billService?wsdl And I'm trying to send this zip file : https://www.dropbox.com/s/en2tl63u6iozkjb/20450835600-01-FF11-56.zip?dl=0 About the web service I'm using, I call the sendBill method, here are its parameters : - filename : the zip filename to send (its extension is required, so, in my test, its value is 20450835600-01-FF11-56.zip ) - contentFile : byte array value, represents the zip file to send The returned value is a byte array value, represents the zip file received. The call of the web service requires an identification, here are the id identifications : username : 20450835600MODDATOS password : MODDATOS So far, I put this wlangage code : [code:wl] sFilename is string= "20450835600-01-FF11-56.zip" l_zipFileToSend is string="C:\Mes Projets\EnvoiWindev\" + sFilename l_cheminReponse is string="C:\Mes Projets\EnvoiWindev\reponseSUNAT.zip" l_ws is billServiceClient l_ws.ClientCredentials.CreateSecurityTokenManager() l_ws.ClientCredentials.UserName.username="20450835600MODDATOS" l_ws.ClientCredentials.UserName.password="MODDATOS" l_ws.Open() l_wsSettings is sendBill l_wsSettings.fileName=sFilename l_wsSettings.contentFile=fChargeBuffer(l_zipFileToSend) l_reponse is Variant=l_ws.sendBill(l_wsSettings) l_ws.close() [/code] but it seems it's not possible to instantiate a billServiceClient object, this error message pops-up in debug mode : The .NET framework returned the following error: An exception was thrown by the target of an invocation. Any idea? My wlangage code is based on this vb.net code : Dim _ZIPFile as string="C:\Mes Projets\EnvoiWindev\20450835600-01-FF11-56.zip" Dim NomFichierZIP As String = System.IO.Path.GetFileName(_ZIPFile) Dim usernametoken_login As String ="20450835600MODDATOS" Dim usernametoken_pwd As String = "MODDATOS" System.Net.ServicePointManager.UseNagleAlgorithm = True System.Net.ServicePointManager.Expect100Continue = False System.Net.ServicePointManager.CheckCertificateRevocationList = True Dim ws As New ServiceBeta.billServiceClient Dim Retour As Byte() Dim data As Byte() = System.IO.File.ReadAllBytes(_ZIPFile) ws.ClientCredentials.CreateSecurityTokenManager() ws.ClientCredentials.UserName.UserName = usernametoken_login ws.ClientCredentials.UserName.Password = usernametoken_pwd ws.Open() Retour = ws.sendBill(NomFichierZIP, data) ws.Close() System.IO.File.WriteAllBytes("C:\Mes Projets\EnvoiWindev\reponseSUNAT.zip", Retour) PS : 1) this webservice is simply used to verify if the zip file sent can be accepted or not next time I'll try to send it via the production one 2) as it's a test webservice, every user has the exact same password, only the numerical part of the username can change30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/57980-consume-web-service-send-and-receive-zip-file/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)