Hello.
I have very strange problem with D'n'D. In two words, when I drag item from my application (.NET 3.5 Visual Studio 2012) to explorer it fails with message 'Not enough storage is available to complete operation' if file size is more then approximately 21
MB.
D'n'd is implemented using own class that is inherited from DataObject.
Imports System.Runtime.InteropServices
Imports System.Runtime.InteropServices.ComTypes
Imports System.IO
Imports System.Security.Permissions
Imports System.Windows.Forms
''' <summary>
''' DataObject capable of create files before drop to windows explorer
''' </summary>
''' <remarks></remarks>
Public Class ShellDataObjectBase
Inherits DataObject
Implements System.Runtime.InteropServices.ComTypes.IDataObject
Public FileContentMemoryStream As MemoryStream = Nothing
Public FileDescriptorMemoryStream As MemoryStream
Public FileName As String
#Region "Types of media"
''' <summary>
''' Allowed types of media
''' </summary>
''' <remarks></remarks>
Private Shared ReadOnly ALLOWED_TYMEDS As TYMED() = New TYMED() {TYMED.TYMED_ENHMF, TYMED.TYMED_GDI, TYMED.TYMED_FILE, TYMED.TYMED_HGLOBAL, TYMED.TYMED_ISTREAM, TYMED.TYMED_MFPICT}
''' <summary>
''' Is type of media allowed?
''' </summary>
''' <param name="tymed__1"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function GetTymedUseable(ByVal tymed__1 As TYMED) As [Boolean]
For i As Int32 = 0 To ALLOWED_TYMEDS.Length - 1
If (tymed__1 And ALLOWED_TYMEDS(i)) <> TYMED.TYMED_NULL Then
Return True
End If
Next
Return False
End Function
#End Region
#Region "Structures"
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Private Structure FILEDESCRIPTOR
Public dwFlags As UInt32
Public clsid As Guid
Public sizel As System.Drawing.Size
Public pointl As System.Drawing.Point
Public dwFileAttributes As UInt32
Public ftCreationTime As System.Runtime.InteropServices.ComTypes.FILETIME
Public ftLastAccessTime As System.Runtime.InteropServices.ComTypes.FILETIME
Public ftLastWriteTime As System.Runtime.InteropServices.ComTypes.FILETIME
Public nFileSizeHigh As UInt32
Public nFileSizeLow As UInt32
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
Public cFileName As [String]
End Structure
'Public Structure SelectedItem
' Public FileName As [String]
' Public WriteTime As DateTime
' Public FileSize As Int64
'End Structure
#End Region
#Region "Properties"
#End Region
#Region "Constructors"
Public Sub New()
Me.SetData(NativeMethods.CFSTR_FILEDESCRIPTORW, Nothing)
Me.SetData(NativeMethods.CFSTR_FILECONTENTS, Nothing)
Me.SetData(NativeMethods.CFSTR_PERFORMEDDROPEFFECT, Nothing)
End Sub
#End Region
#Region "File methods"
Private _Lindex As Int32
Private Function GetFileDescriptor() As MemoryStream
FileDescriptorMemoryStream = New MemoryStream()
' Write out the FILEGROUPDESCRIPTOR.cItems value
FileDescriptorMemoryStream.Write(BitConverter.GetBytes(1), 0, 4)
Dim FileDescriptor As New FILEDESCRIPTOR()
'Dim FileName As String = "image_with_barcodes.tif"
FileDescriptor.cFileName = FileName
Dim FileWriteTimeUtc As Int64 = 0
Dim Cancel As Boolean = False
Dim Key As String = String.Empty
Dim FileSize As Long = New IO.FileInfo(FileName).Length
FileDescriptor.nFileSizeHigh = CUInt(FileSize >> 32)
FileDescriptor.nFileSizeLow = CUInt(FileSize And &HFFFFFFFFUI)
FileDescriptor.ftLastWriteTime.dwHighDateTime = CInt(FileWriteTimeUtc >> 32)
FileDescriptor.ftLastWriteTime.dwLowDateTime = CInt(FileWriteTimeUtc And &HFFFFFFFFUI)
FileDescriptor.dwFlags = NativeMethods.FD_WRITESTIME Or NativeMethods.FD_FILESIZE Or NativeMethods.FD_PROGRESSUI
' Marshal the FileDescriptor structure into a
' byte array and write it to the MemoryStream.
Dim FileDescriptorSize As Int32 = Marshal.SizeOf(FileDescriptor)
Dim FileDescriptorPointer As IntPtr = Marshal.AllocHGlobal(FileDescriptorSize)
Marshal.StructureToPtr(FileDescriptor, FileDescriptorPointer, True)
Dim FileDescriptorByteArray As [Byte]() = New [Byte](FileDescriptorSize - 1) {}
Marshal.Copy(FileDescriptorPointer, FileDescriptorByteArray, 0, FileDescriptorSize)
Marshal.FreeHGlobal(FileDescriptorPointer)
FileDescriptorMemoryStream.Write(FileDescriptorByteArray, 0, FileDescriptorByteArray.Length)
Return FileDescriptorMemoryStream
End Function
Private Function GetFileContents() As MemoryStream
If _Lindex < 1 Then
If Not File.Exists(FileName) Then Return Nothing
Dim bBuffer As [Byte]() = File.ReadAllBytes(FileName)
FileContentMemoryStream = New MemoryStream(bBuffer.Length)
'Must send at least one byte for a zero length file to prevent stoppages.
If bBuffer.Length = 0 Then
bBuffer = New [Byte](0) {}
End If
FileContentMemoryStream.Write(bBuffer, 0, bBuffer.Length)
End If
Return FileContentMemoryStream
End Function
#End Region
#Region "DataObject methods"
Public Overloads Overrides Function GetData(ByVal format As String, ByVal autoConvert As Boolean) As Object
Console.WriteLine(format)
If [String].Compare(format, NativeMethods.CFSTR_FILEDESCRIPTORW, StringComparison.OrdinalIgnoreCase) = 0 Then
MyBase.SetData(NativeMethods.CFSTR_FILEDESCRIPTORW, GetFileDescriptor())
ElseIf [String].Compare(format, NativeMethods.CFSTR_FILECONTENTS, StringComparison.OrdinalIgnoreCase) = 0 Then
Dim Stream As MemoryStream = GetFileContents()
If Not Stream Is Nothing Then MyBase.SetData(NativeMethods.CFSTR_FILECONTENTS, Stream)
'TODO: Cleanup routines after paste has been performed
ElseIf [String].Compare(format, NativeMethods.CFSTR_PERFORMEDDROPEFFECT, StringComparison.OrdinalIgnoreCase) = 0 Then
End If
Return MyBase.GetData(format, autoConvert)
End Function
#End Region
End Class
And I have small form with the next code:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Small image. Works fine")
ListBox1.Items.Add("Large image. error occures")
End Sub
Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDown
Dim DataObject As ShellDataObjectBase = New ShellDataObjectBase()
If ListBox1.SelectedIndex = 0 Then
DataObject.FileName = "Small.bmp"
End If
If ListBox1.SelectedIndex = 1 Then
DataObject.FileName = "Large.bmp"
End If
ListBox1.DoDragDrop(DataObject, DragDropEffects.All)
End Sub
End Class
It works fine for 'Small.bmp' (wich is around 250kB) but fails for 'Large.bmp' which is 35 MB.
I don't see any exception in Visual Studio, so I guess that error is raised somewhere in kernel libraries. Maybe there is some problem with .NET memory management/memory allocation, but I don't know how to deal with this error. Any ideas what's going wrong
here?
P.S. Can't add link to my test project: get message that my account is not verified. Do I need to perform any action to verify my account? Thanks.
