leeres byte

03/01/2009 - 01:36 von dietrich | Report spam
gesundes neues 2009

um binàre inhalte auf einen ftp server zu übertragen muss man diese über
einen filestream einlesen und in ein byte array übertragen
bei der kontrolle der hochgeladenen datei (in diesem fall eine xml datei)
bleibt jedoch am ende immer ein leerzeichen, was zu einem lesefehler im xml
parser führt

Private Function FileToByte(ByVal file As String) As Byte()

Dim datei As New System.IO.FileStream(file, System.IO.FileMode.Open)

'einlesen der datei
Dim bytes(CInt(datei.Length)) As Byte
datei.Read(bytes, 0, bytes.Length)
datei.Close()

Return bytes

End Function

wegen der option strict muss eine konvertierung von long zu int erfolgen!

weis jemand einen rat
viele grüsse
 

Lesen sie die antworten

#1 Armin Zingler
03/01/2009 - 01:43 | Warnen spam
dietrich wrote:
gesundes neues 2009



Ebenso!

Gab's keine Shift-Taste zu Weihnachten? ;)


Dim bytes(CInt(datei.Length)) As Byte



Dim bytes(CInt(datei.Length) - 1) As Byte

In Klammern steht die Obergrenze des Arrays. Da die Untergrenze 0 ist
brauchst du für 5 Bytes die Obergrenze 4 (0, 1, 2, 3, 4).


Armin

Ähnliche fragen