Drag and Drop con archivo adjunto de outlook

[izia]

Hola!
Tengo un problema con delphi. Quiero poder subir ficheros adjuntos a emails de outlook arrastrándolos a un listbox para subirlos a una base de datos. He estado mirando drag and drop, pero no consigo que funcione con ficheros adjuntos en outlook.
He buscado por google pero no encuentro código para delphi, he encontrado en visualbasic. Pero no lo tengo muy claro para "traducirlo", y si se puede...
¿Álguien sabe hacerlo?

El código en visual es este, por si alguien si tiene idea de como hacerlo:

Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
e.Effect = DragDropEffects.Copy
End Sub

Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop

Dim memoryStream As System.IO.MemoryStream =
e.Data.GetData("FileGroupDescriptor")
'Sets the position within the current stream to the beginning of the
file name.
memoryStream.Seek(76, IO.SeekOrigin.Begin)

Dim fileName As Byte() = New Byte(256) {}
'return the file name in the fileName variable
memoryStream.Read(fileName, 0, 256)

Dim encoding As System.Text.Encoding = System.Text.Encoding.ASCII
'convert to byte arry to string
Dim strFileName As String = encoding.GetString(fileName)
'trim the strFileName to get the correct file name
strFileName = strFileName.TrimEnd("")

memoryStream = e.Data.GetData("FileContents")
'write the file content to a file under the same path of the exe file.
Dim fs As New IO.FileStream(strFileName, IO.FileMode.Create)
memoryStream.WriteTo(fs)
fs.Close()

End Sub

Y lo he sacado de:
##w#w#w#.devnewsgroups.#net/#group/microsoft.#public.dotnet.framework.windowsforms/topic46776.#aspx

sin las almohadillas

[cocute]

Empezado por izia

Quiero poder subir ficheros adjuntos a emails de outlook arrastrándolos a un listbox para subirlos a una base de datos.

aunque no logro entiender lo que quieres hacer exactamente, puedes mirar este post a ver si te sirve:
http://www.clubdelphi.com/foros/showthread.php?t=36523

[izia]

Gracias por contestar . Lo que me has puesto en el enlace ya lo he conseguido, lo que no me sale es...
Abro un email con outlook y tiene un fichero adjunto, cojo ese fichero, lo arrastro al formulario y no "entra".
Con ficheros normales de windows, del escritorio por ejemplo, si que funciona, puedo arrastrarlos, soltarlos y se "meten" en mi formulario.
Solo tengo problemas con los ficheros adjuntos a los emails en outlook.

[izia]

Nadie sabe nada?

[[fjcg02]]

Puedes probar a copiarlos en un directorio temporal, y de ahí a tu BBDD.

Coméntanos si puedes hacer el primer paso ( de outlook a fichero temporal).

Saludos

[izia]

sii, eso lo pense, pero no se hacer ese paso..
si me lo explicais luego coger el fichero creo que no sera problema, si tengo la ruta.
Porque subir ficheros con la ruta lo tengo ya hecho.