Comment mettre en œuvre le Drag & Drop à partir de la messagerie outlook ou thunderbird pour un delphi forme?

Tout d'abord, si vous pouvez trouver un prêt de la bibliothèque qui fait cela hors de la boîte (comme celle proposée par ldsandon) l'utiliser, parce que tout cela à la main est pénible et frustrant. La documentation est à la fois incomplète et peut contenir des bugs: vous finirez par faire des trucs par essai et erreur et Google ne vous sauvera pas, car pas beaucoup de gens se plonger dans les profondeurs de Ole glisser-déposer, et la plupart de ceux qui ne servira probablement de prêt-à-code.

Comment faire cela dans la plaine de Pascal

Théoriquement, l'API utilisée pour faire de votre poignée de l'application OLE des gouttes est très simple. Tout ce que vous devez faire est de fournir une mise en œuvre de la IDropTarget interface qui fait ce que vous avez besoin et de les appeler RegisterDragDrop fournir la poignée de votre fenêtre de l'application et de l'interface.

Voici comment mon de la mise en œuvre ressemble:

  TDropTargetImp = class(TInterfacedObject, IDropTarget)
  public
    function DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function DragLeave: HResult; stdcall;
    function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
  end;

La mise en œuvre de DragEnter, DragOver et DragLeave est trivial, considerring je suis en train de faire ce pour une expérience: je vais accepter tout:

function TDropTargetImp.DragEnter(const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;
begin
  dwEffect := DROPEFFECT_COPY;
  Result := S_OK;
end;

function TDropTargetImp.DragLeave: HResult;
begin
  Result := S_OK;
end;

function TDropTargetImp.DragOver(grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;
begin
  dwEffect := DROPEFFECT_COPY;
  Result := S_OK;
end;

Le vrai travail va être fait dans TDropTargetImp.Drop.

function TDropTargetImp.Drop(const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;
var iEnum: IEnumFORMATETC;
DidRead:LongInt;
F: TFormatEtc;
STG:STGMEDIUM;
Response:Integer;
Stream:IStream;
Storage: IStorage;
EnumStg: IEnumStatStg;
ST_TAG: STATSTG;
FileStream: TFileStream;
Buff:array[0..1023] of Byte;
begin
if dataObj.EnumFormatEtc(DATADIR_GET, iEnum) = S_OK then
begin
{
while (iEnum.Next(1, F, @DidRead) = S_OK) and (DidRead > 0) do
begin
GetClipboardFormatName(F.cfFormat, FormatName, SizeOf(FormatName));
ShowMessage(FormatName + ' : ' + IntToHex(F.cfFormat,4) + '; lindex=' + IntToStr(F.lindex));
end;
}
ZeroMemory(@F, SizeOf(F));
F.cfFormat := $C105; // CF_FILECONTENTS
F.ptd := nil;
F.dwAspect := DVASPECT_CONTENT;
F.lindex := 0{ -1}; // Documentation says -1, practice says "0"
F.tymed := TYMED_ISTORAGE;
Response := dataObj.GetData(F, STG);
if Response = S_OK then
begin
case STG.tymed of
TYMED_ISTORAGE:
begin
Storage := IStorage(STG.stg);
if Storage.EnumElements(0, nil, 0, EnumStg) = S_OK then
begin
while (EnumStg.Next(1, ST_TAG, @DidRead) = S_OK) and (DidRead > 0) do
begin
if ST_TAG.cbSize > 0 then
begin
Response := Storage.OpenStream(ST_TAG.pwcsName, nil, STGM_READ or STGM_SHARE_EXCLUSIVE, 0, Stream);
if Response = S_OK then
begin
// Dump the stored stream to a file
FileStream := TFileStream.Create('C:\Temp\' + ST_TAG.pwcsName + '.bin', fmCreate);
try
while (Stream.Read(@Buff, SizeOf(Buff), @DidRead) = S_OK) and (DidRead > 0) do
FileStream.Write(Buff, DidRead);
finally FileStream.Free;
end;
end
else
case Response of
STG_E_ACCESSDENIED: ShowMessage('STG_E_ACCESSDENIED');
STG_E_FILENOTFOUND: ShowMessage('STG_E_FILENOTFOUND');
STG_E_INSUFFICIENTMEMORY: ShowMessage('STG_E_INSUFFICIENTMEMORY');
STG_E_INVALIDFLAG: ShowMessage('STG_E_INVALIDFLAG');
STG_E_INVALIDNAME: ShowMessage('STG_E_INVALIDNAME');
STG_E_INVALIDPOINTER: ShowMessage('STG_E_INVALIDPOINTER');
STG_E_INVALIDPARAMETER: ShowMessage('STG_E_INVALIDPARAMETER');
STG_E_REVERTED: ShowMessage('STG_E_REVERTED');
STG_E_TOOMANYOPENFILES: ShowMessage('STG_E_TOOMANYOPENFILES');
else
ShowMessage('Err: #' + IntToHex(Response, 4));
end;
end;
end;
end;
end
else
ShowMessage('TYMED?');
end;
end
else
case Response of
DV_E_LINDEX: ShowMessage('DV_E_LINDEX');
DV_E_FORMATETC: ShowMessage('DV_E_FORMATETC');
DV_E_TYMED: ShowMessage('DV_E_TYMED');
DV_E_DVASPECT: ShowMessage('DV_E_DVASPECT');
OLE_E_NOTRUNNING: ShowMessage('OLE_E_NOTRUNNING');
STG_E_MEDIUMFULL: ShowMessage('STG_E_MEDIUMFULL');
E_UNEXPECTED: ShowMessage('E_UNEXPECTED');
E_INVALIDARG: ShowMessage('E_INVALIDARG');
E_OUTOFMEMORY: ShowMessage('E_OUTOFMEMORY');
else
ShowMessage('Err = ' + IntToStr(Response));
end;
end;
Result := S_OK;
end;

Ce code accepte le "Drop", semble pour certains CF_FILECONTENTS, il l'ouvre comme TYMED_ISTORAGE, des gouttes de chaque flux unique dans cet espace de stockage dans un fichier de C:\Temp\<stream_name>.bin; j'ai essayé cela avec Delphi 2010 et Outlook 2007, il travaille tout droit: ouvrir les fichiers enregistrés (beaucoup d'entre eux!) Je trouve tout de l'e-mail de manière inattendue. Je suis sûr qu'il y a de la documentation quelque part qui explique exactement ce que chacun de ces fichiers est censé contenir, mais je n'ai pas vraiment de soins de sur le point d'accepter de glisser-déposer des fichiers à partir d'Outlook, de sorte que je n'ai pas regardé de loin. Encore une fois, ldsandon de lien a l'air prometteur.

Ce codes a l'air assez court, mais ce n'est pas la source des difficultés. La documentation pour ce qui était vraiment en manque; j'ai frappé la route bloque à chaque coin de rue, à commencer par ceci:

F.lindex := 0{ -1}; // Documentation says -1, practice says "0"

Msdn documentation claire dit que la seule valeur valide pour "lindex" est -1: devinez quoi, -1 n'a pas de travail, de 0!

Puis il y a cette petite ligne de code:

Response := Storage.OpenStream(ST_TAG.pwcsName, nil, STGM_READ or STGM_SHARE_EXCLUSIVE, 0, Stream);

plus précisément, ces deux consts:

STGM_READ or STGM_SHARE_EXCLUSIVE

d'obtenir cette combinaison est une question d'essais et d'erreurs. Je n'aime pas l'essai et l'erreur: c'Est la combinaison optimale de drapeaux pour ce que je veux? Cela fonctionne sur toutes les plateformes? Je ne sais pas...

Puis il y a la question de prise de tête ou la queue du contenu réel reçu à partir d'Outlook. Par exemple le SUJET de l'email a été trouvé dans ce flux: __substg1.0_800A001F. Le corps du message a été trouvé dans ce flux: __substg1.0_1000001F. Pour un simple e-mail message que j'ai reçu 59 flux de taille non nulle.

OriginalL'auteur Cosmin Prund