Discussion :

[krokmitaine]

Salut tout le monde,
Je dois réaliser une application qui permet via des drag&drop de récupérer des informations qui peuvent être de formats diverses et variés (image, texte, URL, etc...) et de faire des traitements en conséquance. Par exemple si je fais un copier d'une image sous IE, il faudrait ke je puisse la réafficher dans mon appli.

Pour l'instant j'arrive (je me suis basé sur un exemple) à récupérer le lien de l'image et à l'afficher (le lien) dans un TMemo.

Ma question est la suivante: connaissez-vous des fonctions/API/Interfaces qui permettent d'analyser ce que contient le presse-papier de windows et de déterminer le format de l'objet copié ?

Merci.

[anapurna]

salut


il suffit de regarder le source de la fameuse vcl et tu trouve

regarde du cote de

Code :

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

EnumClipboardFormats(format);

@+ Phil

[krokmitaine]

En fait, après différentes recherches, je suis tombé sur la fonction Clipboard.HasFormat(). J'ai cruque ce serait l'outil idéal mais en fait je me suis rendu compte en testant différentes combinaisons sous word (qui me sert de référence pour gérer le drag&drop) que lors d'un drag, les objets (images ou textes) ne sont pas stockées dans le presse-papier. Je ne peux donc pas utiliser les méthodes de clipboard pour analyser le format de l'objet.

Pour l'instant mon code ressemble à ceci et me permet juste de copier du texte à partir d'une application acceptant le drag&drop vers l'extérieur (pas Delphi ni winpad) par exemple firefox ou Notepad++ :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
unit F_DragDrop;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, StdCtrls, ActiveX, ComObj, ShellAPI, ComCtrls, ExtCtrls;
 
type
  TfmMain = class(TForm, IDropTarget)
    paMain: TPanel;
    re: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    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;
 
var
  fmMain: TfmMain;
 
implementation
 
{$R *.dfm}
 
procedure TfmMain.FormCreate(Sender: TObject);
begin
  OleInitialize(nil);
  OleCheck(RegisterDragDrop(Handle, Self));
end;
 
procedure TFmMain.FormDestroy(Sender: TObject);
begin
  RevokeDragDrop(Handle);
  OleUninitialize;
end;
 
function TFmMain.DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
begin
  Result  := S_OK;
end;
 
function TFmMain.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
Var n : int64;
Begin
  Result := S_OK;
end;
 
function TFmMain.DragLeave: HResult;
begin
 Result := S_OK;
end;
 
function TFmMain.Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
var
  aFmtEtc: TFORMATETC;
  aStgMed: TSTGMEDIUM;
  pData: PChar;
 
begin
  if (dataObj = nil) then
    raise Exception.Create('IDataObject-Pointer is not valid!');
  with aFmtEtc do
  begin
    cfFormat := CF_TEXT;
    ptd := nil;
    dwAspect := DVASPECT_CONTENT;
    lindex := -1;
    tymed := TYMED_HGLOBAL;
  end;
  OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
  try
    pData := GlobalLock(aStgMed.hGlobal);
    re.Clear;
    re.SetSelTextBuf(pData);
  finally
   GlobalUnlock(aStgMed.hGlobal);
   ReleaseStgMedium(aStgMed);
  end;
  Result := S_OK;
end;
 
end.

Comme vous pouvez le voir, les iformatoins que je récupère du drag depuis l'application extérieure est stockée dans IDataObject. Ce que j'aimerais c'est pouvoir obtenir le type de celui-ci.

[krokmitaine]

J'ai vu un lien intéressant à propos des processus qui entrent en jeu lors d'un drag&drop : http://www.wideman-one.com/gw/tech/D...DropTheory.htm

D'après ce que j'ai compris, lors du passage au drop (dans mon code delphi donc) je récupère un IObjectData à partir duquel on peut otenir l'IEnumFormatEtc correspondant. Pour cela il faut utiliser la fonction EnumFormatEtc. Le seul problème c'est que je ne comprends pas à quoi correspond le premier paramètre (le second correspondant à la variable qui contiendra le format). Siquelqu'un a une idée ?

[Jipété]

Yop !

Tu plaisantes ou t'as oublié ton meilleur ami ?
Google, "EnumFormatEtc +delphi" -> 493 réponses, déjà avec les trois premières, tu sais quasiment tout !

HTH,
--
jp

[krokmitaine]

ok j'avance. D'après ce que j'ai vu, il n'y a que deux choix pour le premier paramètre : DATADIR_GET ou DATADIR_SET. Je saisis pas trop encore la nuance mais j'ai pu déduire que chaque fois que l'on désire récupérer des informations sur la source du D&D (Drag&Drop) il suffit d'utiliser DATADIR_GET.

Mais en fin de compte ce n'est qu'un détail. Finalement je suis parvenu à obtenir ce que je cherchais mais il s'avère que ce n'est pas la bonne méthode et que je doive changer mes directives. En effet il s'avère hasardeux, limite masochiste de vouloir effectuer directement eds traitements en fonction du type de l'information. Je me contente à présent de récupérer l'information et de voir si c'est du texte/HTML (auquel cas je l'affiche directement) ou autre chose (alors je le stocke dans une base pour pouvoir l'exploiter par la suite).

Sinon pour ceux qui se demandent comment récupérer les formats d'un IDataObject voici comment j'ai fait:

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
function TFmMain.Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
var
  aFmtEtc: TFORMATETC;
  aStgMed: TSTGMEDIUM;
  pData: PChar;
 
  tmpFormat: TFormatEtc;
  pFmtName: PChar;
  formats: IEnumFORMATETC;
 
begin
  mo.Lines.Clear; // mo est un TMemo
  if (dataObj = nil) then
    raise Exception.Create('IDataObject-Pointer is not valid!');
  OleCheck(dataObj.EnumFormatEtc(DATADIR_GET, formats));
  while (formats.Next(1, tmpFormat, nil) = S_OK) do
  begin
    pFmtName := AllocMem(255);
    GetClipboardFormatName(tmpFormat.cfFormat, pFmtName, 254);
    mo.Lines.add(string(pFmtName));
    FreeMem(pFmtName);
  end;
end;

++ tout le monde.