Discussion :

[SergioMaster]

Bonjour,

j'ai remarqué que dans le webbrowser (du moins celui de FMX) on pouvait sélectionner une image et déplacer son "ghost" à la manière d'un dragdrop.
Ma question est donc peut-on récupérer cette image (ou, à défaut, son "ghost") à la manière d'un drag&drop



quand je clique et garde le bouton appuyé (drag) sur la photo de la page, il y a bien déplacement j'arrive à faire en sorte que ma cible (droptarget) l'accepte mais ce n'est pas l'image que j'obtiens mais l'adresse de la page

Une idée pour capturer l'image sans utiliser de zone de capture ?

[SergioMaster]

Autre piste envisagée : le presse-papiers (clipboard) avec un copié de l'image

voici comment j'ai codé ça

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
 
uses  .., FMX.Surfaces, FMW.ClipBoard ...;
procedure TMainForm.DropTarget1DragDrop(Sender: TObject;
  const Data: TDragObject; const Point: TPointF);
var ClipboardService: IFMXExtendedClipboardService;
    aBmpS : TBitmapSurface;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
    begin
      abmpS:=ClipboardService.GetImage;
      if assigned(abmps) then Image1.Bitmap.Assign(abmps);
      FreeAndNil(aBmps);
    end;
end;
 
procedure TMainForm.DropTarget1DragOver(Sender: TObject;
  const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation);
var ClipboardService: IFMXExtendedClipboardService;
    aBmpS : TBitmapSurface;
begin
Operation:=TDragOperation.None;
if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
    begin
      abmpS:=ClipboardService.GetImage;
      if assigned(abmps) then Operation:=TDragOperation.Copy;
      FreeAndNil(aBmps);
    end;
end;
 
procedure TMainForm.DropTarget1Dropped(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
begin
TabImages.Previous();
end;

mais cela demande à l'utilisateur une manipulation (clic droit+copier puis déplacer l'image) à moins qu'il y ait un moyen de détecter çelle-ci ?

et, malheureusement, j'ai parfois l'image sur fond noir ! une explication ? (c'est la première fois que j'utilise Clipboard et son TBitmapSurface)