Discussion :

[Sixpounder]

Bonjour,

N'ayant vu aucunes informations sur ce sujet, je m'en revient donc à vous.

Voila j'aimerai faire un drag n drop entre Outlook et mon Application. Plus précisément insérer par drag n drop un email dans mon application.

J'ai essayé avec ce procédé ( cf : FAQ ) mais rien n'y fait, mon appli n'arrive pas à interpréter le fichier :

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_DROPFILES, TMessage, WMDropFiles);
END_MESSAGE_MAP(TForm)

DragAcceptFiles(Handle, true);


Merci d'avance de vos réponses.

[Crayon]

J'ai essayé avec ce procédé ( cf : FAQ ) mais rien n'y fait, mon appli n'arrive pas à interpréter le fichier

Le problème est que ce n'est pas un fichier que tu drop. Donc, c'est normal que sa ne fonctionne pas.

Outlook génère un fichier (.msg) quand tu drop le email dans explorer. Si tu le drop par exemple dans ta fenêtre de code de C++Builder tu auras seulement accès aux informations des colonnes.

[Crayon]

Une solution pourrait être l'utilisation de OLE, pour plus de détail va voir: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Apparemment, c'est vraiment difficile à utiliser, donc je te conseil de jeter un coup d'oeil sur les composants de Anders Melander sur http://melander.dk

[Sixpounder]

Merci à toi Crayon pour tes réponses.

Je me suis orienté vers la 1ere solution (DATAobject , source et destination). A l'heure actuelle ma Listview arrive à recevoir le mail par drag n drop, il me reste à créer la structure OLE pour contrôler l'objet insérer puis d'en afficher ses données. Cependant je n'ai pas trouvé de documents expliquant le fonctionnement du formatetc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
IStorage * pstorage = NULL;
  IStream * pstream = NULL;
  STGMEDIUM medium;
  FORMATETC fmtetc;
  FillFormatEtc(&fmtetc);

Sinon il existe des composants tout prêt mais payant sur le site : http://www.raize.com/DevTools/Products.asp

[totoche76]

Hello,

Est-ce que tu as regardé du côté de The Drag and Drop Component Suite for Delphi ??

[Sixpounder]

J'avance un peut dans le brouillard, je me suis aidé d'un site anglophone pour monter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
STDMETHODIMP CDropTarget::DragEnter(LPDATAOBJECT pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
  tagSTGMEDIUM stgm;
  tagFORMATETC fmtetc;
  IStorage * pstg = NULL;
  IStream * pstm = NULL;
  FillFormatEtc(&fmtetc); 
 
  m_bDropOK = false;
 
   if (pDataObj->GetData(&fmtetc, &stgm) == S_OK ) {  // OK 
	   pstg = stgm.pstg;
 
		HRESULT t = pstg->OpenStream((wchar_t *)"__substg1.0_1000001E",NULL,STGM_SHARE_EXCLUSIVE | STGM_READ,0,&pstm); // => -2147286788 = -7FFCFF04
 
		if (pstg->OpenStream((wchar_t *)"__substg1.0_1000001E",NULL,STGM_SHARE_EXCLUSIVE | STGM_READ,0,&pstm) == S_OK ) { // Probléme !
			*pdwEffect = GetEffect(grfKeyState);
			m_bDropOK = true;
				   pstm = NULL;
				   return S_OK;
				   }
				}
 
   else {
		pstg = NULL;
		ReleaseStgMedium(&stgm);
		ShowMessage("Objet non conforme");
		}
 
}

Cependant je n'arrive jamais à répondre à cette condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (pstg->OpenStream((wchar_t *)"__substg1.0_1000001E",NULL,STGM_SHARE_EXCLUSIVE | STGM_READ,0,&pstm) == S_OK ) {

Le HRESULT t me retourne comme valeur décimale -2147286788 soit -7FFCFF04 en héxa. En me référant à ce tableau de valeurs d'erreurs ( http://support.microsoft.com/kb/827994/fr ) je m'aperçoit que mon code héxa n'y parait pas.

Si quelqu'un a une idée sur ce sujet...

Merci d'avance.