Hallo,
ich versuche gerade Daten zu downloaden und uploaden eines Android-Geräts. Beim downloaden bekomme ich aber immer nur eine 1kb-große Datei. Kann mir jemand erklären warum ?
Code:
Spoiler anzeigen
Habe das von hier: cgeers.com/2011/08/13/wpd-transferring-content/ und dann in VB.NET übersetzt
Danke schon einmal im Vorraus
ich versuche gerade Daten zu downloaden und uploaden eines Android-Geräts. Beim downloaden bekomme ich aber immer nur eine 1kb-große Datei. Kann mir jemand erklären warum ?
Code:
VB.NET-Quellcode
-
- Public Sub DownloadFile(file As PortableDeviceFile, saveToPath As String)
- Dim content As IPortableDeviceContent
- Me._device.Content(content)
- Dim resources As IPortableDeviceResources
- content.Transfer(resources)
- Dim wpdStream As PortableDeviceApiLib.IStream
- Dim optimalTransferSize As UInteger = 0
- Dim [property] = New _tagpropertykey()
- [property].fmtid = New Guid(&HE81E79BEUI, &H34F0, &H41BF, &HB5, &H3F, &HF1, _
- &HA0, &H6A, &HE8, &H78, &H42)
- [property].pid = 0
- resources.GetStream(file.Id, [property], 0, optimalTransferSize, wpdStream)
- Dim sourceStream As System.Runtime.InteropServices.ComTypes.IStream = DirectCast(wpdStream, System.Runtime.InteropServices.ComTypes.IStream)
- Dim filename = Path.GetFileName(file.Id)
- Dim targetStream As New FileStream(Path.Combine(saveToPath, filename), FileMode.Create, FileAccess.Write)
- Dim buffer = New Byte(1023) {}
- Dim bytesRead As Integer
- Do
- sourceStream.Read(buffer, 1024, New IntPtr(bytesRead))
- targetStream.Write(buffer, 0, 1024)
- Loop While bytesRead > 0
- targetStream.Close()
- End Sub
Habe das von hier: cgeers.com/2011/08/13/wpd-transferring-content/ und dann in VB.NET übersetzt
Danke schon einmal im Vorraus