Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-02-2010
izia izia is offline
Registrado
 
Registrado: feb 2010
Posts: 8
Poder: 0
izia Va por buen camino
Drag and Drop con archivo adjunto de outlook

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:
Cita:
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
Responder Con Cita
  #2  
Antiguo 16-02-2010
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Poder: 17
cocute Va por buen camino
Cita:
Empezado por izia Ver Mensaje
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
Responder Con Cita
  #3  
Antiguo 17-02-2010
izia izia is offline
Registrado
 
Registrado: feb 2010
Posts: 8
Poder: 0
izia Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 22-02-2010
izia izia is offline
Registrado
 
Registrado: feb 2010
Posts: 8
Poder: 0
izia Va por buen camino
Nadie sabe nada?
Responder Con Cita
  #5  
Antiguo 22-02-2010
Avatar de fjcg02
[fjcg02] fjcg02 is offline
Miembro Premium
 
Registrado: dic 2003
Ubicación: Zamudio
Posts: 1.412
Poder: 22
fjcg02 Va camino a la fama
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
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
Responder Con Cita
  #6  
Antiguo 22-02-2010
izia izia is offline
Registrado
 
Registrado: feb 2010
Posts: 8
Poder: 0
izia Va por buen camino
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.
Responder Con Cita
  #7  
Antiguo 24-02-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
No había tenido la oportunidad de probar con Outlook pero veo ahora que sí se pueden "arrastrar" los adjuntos a un formulario. El único punto a observar aquí es que, al menos con Outlook Express, para arrastrar los adjuntos debes abrir el mensaje en una ventana aparte



y arrastrar los archivos. Porque si lo haces directamente desde la lista de mensajes, lo que arrastras en realidad es el mensaje en sí y eso es lo que al parecer sólo se puede a una ventana del explorador.

Dejo aquí un ejemplo en el que los archivos (y adjuntos) se arrastran diectamente a un ListBox y no a cualquier parte del formulario, y pueden arrastrarse múltiples archivos a la vez.

// Saludos
Archivos Adjuntos
Tipo de Archivo: zip DragFiles.zip (2,4 KB, 54 visitas)
Responder Con Cita
  #8  
Antiguo 24-02-2010
izia izia is offline
Registrado
 
Registrado: feb 2010
Posts: 8
Poder: 0
izia Va por buen camino
Hola
me he bajado lo que has puesto, pero no va con los ficheros adjuntos de outlook, va con los ficheros normales. Lo he probado abriendo el email aparte y sin abrirlo y nada.
Eso ya lo tengo yo, lo que quiero es que funcione con los ficheros adjuntos de outlook, arrastrándolos directamente sin tener que guardarlos antes.
Gracias por el interés .
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Outlook Archivo Adjunto shoulder Seguridad 0 01-04-2009 15:51:30
Descargar archivo adjunto del outlook mcalmanovici Varios 11 07-02-2008 21:54:53
Drag and Drop... dvlt .NET 0 07-02-2008 10:42:59
Drag&Drop de un archivo a mi aplicacion... Ascii1457 Varios 6 15-10-2006 17:10:09
Outlook Drag and Drop fpenaranda Servers 1 17-08-2006 13:57:40


La franja horaria es GMT +2. Ahora son las 01:50:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi