DragDrop auf den Desktop - Datei erst nach dem Loslassen auf dem Desktop von meiner Anwendung erstellen

RodFromGermany · 22. Dezember 2021, 16:40

@dive26 Wohere kommt der Dateiname, woher kommen die Daten, die da zusammengestellt werden?

dive26 · 22. Dezember 2021, 16:54

Wohere kommt der Dateiname, woher kommen die Daten, die da zusammengestellt werden?

Der Dateiname ist anfangs fiktiv und das (erst zu erstellende) PDF.
Die Daten kommen entweder aus eine Cloud oder aus einem Datenordner mit mehreren Daten.

Das bedeutet, die Datei selbst ist erst verfügbar wenn diese NACH dem Drop "erstellt" wird.
Diese vorher auf Verdacht zu erstellen geht nicht, da dies bei der Anzahl der Dateien zu viel Rechenaufwand bedeutet, der unötig ist, wenn man nie ein PDF rauszieht.

Wenn ich (wie oben gepostet) das Kontextmenü "Export as PDF to the desktop" anwähle, dann wird das PDF erstellt und auf den Desktop abgelegt.
Vorher existiert gar kein PDF, denn das Dokument besteht aus verschiedenen Stroke-Informationen, aus SVG-Dateien und aus PNG Hintergründen und noch dazu aus 1-unendlich Seiten.

Aber wie gesagt habe ich die Anforderungen bzw. den Ablauf oben schon einige Male geschrieben

RodFromGermany · 22. Dezember 2021, 17:25

@dive26 Hast Du das hier aus Deinem Link mal ausprobiert?

dive26 · 22. Dezember 2021, 17:58

Bis jetzt noch nicht. Da es C Code ist, habe ich es (noch) vermieden und gehofft hier hat schon jemand eine fertig "übersetzte" Lösung.
Werde ich mir aber zu den Feiertagen ansehen.

(sorry, mit "C Code" meine ich alles was C im Namen hat, egal ob es C#, C++ oder C ist - ist für mich alles gleich - also Bahnhof ;-)).

RodFromGermany · 22. Dezember 2021, 18:53

dive26 schrieb:

Da es C Code ist

Wie kommst Du da drauf?

C# - WPF.
Geh doch ins Marktplatz-Forum und lass Dir das nach VB.NET-WinForm übersetzen.

VaporiZed · 22. Dezember 2021, 21:01

Kurze Zwischenfrage. Der Drop ist ja zumindest in seiner Ausführung (leider ohne Zieldaten) erfassbar, indem das DnDQuellControl-QueryContinueDrag ausgewertet wird. Ein Beispiel:

VB.NET-Quellcode

Friend Class FrmMain
Dim StartDragging As Boolean = False
Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown
StartDragging = True
End Sub
Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove
If Not StartDragging Then Return
StartDragging = False
Dim fileList As New Collections.Specialized.StringCollection
fileList.Add("D:\2.txt") 'nicht-existente Datei
Dim dataObj As New DataObject
dataObj.SetFileDropList(fileList)
Label1.DoDragDrop(dataObj, DragDropEffects.Copy)
End Sub
Private Async Sub Label1_QueryContinueDrag(sender As Object, e As QueryContinueDragEventArgs) Handles Label1.QueryContinueDrag
If e.Action = DragAction.Drop Then
Await Threading.Tasks.Task.Delay(1)
MessageBox.Show("Da wurde was fallen gelassen.") 'oder hier andere Aktion durchführen
End If
End Sub
End Class

Ist das lösungsrelevant?

Ja, leider nur mit Delay-Workaround.

dive26 · 22. Dezember 2021, 22:24

@VaporiZed

Ich wollte hier gerade die Lösung reinposten und habe gesehen, dass Du die selbe Idee hattest.
Ja, genau mit dem QueryContinueDrag habe ich es auch umgesetzt.
Habe den Hinweis zufällig im Netz gefunden und ausprobiert. Tut genau das was ich wollte.

Hier mein Code, wo aber viel "Gedöns" dabei ist, welches aber nur für meine Anwendung spezifisch ist.
Ich musste auch diverse Sicherungen einbauen, damit man das Drag & Drop nicht wieder auf sich selbst anwendet.
Die Anwendung soll ja als Quelle und als Ziel für Drag & Drop dienen, aber nicht für eigene Dateien ;-).

VB.NET-Quellcode

Public edata As DataObject = Nothing
Public PDFWirdbereitsExportiert As Boolean
Public DragVorgangGestartet As Boolean
''' <summary>
''' Drag-out aus einer Listview
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListView_Documents_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView_Documents.ItemDrag
DragVorgangGestartet = True
PDFWirdbereitsExportiert = False
GlobalDragoutFilename = "" 'leerer Dateistring, hier wird eigentlich noch gar nichts kopiert
edata = New DataObject 'wurde vorher Global definiert
Dim fi() As String = {GlobalDragoutFilename}
edata.SetData(DataFormats.FileDrop, fi)
ListView_Documents.DoDragDrop(edata, DragDropEffects.Copy)
End Sub
''' <summary>
''' Drop außerhalb der Anwendung
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListView_Documents_QueryContinueDrag(sender As Object, e As QueryContinueDragEventArgs) Handles ListView_Documents.QueryContinueDrag
If PDFWirdbereitsExportiert = True Then Exit Sub
If e.KeyState = 0 Then
'Damit der Dropvorgang nicht auf sich selbst durchgeführt werden kann
If DragVorgangGestartet = True Then
'Überprüfen ob die Maus außerhalb der Form ist
If MousePosition.X > Me.Left And MousePosition.X < Me.Left + Me.Width And MousePosition.Y > Me.Top And MousePosition.Y < Me.Top + Me.Height Then
'Maus befindet sich noch auf der Form
e.Action = DragAction.Cancel
DragVorgangGestartet = False
Exit Sub
End If
End If
PDFWirdbereitsExportiert = True 'Damit die Routine bei der endgültigen Übergabe nicht erneut aufgerufen wird
'Das folgende Konstrukt erzeugt die PDF-Datei.
'Der Datenpfad zur PDF Datei wird mit GlobalDragoutFilename zurückgegeben.
'#######################
DragExport = True
Dim abc As New MouseEventArgs(MouseButtons.Left, 1, 0, 0, 0)
ListView_Documents_MouseDoubleClick(sender, abc)
DragExport = False
'#######################
If File.Exists(GlobalDragoutFilename) Then
'Neue Datei ins DataObjekt hinzufügen und den Drop durchführen
Dim fi() As String = {GlobalDragoutFilename}
edata.SetData(DataFormats.FileDrop, fi)
edata = Nothing
e.Action = DragAction.Drop
Else
e.Action = DragAction.Cancel 'Datei existiert nicht, daher Dropvorgang abbrechen
End If
End If
e.Action = DragAction.Continue
End Sub
Private Sub ListView_Documents_MouseMove(sender As Object, e As MouseEventArgs) Handles ListView_Documents.MouseMove
If e.Button = MouseButtons.Left Then DragVorgangGestartet = True Else DragVorgangGestartet = False
End Sub

dive26 · 22. Dezember 2021, 23:42

Vielen Dank für die Unterstützung bei allen Fragen.
Ich hab ein kleines Anwendungsvideo gemacht wo man den Drag & Drop Export und auch den Import sehen kann.
Export per Drag & Drop direkt in eine andere Anwendung funktioniert auch, das ist aber am Video nicht zu sehen.

youtu.be/-UelNNXK8DI

mrMo · 23. Dezember 2021, 08:52

Sieht gut aus. Kleiner Verbesserungsvorschlag: Lade nach der Upload nicht alle Dateien neue, sondern füge lediglich die neuen hinzu. Bei den paar Dateien sieht das schon recht langsam aus. Was ist bei 50 Dateien?

RodFromGermany · 23. Dezember 2021, 10:17

@VaporiZed Eine sehr interessante Lösung.
Ich hab das Zurücksetzen von StartDragging noch etwas optimiert, da funktioniert es so, wie man es sich vorstellt.
Da könnte man sogar ganz easy ein UserControl draus basteln.

Spoiler anzeigen

C#-Quellcode

using System.Collections.Specialized;
using System.Windows.Forms;
namespace DoDragDrop
{
public partial class Form1 : Form
{
private bool StartDragging;
public Form1()
{
InitializeComponent();
this.panel1.QueryContinueDrag += this.Panel1_QueryContinueDrag;
}
private void panel1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
this.StartDragging = true;
}
}
private void panel1_MouseUp(object sender, MouseEventArgs e)
{
// lokal beendet
this.StartDragging = false;
}
private void panel1_MouseMove(object sender, MouseEventArgs e)
{
if (!this.StartDragging)
{
return;
}
StringCollection fileList = new StringCollection();
fileList.Add("D:\\Temp\\2.txt"); // nicht-existente Datei
DataObject dataObj = new DataObject();
dataObj.SetFileDropList(fileList);
this.panel1.DoDragDrop(dataObj, DragDropEffects.Copy);
}
private async void Panel1_QueryContinueDrag(object sender, QueryContinueDragEventArgs e)
{
if (this.StartDragging && e.Action == DragAction.Drop)
{
await System.Threading.Tasks.Task.Delay(1);
MessageBox.Show("Drop ausgeführt");
}
this.StartDragging = false;
}
}
}

dive26 · 23. Dezember 2021, 10:26

@mrMo

Sieht gut aus. Kleiner Verbesserungsvorschlag: Lade nach der Upload nicht alle Dateien neue, sondern füge lediglich die neuen hinzu. Bei den paar Dateien sieht das schon recht langsam aus. Was ist bei 50 Dateien?

Das war eine Neuinstallation mit geleertem Cache.
Sobald die Dokumente einmal heruntergeladen wurden und keine Veränderung stattfand, werden die aus dem Cache gelesen.
Im Demovideo habe ich aber 2x zwischen Cloud und Direktverbindung umgeschaltet, daher musste er alle Daten erneut laden.
Aber ich weiß was du meinst.

Beim ersten Mal dauert es leider immer länger. Das ist Systembedingt.
Aus der Cloud (per API) bekomme ich das Inhaltsverzeichnis komplett und die Dokumentdaten nur einzeln.
Aus dem Gerät muss ich mir sogar aus den Metadaten jeder einzelner Datei (über FTP) herunterladen, auslesen und eine Verzeichnisstruktur erstellen. Danach kann jedes einzelne Dokument direkt vom Gerät geladen werden (besteht meist aus 2 Ordnern und mindestens 4 Dateien). Diese muss ich dann auslesen, verarbeiten, ein Thumbnail erstellen (falls noch nicht existiert).

Was ich jedenfalls anders machen hätte sollen:
Ich hätte bei der ursprünglichen Planung der Browser-Funktion einen anderen Weg einschlagen müssen.
Ich hätte das Listview nach dem Laden des Inhaltsverzeichnises mit Platzhaltern sofort befüllen müssen und danach ASYNC die einzelnen Dateien nachladen und die Imagelist aktualiseren müssen.
Vielleicht mach ich das im Weihnachtsurlaub. Mal sehen ob ich die Muse dazu habe.

mrMo · 23. Dezember 2021, 10:32

Man könnte es sogar noch weiter optimieren und nur die Daten Laden die momentanen angezeigt werden.

dive26 · 23. Dezember 2021, 10:39

@mrMo

Man könnte es sogar noch weiter optimieren und nur die Daten Laden die momentanen angezeigt werden.

Das wird sowieso gemacht.

Es werden nur die Dokumente geladen die in der aktuellen Ansicht (aktuellem Ordner) vorkommen.
Das Inhaltsverzeichnis muss aber dennoch immer komplett geladen werden.

Ich habe ein kurzes Beispielvideo in der Supportgruppe gepostet: facebook.com/groups/1637442566604503 (öffentlich)

DragDrop auf den Desktop - Datei erst nach dem Loslassen auf dem Desktop von meiner Anwendung erstellen

dive26 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben