Capture d'un image dans un webbrowser

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

voici comment j'ai codé ça

Code:

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) :weird: à 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)