Drag&Drop mit Dateien: Files geht verloren

[philipp.hofmann]

Hi,

wie kann man unter FMX eine Datei per Drag&Drop einfügen?

Mit dem folgenden Code geht es schon mal nicht. Ich sehe zwar, dass das Drag&Drop funktioniert,
aber im Ziel-Feld wird das TDragObject nicht als File erkannt und somit abgelehnt:

Delphi-Quellcode:

procedure TicTrainerF.doBrowserDragDrop(Sender: TObject);
var
  Svc: IFMXDragDropService;
  DragData: TDragObject;
begin
  if (TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService,Svc)) then
  begin
    DragData.Source:=sender;
    DragData.Data:=dragDropFilename;
    setLength(DragData.Files,1);
    DragData.Files[0]:=dragDropFilename;
    Svc.BeginDragDrop(Self,DragData,bitmapContainer.Items[6].Bitmap);
  end;
end;

Ich habe es mittlerweile auch im EMBT-DragDrop-Example nachstellen können. Wenn ich innerhalb der gleichen Exe-Instanz ein File verschiebe, dann geht dies und es wird auch im Drop-Field als File erkannt. Verschiebe ich es in eine zweite Exe-Instanz wird nur der String erkannt und das File ist verloren gegangen (siehe png-Datei).

Woran kann dies liegen?

Grüße, Philipp

[philipp.hofmann]

Jetzt auch mit nachvollziehbarem Beispiel

[KodeZwerg]

Ich probiere es mal anhand des DragAndDrop example von Embarcadero nachzustellen.

[Michael II]

Zitat von philipp.hofmann:

Jetzt auch mit nachvollziehbarem Beispiel

Nachvollziehbar, wenn man TMSirgendwas installiert hat - hab ich nicht.
Und wenn ich das Beispiel von Emba unter Win 10 (10.0.19042.508) lade ..\Documents\Embarcadero\Studio\21.0\Samples\Objec t Pascal\Multi-Device Samples\User Interface\DragAndDrop und Text oder Bild irgendwo hinziehe und fallen lasse (n möchte), dann geht's nicht. Die App reagiert danach nicht mehr auf Klicks (bleibt im Drag hängen) und muss via TM gekillt werden, da auch Delphi "nicht mehr klickbar" ist.

[KodeZwerg]

Also mit 10.3 läuft zwar das example bei mir, nur macht es anscheinend nichts oder ich habe nicht verstanden wie ich es zu bedienen habe.
Mir fehlt irgendwie ein drop ziel.

[philipp.hofmann]

Ja, ich hatte daher genau dieses Example so erweitert, dass es auch ein Drop-Ziel hat, ZIP-Anhang ein paar Kommentare weiter oben.
Damit kann man das Problem dann nachvollziehen.

[Michael II]

Zitat von philipp.hofmann:

Ja, ich hatte daher genau dieses Example so erweitert, dass es auch ein Drop-Ziel hat, ZIP-Anhang ein paar Kommentare weiter oben.
Damit kann man das Problem dann nachvollziehen.

Wie in #4 erwähnt: Du verwendest in deinem Beispiel TTMSFMXBitMapContainer. (Fehler beim Erzeugen von Formular: Klasse TTMSFMXBitmapContainer nicht gefunden.).

[philipp.hofmann]

Sorry, nur das vorletzte Kommentar gesehen. Anbei das Beispiel ohne die TMS-Komponente.

[Michael II]

Auf meinem Win Version 10.0.19042.508 ist es genau so wie du's beschreibst. (.exe auch auf 2012R2 getestet)

Beim Debuggen werden während dem DragOver massenhaft Meldungen angezeigt:

Code:

onecore\com\combase\dcomrem\resolver.cxx(2283)\combase.dll!00007FFAEB0D42AE: (caller: 00007FFAEB115FCE) ReturnHr(747) tid(13f8) 80040154 Klasse nicht registriert
onecore\com\combase\dcomrem\resolver.cxx(2491)\combase.dll!00007FFAEB115FF6: (caller: 00007FFAEB115F05) ReturnHr(748) tid(13f8) 80040154 Klasse nicht 
registriert

Ich sehe nicht wo's klemmt.

Wenn du eh nur zwischen eigenen Programmen DragAndDropst [mehr kann das Delphi D&D Ding wohl eh nicht (?) - schön wäre ja Text in notepad und Co zu droppen, Files im Explorer] kannst du die File-Infos mit eigenem Protokoll via den Data Teil austauschen (?).

[swestner]

Das da vielleicht:

RSP-15825: IFMXDragDropService does not work with files
This is a feature that was never made to work on Windows. It is under consideration for 10.5.