Function EncodeBase64(ByVal arrData() As Byte) As String
...
End Function
Der Code scheitert hier aber an der Zeile:
EncodeBase64FromFile = EncodeBase64(objStream.Read)
Hat jemand noch eine Idee?
Offensichtlich stimmt der Datentyp des Parameters arrData nicht.
Doku sagt zu ADO.Stream.Read: Variant -> also: arrData As Variant
Ehrlich gesagt verstehe ich jedoch nicht warum du das so umständlich machst.
Ließ den Inhalt einfach als String vom Stream-Objekt - Stream.ReadText - und wandle es per
Dim arrData() As Byte
arrData = StrConv(text, vbFromUnicode)
in ein Byte-Array um, welches du dann wie gehabt an
objNode.nodeTypedValue = arrData
übergibts.
Grüße
|