Ciao
mi si presenta un problema durante l'invio di files ad un web service realizzato da noi e presente sul nostro server web, le cui dimensioni superan i 4 mb.

Ho già aggiunto al web service i seguenti tag :

<system.webServer>
<security>
<requestFiltering>
<requestLimits maxAllowedContentLength="2000000000" />
</requestFiltering>
</security>
</system.webServer>

<system.web>
<httpRuntime maxRequestLength="1048576" executionTimeout="100000" />


Nonostante ciò continua a restituire errore .

Sapete darmi qualche indicazione in merito al da farsi ?

Grazie per la vostra attenzione.

L'errore NON è esplicativo :

"Metodo 'Finished' dell'oggetto 'ISoapSerializer' non riuscito"

Di seguito il codice utilizzato per l'invocazione, l'istruzione che restituisce errore è "Serializer.EndEnvelope"

Dim WReader As New WSDLReader30
Dim ServiceEnumerator As IEnumWSDLService
Dim Service As IWSDLService
Dim Fetched As Long
'--------------------------------------------------------------------
WReader.SetProperty "LoadOnServer", False
WReader.Load "http://" & WsServer & "/SerProto.asmx?WSDL", ""
WReader.GetSoapServices ServiceEnumerator
ServiceEnumerator.Next 1, Service, Fetched
'===================================================================
Dim PortEnumerator As IEnumWSDLPorts
Dim Port As IWSDLPort
'--------------------------------------------------------------------
Service.GetSoapPorts PortEnumerator
PortEnumerator.Next 1, Port, Fetched
'-------------------------------------------------------------------
Dim OperationEnumerator As IEnumWSDLOperations
Dim Operation As IWSDLOperation
Port.GetSoapOperations OperationEnumerator
OperationEnumerator.Find "Inserimento", Operation
'===================================================================
Dim MapperEnumerator As IEnumSoapMappers
Dim Mapper As ISoapMapper
Dim Result As ISoapMapper
Dim Serializer As MSSOAPLib30.SoapSerializer30
Dim Connector As MSSOAPLib30.SoapConnector30
'--------------------------------------------------------------------
Operation.GetOperationParts MapperEnumerator
MapperEnumerator.Next 1, Mapper, Fetched
Do While Fetched = 1
Select Case Mapper.ElementName
Case Is = "strUserName": Mapper.ComValue = Trim(TCAMPO(1).Text)
Case Is = "strDST": Mapper.ComValue = RetDST
Case Is = "InserimentoResult": Set Result = Mapper
End Select
MapperEnumerator.Next 1, Mapper, Fetched
Loop
'--------------------------------------------------------------------
Set Connector = New HttpConnector30
Connector.Property("Timeout") = 150000
Connector.ConnectWSDL Port
Connector.BeginMessageWSDL Operation
'===================================================================
Dim Composer As MSSOAPLib30.DimeComposer30
Set Composer = New MSSOAPLib30.DimeComposer30

Set Serializer = New SoapSerializer30
Serializer.InitWithComposer Connector.InputStream, Composer

Serializer.StartEnvelope
Serializer.StartBody
Operation.Save Serializer, True
Serializer.EndBody
Serializer.EndEnvelope
'--------------------------------------------------------------------
Dim StringAttach As MSSOAPLib30.FileAttachment30
Set StringAttach = New MSSOAPLib30.FileAttachment30
StringAttach.FileName = myDocPath
Serializer.AddAttachment StringAttach
Serializer.Finished
'--------------------------------------------------------------------
Dim Reader As MSSOAPLib30.SoapReader30
Dim Parser As MSSOAPLib30.DimeParser30
Dim ReceivedAttachments As MSSOAPLib30.ReceivedAttachments30
Dim ReceivedAttachment As MSSOAPLib30.IReceivedAttachment

Set Reader = New MSSOAPLib30.SoapReader30
Set Parser = New MSSOAPLib30.DimeParser30

GRAZIE