Új hozzászólás Aktív témák

• #42427 szőröscica addikt

  Új Válasz 2019-12-09 18:03:59 #42427

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szőröscica

  addikt

  Sziasztok!

  Lenne egy makro hibam, ami csak egyetlen szamitogepen jelentkezik, es keptelen vagyok rajonni, hogy hol akadunk el vele:

  
  Private Sub download_template(saveto, URL)
  
  'Construct multipart/form-data string
  xmlString = ""
  xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""USERNAME""" & vbNewLine & vbNewLine & username & vbNewLine
  xmlString = xmlString & "--" & boundary & vbNewLine & "Content-Disposition: form-data; name=""PASSWORD""" & vbNewLine & vbNewLine & password & vbNewLine
  xmlString = xmlString & "--" & boundary & "--"
  
  'Create objects, set variables (response is binary)
  Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  Set mStream = CreateObject("ADODB.Stream")
  If mStream.State = adStateClosed Then
  mStream.Open
  End If
  mStream.Type = adTypeBinary
  mStream.Position = 0
  mStream.SetEOS
  
  With objXMLHTTP
  .Open "POST", URL, False
  .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
  .send (xmlString) 'Your multipart post URL
  mStream.Write objXMLHTTP.responseBody
  mStream.SaveToFile saveto, adSaveCreateOverWrite
  mStream.Close
  
  Set mStream = Nothing
  End With
  
  End Sub

  A .send (xmlString) reszen fut hibara, Run-time error '-2146697208 (800c0008)':
  The download of the specified resource has failed hibauzenettel.

  Amit megprobaltam, az az, hogy a Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") reszt atirtam Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")-ra, de nem segitetet, ugyanott szallt el.

  A projekthez szukseges reference libraryk be vannak kapcsolva, hisz maskepp a tobbi szamitogepen sem mukodnenek. Lattok barmi egyertelmu hibat a kodban, ami ezt okozhatja? Vagy valami gaz van a szamitogeppel? Lehet serult valami fajl?

  Koszi a tippeket.

  Udv,
  Balazs

Új hozzászólás Aktív témák