Paste clipboard sous android

Question

Bonjour, j'ai une procedure comme celle-ci {$IFDEF ANDROID} if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Svc) then begin Value := Svc.GetClipboard; if not Value.IsEmpty then begin { //teste passage, ok value n'est pas vide s := 'InsertPictureFromClipBoard not Value.IsEmpty'; TDialogservice.MessageDialog(s, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYes, 0, procedure(const AResult: TModalResult) begin Reply := AResult; end); if Reply <> mrYes then } if Value.IsType then try Bitmap := TBitmap.Create; try Bitmap.Assign(Value.AsType); Image1.Bitmap := Bitmap; finally Bitmap.Free; end; finally Value.AsType.Free; end; end; qui marche sous fmx windows mais pas sous android. la copie vers image1 ne se fait pas. il semblerait que le problème soit ici if Value.IsTypeet je sais pas par quoi le remplacer. le type serait différent sous android que sous windows??? si une bonne âme qui passe par là a une idée je suis preneur.:)

Cirec · Answer

Bonjour, voici ce que dit Embarcadero à ce sujet ... Windows, macOS and iOS platforms provide copy/paste of both text and images. The Android clipboard does not support images. To allow users to copy and paste images between your own Android applications, you can use a custom format instead. ... procedure TCopyPasteDemo.CopyButtonClick(Sender: TObject); var Svc: IFMXClipboardService; Image: TBitmap; begin if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Svc) then if TextRadioButton.IsChecked then Svc.SetClipboard(Edit1.Text) else begin Image := TextBorder.MakeScreenshot; try Svc.SetClipboard(Image); finally Image.Free; end; end; end; procedure TCopyPasteDemo.PasteButtonClick(Sender: TObject); var Svc: IFMXClipboardService; Value: TValue; Bitmap: TBitmap; begin if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Svc) then begin Value := Svc.GetClipboard; if not Value.IsEmpty then begin if Value.IsType then begin PasteLabel.Text := Value.ToString; PasteImage.Bitmap := nil; end else if Value.IsType then try PasteLabel.Text := string.Empty; Bitmap := TBitmap.Create; try Bitmap.Assign(Value.AsType); PasteImage.Bitmap := Bitmap; finally Bitmap.Free; end; finally Value.AsType.Free; end; end; end; end; Cordialement,

Paste clipboard sous android

1 réponse

Votre réponse

Discussions similaires