Commenti

Autore: SSUPERPIPPOInviato il: 17 feb 2008 - 11.59

Ciao, ho letto il tuo interessante articolo.
Io sto realizzando un'applicazione che prevede il drag & drop di file (e fin qui nessun problema), e di mail da Outlook (non express). E proprio in quest'ultima operazione che ho riscontrato dei problemi.
Leggendo qui e lì ho trovato qualche ispirazione e ho scritto questo codice associato all'evento dragdrop per intercettare la mail:

If (e.Data.GetDataPresent(DataFormats.FileDrop, False) = True) Then
fileNames = CType(e.Data.GetData(DataFormats.FileDrop), String())

' Cicla i files oggetto del trascinamento
For Each fileName As String In fileNames
CaricaFile(fileName)
Next
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then

' 1. Ottiene FileGroupDescriptor e ne estrae il nome file

Dim theStream As Stream = CType(e.Data.GetData("FileGroupDescriptor"), Stream)
Dim fileGroupDescriptor() As Byte = New Byte((512) - 1) {}

theStream.Read(fileGroupDescriptor, 0, 512)

' recupera il nome file

Dim fileName As StringBuilder = New StringBuilder("")

Dim i As Integer = 76
Do While (fileGroupDescriptor(i) <> 0)
fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
i = (i + 1)
Loop

theStream.Close()

Dim path As String = Application.StartupPath

' Crea il percorso completo per il file nella directory di programma (temporaneamente)
Dim theFile As String = (path + "\" + fileName.ToString)

' 2. Recuperare e il file dalla memoria E QUI C'E' IL PROBLEMA!!!!
'
Dim ms As MemoryStream = CType(e.Data.GetData("FileContents", True), MemoryStream)
Dim fileBytes() As Byte = New Byte((ms.Length) - 1) {}
ms.Position = 0
ms.Read(fileBytes, 0, CType(ms.Length, Integer))

' Crea il file e salva il raw zip file su di esso
Dim fs As FileStream = New FileStream(theFile, FileMode.Create)
fs.Write(fileBytes, 0, CType(fileBytes.Length, Integer))
fs.Close()

Dim tempFile As FileInfo = New FileInfo(theFile)
If (tempFile.Exists = True) Then
tempFile.Delete()
Else
Trace.WriteLine("Impossibile creare il file!")
End If
End If

Funziona tutto, il problema (decisamente bloccante) è che questa istruzione:

Dim ms As MemoryStream = CType(e.Data.GetData("FileContents", True), MemoryStream)

mi valorizza ms sempre a Nothing!

Hai per caso avuto modo di affrantare questa problematica? hai qualche dritta da darmi? Ti ringrazio molto.

Alessandro

Sandro Bizioli

Drag & Drop di un file in VB.Net

Scrivi un commento

Commenti